Filtre sur couleur

[dominique3829]

Bonjour à tous
Nouvelle saison et nouveau problème !
Voilà j'ai un petit souci avec un filtre, j'ai déjà eu des discussions à ce sujet,
le problème maintenant est le suivant :
dans mon tableau je voudrais faire un tri en vba sur la colonne "A"

j'ai fouillé le forum presque toute la journée d'hier mais sans résultat.

Serait-il possible d'utiliser une instruction du genre :
Selection.AutoFilter Field:=i, Criteria1:="<>" & RGB(255, 255, 255)
pour faire apparaitre les lignes en vert ou en rouge ou les lignes sans couleur?

merci pour votre aide !

 

[JCGL]

Re : Filtre sur couleur

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Tri()
Dim X As Long
Cells.EntireRow.Hidden = False
For X = 2 To Range("F65536").End(xlUp).Row
If Range("F" & X).Interior.ColorIndex <> Range("G1") Then Range("F" & X).EntireRow.Hidden = True
Next X
Range("G1").Select
End Sub

Mettre le code couleur en G1

A+ à tous

Édition: Salut PJ

 

[pierrejean]

Re : Filtre sur couleur

bonjour Dominique

Une solution avec liste de validation en G1

Edit: Salut JC

 

[dominique3829]

Re : Filtre sur couleur

Un grand merci à vous deux !
Vos solutions fonctionnent, comme je le citais plus haut, ne peut-on pas filtrer avec critère couleur plutôt qu'une boucle?
Exemple poir une seule couleur? (le code me renvois une erreur)

Selection.AutoFilter Field:=i, Criteria1:= RGB(255, 255, 255)
merci

 

[pierrejean]

Re : Filtre sur couleur

Re

A ma connaissance la couleur ne peut etre utilisée comme critère de tri
Mais je ne demande qu'a etre contredit !

 

[dominique3829]

Re : Filtre sur couleur

je cherche encore...
En fait sous excel 2007, on peut faire un filtre sur les couleurs

c'est de la que je me suis inspiré, peut etre essayer d'adapter le code?

 

[dominique3829]

Re : Filtre sur couleur

je précise que je suis sous excel 2000 !

 

[dominique3829]

Re : Filtre sur couleur

Je rame !
personne n'a une idée?

le filtre ne met pas d'erreur, seulement toute les lignes sont masquées !

 

[JCGL]

Re : Filtre sur couleur

Bonjour à tous,

Merci de déposer le code utilisé et de confirmer que tu testes bien sur le fichier déposé en #1

A+ à tous

 

[dominique3829]

Re : Filtre sur couleur

Merci à toi JCGL
voici le fichier

 

[JCGL]

Re : Filtre sur couleur

Bonjour à tous,

Un essai mais qui passe par une colonne supplémentaire ( récupération du code Long ) et

Private Sub CommandButton1_Click()
    i = 7
    Set col = Columns(i).CurrentRegion.Columns(i).Cells
    ' ActiveSheet.Range("G:G").AutoFilter Field:=i, Criteria1:=RGB(255, 0, 0)
    ' ActiveSheet.Range("G:G").AutoFilter Field:=i, Criteria1:=RGB(0, 255, 0)
    ActiveSheet.Range("G:G").AutoFilter Field:=i, Criteria1:=RGB(255, 255, 255)
End Sub

Tu remarqueras que cela ne ramène rien de plus que les codes déjà déposés.

Il y a, surement, une solution mais je ne la connais pas

A+ à tous

 

[dominique3829]

Re : Filtre sur couleur

Je te remercie,
je vais tester ça !

Bonne soirée à tous

 

[dominique3829]

Re : Filtre sur couleur

Ca ne fonctionne pas
j'ai essayé avec tes lignes de codes mais sans résultat

je cherche, je cherche.........
si je trouve la solution je vais la poster car à mon sens je ne vois aucun exemple avec ce genre de filtre et je pense que cela pourrait aider beaucoup de monde

 

[JCGL]

Re : Filtre sur couleur

Bonjour à tous,

Peux-tu tester ce fichier ?

Il faut choisir une ligne dans le code...
Dans le classeur à l'ouverture tu auras les Rouges par :

    ActiveSheet.Range("G:G").AutoFilter Field:=i, Criteria1:=RGB(255, 0, 0)

Je réitère mon propos : il est plus simple de passer le ColorIndex

A+ à tous

 

[dominique3829]

Re : Filtre sur couleur

merci, ça fonctionne !
petite chose, obliger de passer par la colonne "G"?

encore merci