A voir également:
- [Excel VBA] Numéro 1ère colonne filtrée
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Numero prive - Guide
- Additionner colonne excel - Guide
- Trier colonne excel - Guide
3 réponses
Un petit up pour ne pas qu'on m'oublie =)
Si on pouvait me donner un petit coup de main, ça serait super...
Merci d'avance
Si on pouvait me donner un petit coup de main, ça serait super...
Merci d'avance
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
23 sept. 2010 à 09:49
23 sept. 2010 à 09:49
Salut,
Je pense que tu dois commencer par Identifier les filtres
Je pense que tu dois commencer par Identifier les filtres
Avant tout, merci de m'avoir répondu ^^
En effet, si je réutilise :
With .AutoFilter.Filters
For x = 1 To .Count
'Colorie la colonne en jaune si le filtre est actif
If .Item(x).On Then Ws.Columns(x).Interior.ColorIndex = 6
Next
End With
En y apportant la modification suivante :
With .AutoFilter.Filters
For x = 1 To .Count
If .Item(x).On Then NumColFilt = x
x = .Count
Next
End With
Théoriquement, cela devrait me permettre de quitter la boucle FOR dès que j'ai stocké le numéro de la première colonne filtrée dans la variable NumColFilt...
Je vais essayer ça mais si vous voyez quelque chose qui vous chiffonne, n'hésitez pas à me le signaler...
En effet, si je réutilise :
With .AutoFilter.Filters
For x = 1 To .Count
'Colorie la colonne en jaune si le filtre est actif
If .Item(x).On Then Ws.Columns(x).Interior.ColorIndex = 6
Next
End With
En y apportant la modification suivante :
With .AutoFilter.Filters
For x = 1 To .Count
If .Item(x).On Then NumColFilt = x
x = .Count
Next
End With
Théoriquement, cela devrait me permettre de quitter la boucle FOR dès que j'ai stocké le numéro de la première colonne filtrée dans la variable NumColFilt...
Je vais essayer ça mais si vous voyez quelque chose qui vous chiffonne, n'hésitez pas à me le signaler...
