With End With ou For To Next ??

[Evelynetfrancois]

Bonjour a tout le forum
voila j ai cette partie de macro , qui me chagrine par sa longueur
je me demande (sans trouver) si il n 'y a pas moyen de faire plus court , de boucler ?? peut être

merci pour vos bonnes idées
bonne soirée a tous

E et F



With Selection
.AutoFilter Field:=1
.AutoFilter Field:=2
.AutoFilter Field:=3
.AutoFilter Field:=4
.AutoFilter Field:=5
.AutoFilter Field:=6
.AutoFilter Field:=7
.AutoFilter Field:=8
.AutoFilter Field:=9
.AutoFilter Field:=10
.AutoFilter Field:=11
.AutoFilter Field:=12
.AutoFilter Field:=13
.AutoFilter Field:=14
.AutoFilter Field:=15
.AutoFilter Field:=16
End With

 

[wilfried_42]

Re : With End With ou For To Next ??

salut

With Selection
for i = 1 to 16
.AutoFilter Field:=i
next i
End With


salutations

 

[Mattharm]

Re : With End With ou For To Next ??

for x = 1 to 16

With Selection
.AutoFilter Field:=x
End With

Next x

Quelque chose dans ce gout la peut être mais je ne sais pas si ça marche, je n'ai pas essayé 😉🙂


edit: Grillé par wilfried_42 😉

 

[Evelynetfrancois]

Re : With End With ou For To Next ??

merciiiiiii wilfried_42 et Mattharm
pour votre rapidité , c'est super !!!
et en plus .................ca marche !!!

Bonne soirée à vous
E et F

 

[Mattharm]

Re : With End With ou For To Next ??

merciiiiiii wilfried_42 et Mattharm
pour votre rapidité , c'est super !!!
et en plus .................ca marche !!!

Bonne soirée à vous
E et F

Et bien de rien 😉