Microsoft 365 Boucler une macro avec un filtre variable

Stéfane · 1 Février 2023

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 :

VB:

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.

Dranreb · 2 Février 2023

Bonsoir.
Peut être :

VB:

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

vgendron · 1 Février 2023

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 · 1 Février 2023

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 · 1 Février 2023

si tu le dis....

Stéfane · 2 Février 2023

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 · 2 Février 2023

Bonsoir.
Peut être :

VB:

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

Microsoft 365 Boucler une macro avec un filtre variable

Stéfane

XLDnaute Occasionnel

Dranreb

vgendron

XLDnaute Barbatruc

Stéfane

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Stéfane

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires