Discussion :

[stryker973]

Bonjour bonjour,
je n'arrive pas à trouver comment faire pour que mes filtres automatiques puissent trier selon les couleurs de cellules.
Donc si vous avez des idées. Je pense à une macro selon laquelle le critere de tri serait interior.colorindex mais je ne sais pas l'écrire.
Merci de votre aide.

[tomy7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if range(" : ").font.colorindex = ... then

tu peux proceder comme ceci

[stryker973]

Euh en fait j'ai pas précisé mais ...
Je suis pas trop fan de VBA donc si tu pouvais détailler la macro ce serait sympa, et ensuite comment faire pour l'utiliser (je sais j'en demande beaucoup désolé).

[tomy7]

if Range(" : ").EntireRow.Interior.ColorIndex =... then ' ici le numero de ta couleur

..... ici tu mets le code que tu veux

end if

range: c'est ta gamme de ligne a scruter

[stryker973]

Alors je sais pas si ça répond vraiment à mon besoin. Je vais essayer d'être plus précis.
Il me faudrait un filtre automatique, avec la condition de pouvoir filtrer selon si la cellule est verte (code couleur 4), jaune (code couleur 6) ou rose (code couleur 7).
Apparemment tu me demandes de coder mes conditions mais je n'arrive pas à écrire la procédure.

[fring]

Bonjour,

en regardant ton fichier, tu as des cellules colorées un peu partout, tu peux préciser ce que tu souhaites faire ?

[tomy7]

si j ai bien compris tu veux mettre les cellules colorees de la meme couleur sur la meme ligne.?

[stryker973]

je veux réaliser un filtre automatique, jusque la, c'est pas dur, mais le filtre ne propose de filtrer que par rapports au valeurs dans la colonne, moi je veux filtrer par rapport aux couleurs de cellules presentes !

Ansi sur la colonne C, en cliquant sur un filtre automatique j'aimerais avoir la possibilité de filtrer sois par cellule verte, jaune ou rose et non pas par valeurs. Voila

[tomy7]

filtrer est un bien grand mots mais tu veux supprimmer les autres cellules, les masquer , regrouper toutes les cellules des memes couleur...

[stryker973]

Masquer les lignes qui ne contiennent pas, sur la colonne choisie, une cellule de la couleur choisie.

[tomy7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Integer
For i = 1 To 7
If Not Range("A" & i & ":G" & i).Interior.ColorIndex = 3 Then
Range("A" & i & ":G" & i).EntireColumn.Hidden = True
End If
Next i
 
End Sub

je dirai un code comme celui la mais a adapte

[stryker973]

Moi j'ai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MasquerLesLignes()
Dim c As Range
For Each c In Range("c1:c7")
If c.Interior.ColorIndex <> RGB(0, 255, 0) Then
c.EntireRow.Hidden = True
End If
Next
End Sub
 
 
Sub MontrerTout()
Cells.EntireRow.Hidden = False
End Sub

j'arrive à l'utiliser, ca fonctionne, mais c'est un peu lourd.
Y'a pas moyen d'automatiser tout ça dans la liste déroulante du filtre ? Plutôt que de changer les paramêtres de la macro a chaque changement de couleur ?

[cafeine]

Masquer les lignes qui ne contiennent pas, sur la colonne choisie, une cellule de la couleur choisie.

J'ai bricolé une solution avec les listes de validations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Dim prevValue As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim i As Long
Dim selColor As Long
 
On Error GoTo err01
If Target.Row = 1 And Target.Value <> prevValue Then
    If Target.Validation.Formula1 <> "" Then
        Select Case Target.Value
            Case "Tous"
                ActiveSheet.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Hidden = False
 
            Case Else
                selColor = Sheets(2).Range("listCouleurs").Find(Target.Value).Interior.Color
                For i = 2 To ActiveSheet.UsedRange.Rows.Count
                    If Cells(i, Target.Column).Interior.Color = selColor Then
                        ActiveSheet.Rows(i & ":" & i).Hidden = False
                    Else
                        ActiveSheet.Rows(i & ":" & i).Hidden = True
                    End If
                Next i
 
        End Select
        Target = prevValue
    End If
End If
 
 
Exit Sub
 
err01:
Err.Clear
 
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
On Error GoTo err01
If Target.Row = 1 Then
    If Target.Validation.Formula1 <> "" Then
        prevValue = Target.Value
        Debug.Print prevValue
    End If
End If
 
 
Exit Sub
 
err01:
Err.Clear
 
End Sub

et voici le fichier :

[stryker973]

J'ai regardé le fichier, c'est tout à fait ce que je voulais faire, par contre je trouve pas la procédure dans VBA.
Je te remercie.

[cafeine]

De rien, mais c'est normal le code est un module de classe de la feuil1

[Curl_]

Hello
Marrant , je tombe sur le post par hasard.(ce qui vaut ma récente inscription)

Ne faut il pas remplacer

Target = prevValue

par
prevValue = Target ?