A voir également:
- [Excel VBA] Numéro 1ère colonne filtrée
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Numero prive - Guide
- Liste déroulante 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 569
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...