Filtre sur couleur

dominique3829 · 21 Mars 2010

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 · 21 Mars 2010

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 · 21 Mars 2010

Re : Filtre sur couleur

bonjour Dominique

Une solution avec liste de validation en G1

Edit: Salut JC

dominique3829 · 21 Mars 2010

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 · 21 Mars 2010

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 · 21 Mars 2010

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 · 21 Mars 2010

Re : Filtre sur couleur

je précise que je suis sous excel 2000 !

dominique3829 · 21 Mars 2010

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 · 21 Mars 2010

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 · 21 Mars 2010

Re : Filtre sur couleur

Merci à toi JCGL
voici le fichier

JCGL · 21 Mars 2010

Re : Filtre sur couleur

Bonjour à tous,

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

Code:

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 · 21 Mars 2010

Re : Filtre sur couleur

Je te remercie,
je vais tester ça !

Bonne soirée à tous

dominique3829 · 21 Mars 2010

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 · 21 Mars 2010

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 :

Code:

    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 · 21 Mars 2010

Re : Filtre sur couleur

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

encore merci

Filtre sur couleur

dominique3829

XLDnaute Junior

Pièces jointes

JCGL

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

dominique3829

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

dominique3829

XLDnaute Junior

dominique3829

XLDnaute Junior

dominique3829

XLDnaute Junior

JCGL

XLDnaute Barbatruc

dominique3829

XLDnaute Junior

Pièces jointes

JCGL

XLDnaute Barbatruc

Pièces jointes

dominique3829

XLDnaute Junior

dominique3829

XLDnaute Junior

JCGL

XLDnaute Barbatruc

Pièces jointes

dominique3829

XLDnaute Junior

Discussions similaires