Microsoft 365 Boucler une macro avec un filtre variable

[Stéfane]

Bonjour à tous,

Est-il possible de faire une boucle de type "1 To 14" pour une macro qui filtre 14 fois la même colonne avec Criteria1:="" de 1 à 14 et exécute une macro à chaque filtre du type :

ActiveSheet.ShowAllData
        Range("$A$1:$S$4000").AutoFilter Field:=10, Criteria1:="1"
MaMacro

ActiveSheet.ShowAllData
        Range("$A$1:$S$4000").AutoFilter Field:=10, Criteria1:="2"
Mamacro
.....................................................................................................
ActiveSheet.ShowAllData
        Range("$A$1:$S$4000").AutoFilter Field:=10, Criteria1:="14"
MaMacro

Merci pour votre aide.

 

[vgendron]

bonjour

un truc du genre

for i=1 to 14
ActiveSheet.ShowAllData
Range("$A$1:$S$4000").AutoFilter Field:=10, Criteria1:=i
MaMacro
next i

 

[Stéfane]

Bonjour vgendron
Oui un truc de ce genre, ça j'ai essayé mais ma macro ne ce lance pas de cette façon.
Merci

 

[vgendron]

si tu le dis....

 

[Stéfane]

Je viens de comprendre mon problème 1 to 14 boucle sur des nombres entiers or j'ai 01,02,03..... que je ne peux modifier en 1,2,3...
y a t'il une solution pour adapter le 1 to 14 ?
Merci

 

[Dranreb]

Bonsoir.
Peut être :

Range("$A$1:$S$4000").AutoFilter Field:=10, Criteria1:=Format(i, "00")