Bonjour, j'ai cherché sur internet comment enlever tous les filtres d'un tableau mais je n'ai pas trouvé une solution qui fonctionne sur mon fichier.
j'utilise cela pour l'instant et ça marche très bien mais c'est long.... long.... long....
Qqun aurait une solution pour écourter l'attente?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub Bouton10_Cliquer() Feuil1.unprotect Password:="toto" Feuil1.ListObjects("Tableau1").Range.AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67) Feuil1.protect Password:="toto" End Sub
Partager