J'ai simplifié volontairement le but de la macro, la macro étant plus complexe qu'indiquée.
Mais dans l'idée, voici un bout du code VBA qui nous intéresse:
With Worksheets("Septembre détails" )
If .FilterMode = True Then .ShowAllData
End With
Range("A1" ).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Range("A1" ).AutoFilter Field:=11, Criteria1:="209"
Range("B:B,G:G,I:I,K:K" ).Select
Selection.Copy
Sheets("NE.PAS.TOUCHER" ).Select
Columns("A:D" ).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Voilà, disons que je veuille faire cette manip avec l'ensemble des critères que contient la colonne 11, comment pourrais-je faire si:
1/ Je connais la liste des critères potentiels du filtre de la colonne 11 (mais ne sais pas s'ils sont effectivement présents dans mon tableau)
2/ Je ne connais pas la liste des critères, mais seulement qu'il s'agit de nombres compris entre 1 et 999 (comme ici 209)
Merci beaucoup!
Message édité par flightrisk le 17-10-2017 à 15:11:45