Bonjour à tous,
Je dois faire un filtre sur un classeur de plusieurs onglets sur un tableau de 11 colonnes et d'un nombre de lignes variable
Le filtre est déjà existant sur la première ligne et peut être activé ou non, la colonne à filtrer est la G, les critères à retenir sont Open ou Rejected ou Closed (celui rejeté est Deleted). Comme tous les onglets n'ont pas de filtre, je fais un test préalable.
J'ai le code suivant :
For Each Worksheet In ThisWorkbook.Worksheets
If Worksheet.AutoFilterMode Then
Range("A1:K1").AutoFilter Field:=7, Criteria1:=Array("Open", "Rejected", "Closed"), Operator:=xlFilterValues
End If
Next
J'ai mis la version avec la sélection de la première ligne entière, mais j'ai essayé avec des Range différents (A1, G1, la totalité du tableau, les colonnes A à K entières, ...)
J'ai 2 problèmes :
- La macro ne marche pas systématiquement (" La méthode AutoFilter de la classe Range a échoué " dès le premier onglet sur lequel le filtre est existant)
- quand elle marche, certains onglets sont filtrés, d'autres non, alors qu'un déroulement pas à pas me montre bien que tous les onglets sont balayés.
Et tout ça semble aléatoire...
Si quelqu'un a une solution, je suis preneur. Ca fait 2 heures que je triture Internet dans tous les sens et je ne trouve rien.
Merci d'avance.
Manu
Pb de mise en place d'un filtre automatique
- galopin01
- Passionné d'Excel
- Messages : 6'221
- Appréciations reçues : 137
- Inscrit le : 18 septembre 2008
- Version d'Excel : 2016
- Téléchargements : Mes applications
Bonjour,
Sui pas persuadé que vous pouvez utiliser Worksheet comme nom de variable. En règle générale il vaut mieux éviter d'utiliser des mots (réservés ou non) comme nom de variable...
De plus vous ne qualifiez pas le Range...
Comme il n'y a pas de fichier joint je ne peux pas tester mais essayez : A+
Sui pas persuadé que vous pouvez utiliser Worksheet comme nom de variable. En règle générale il vaut mieux éviter d'utiliser des mots (réservés ou non) comme nom de variable...
De plus vous ne qualifiez pas le Range...
Comme il n'y a pas de fichier joint je ne peux pas tester mais essayez : A+
Ici c'est un forum Excel/VBA pas Photoshop :
Quand vous amenez votre voiture au garagiste vous lui donnez pas juste la photo ?
Quand vous amenez votre voiture au garagiste vous lui donnez pas juste la photo ?
-
- Sujets similaires
- Réponses
- Vues
- Dernier message
-
- 8 Réponses
- 2148 Vues
-
Dernier message par MFerrand
5 septembre 2015, 00:11
-
-
Créer un bouton qui active un filtre sur la colonne où il est placé
par gloub » 3 décembre 2019, 22:45 » dans Excel - VBA - 5 Réponses
- 71 Vues
-
Dernier message par oxydum
4 décembre 2019, 11:08
-
-
-
Mettre en place une coloration automatique
par Sayanel » 28 septembre 2016, 21:46 » dans Excel - VBA - 2 Réponses
- 170 Vues
-
Dernier message par Sayanel
29 septembre 2016, 09:10
-
-
-
Mise en place automatique de données dans une cellule
par FlorianC » 4 décembre 2019, 16:16 » dans Excel - VBA - 2 Réponses
- 32 Vues
-
Dernier message par FlorianC
5 décembre 2019, 09:52
-
-
-
Mettre en place une maj automatique d'un tableur sur un autr
par Camcamcams » 9 mars 2017, 08:36 » dans Excel - VBA - 2 Réponses
- 71 Vues
-
Dernier message par Pincho
9 mars 2017, 08:43
-
-
- 14 Réponses
- 1258 Vues
-
Dernier message par James007
20 mai 2015, 09:06