Filtre par couleur

[Résolu/Fermé]
Signaler
Messages postés
63
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
28 avril 2020
-
Messages postés
10384
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 septembre 2021
-
Bonjour,

J'aimerais filtrer une colonne avec comme critère: couleur intérieure de la cellule différente de rouge.

Pour l'instant j'ai ce code là:
Selection.AutoFilter Field:=1, Criteria1:= RGB(255, 0, 0), Operator:=xlFilterCellColor

Le problème est que mon critère est: couleur rouge, il me faudrait couleur NON rouge...

J'espère être clair,

Merci d'avance pour vos réponses
A voir également:

3 réponses

Bonsoir,

Ca fait un baille que je n'ai pas joué au VBA mais "est différent s'écrit ainsi <>".

Avec un peu de chance ceci devrait focntionner :

Selection.AutoFilter Field:=1, Criteria1:<> RGB(255, 0, 0), Operator:=xlFilterCellColor

Je pense que vous pouvez trouvez le code en faisant une macro enregistrée d'un filtre "différent de" que vous intégrez à celle que vous utilisez.

Cordialement,
Messages postés
63
Date d'inscription
mardi 12 mars 2013
Statut
Membre
Dernière intervention
28 avril 2020

bonjour,

j'ai déjà essayé ce type de formule mais ça ne fonctionne pas...

Si quelqu'un a une autre idée je suis preneur.

Merci d'avance.
Messages postés
10384
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 septembre 2021
1 197
Bonsoir,

A ma connaissance Autofilter ne te permet pas ça.
Il faut passer par un boude de code qui masque la ligne qui correspond au rouge dans la colonne [A] ou [1]
Boud de code à adapter :
i = 2 'En partant de la 2ème ligne, pour conserver une ligne des titres
While Not IsEmpty(Cells(i, 1)) 
If Not Cells(i, 1).Interior.ColorIndex = 3 Then 
Rows(i).EntireRow.Hidden = True 
End If 
i = i + 1 
Wend