Discussion :

[keltdojo]

Bonjour,

je suis un peu novice avec les macros et je voudrais mettre ce nom de feuille "9522 AGE 01" en référence contenant ce nom car celui ci est variable pour chaque feuille. Mon classeur peut contenir entre 500 et 1500 feuilles nommées par une liste variable.

Dans mon code j'ai mis en gras ce que je voudrais en variable sachant que le nom de ma feuille est en D4 de chaque feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Extraction() 
' 
' Extraction Macro 
' 
Sheets("Base4").Select 
Range("Q15").Select 
Range("A8:R1523").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ 
Sheets("9522 AGE 01").Range("F1:H2"), CopyToRange:=Range("X8:AF9"), Unique _ 
:=False 
Range("X9").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Cut 
Sheets("9522 AGE 01").Select 
Range("E24").Select 
ActiveSheet.Paste 
Range("E24").Select 
End Sub

je suis sur Excel 2013

merci pour l'aide

[Philippe Tulliez]

Bonjour,
Si le nom de ta feuille est en cellule D4 et d'après ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CriteriaRange:= Sheets(Range("D4")).Range("F1:H2")

Non testé
Il faut proscrire l'utilisation des Select, Selection, Activate, etc.

[keltdojo]

Merci Philippe pour ta réponse,

Mais cela ne fonctionne pas

Car mes critères ne sont pas sur la feuille de la base mais sur la future feuille d'extraction et le nom de la feuille est aussi sur la feuille d'extraction

[Philippe Tulliez]

Bonjour,

Tu parles d'une future feuille d'extraction, cela signifierait donc qu'elle n'est pas crée ?
De toutes manière pour la simplicité de la lecture de ton code et pour rendre pérenne ton application, je te conseille d'utiliser trois variables objets de type Range pour définir les trois zones (Données, critères et exportation) en précisant bien la filiation complète de ceux ci (Classeur, feuille et plage de cellules).
Ensuite c'est un jeux d'enfant.

Petit Exemple ci-dessous qui utilise trois feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ExportByAdvancedFilter_Exemple_1()
Dim rngSource As Range, rngTarget As Range, rngCriteria As Range
 With ThisWorkbook
  Set rngSource = .Worksheets("Data").Range("A1").CurrentRegion              ' Zone Data
  Set rngTarget = .Worksheets("Export").Range("A1")                          ' Zone d'exportation
  Set rngCriteria = .Worksheets("ExportDashboard").Range("A1").CurrentRegion ' Zone des critères
 End With
 Debug.Print "Source = " & rngSource.Address _
          & " Export = " & rngexport.Address _
         & " Critère = " & rngCriteria.Address
 ' Suppression des cellules de la feuille cible
 rngTarget.Worksheet.Cells.Clear
 ' Exportation suivant les critères
 rngSource.AdvancedFilter xlFilterCopy, rngCriteria, rngTarget
 ' Suppresion des références aux variables objets
 Set rngSource = Nothing: Set rngTarget = Nothing: Set rngCriteria = Nothing
End Sub

S'il y a plusieurs exportations à effectuer et que la zone d'exportation est différente à chaque fois, il faut assigner les références des plages à la variable objet dans une boucle.

[keltdojo]

Erreur de ma part je suis sur la feuille d'extraction

Mon objectif :

c'est que par la suite je puisse dupliquer cette feuille contenant le bouton macro et qu'en cliquant dessus il me fasse l'extraction voulu

[Philippe Tulliez]

Bonjour,

Je ne vois pas clair dans ton objectif.
De toutes manières quoi qu'il arrive, il faut définir ces trois zones et ensuite exporter.
Quant aux critères, soit on les écrit manuellement dans la zone prévues pour cela et ce avant de lancer la procédure soit on fait écrire le critère par celle-ci.