Trie par couleur de cellule

Bonjour,

1997, c'est loin mais bon comment mets tu en couleur tes cellules, manuellement ou avec une mise en forme conditionnelle, si c'est le cas quel est la formule, si non ce sera difficile pour ne pas pouvoir tester le code qui si j'ai bonne mémoire était écrit en français

Re,

alors ça va être très difficile, je n'ai plus la possibilité de tester un code sous 1997 et je crains qu'on ne puisse te venir en aide

Re,

Ah oui, la ça commence à être sérieux, ce code masque toute les cellules couleur sauf les cellules jaunes à partir des couleurs rencontrées en colonne A entre A2 et A30 à adapter bien sur
si tu veux afficher que les cellule rouge par exemple il faut remplacer =6 qui est l'index couleur par =3

Sub Filtre_Couleur()
Dim i As Integer
Cells.EntireRow.Hidden = False
For i = 2 To 30
If Not Range("A" & i & ":A" & i).Interior.ColorIndex = 6 Then
Range("A" & i & ":A" & i).EntireRow.Hidden = True
End If
Next i
End Sub

Re,

tu peux perfectionner le code en faisant référence à une cellule contenant l'index couleur exemple tu saisis le code couleur dans la cellule G1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G1]) Is Nothing Then
Dim i As Integer
Cells.EntireRow.Hidden = False
For i = 2 To 30
If Not Range("A" & i & ":A" & i).Interior.ColorIndex = Target Then
Range("A" & i & ":A" & i).EntireRow.Hidden = True
End If
Next i
End If
End Sub