Filtre selon couleur

[Vilain]

Bonjour à tous,

J'ai un fichier comportant un certain nombre de lignes et de colonnes au sein duquel certaines informations sont écrites en rouge.
Je cherche à filtrer uniquement les lignes comportant au moins une informations en rouge.

Comment faire ?

Je joins un fichier pour ex.

Merci d'avance.

A plus

 

[TEMAGOULTFARID]

Bonjour Job75, merci pour ton retour, je vais abusé de tes connaissances , en PJ ton fichier et concernant ma demande , regarde sur l'onglet Feuil2 et serait il possible de filtrer non par texte mais couleurs de cellule .et sur la plage en exemple qui fait parti d mon projet .Avoir un bouton pour chaque couleur et un bouton pour enlever le filtre.A savoir que j'aurai plusieurs couleurs , mais je me basera sur les ligne de référence que tu mettra en changeant les code couleurs.Par avance , merci beaucoup

 

[job75]

Bonjour TEMAGOULTFARID, le forum,

Voyez ce fichier (5) et la macro :

Sub FiltrerCouleur(couleur%)
Dim decharge%, plage As Range, cel As Range, f As Range, n%
decharge = 100
Set plage = ActiveSheet.UsedRange
Application.ScreenUpdating = False
plage.EntireRow.Hidden = True
plage.EntireColumn.Hidden = True
For Each cel In plage
    If cel.Interior.ColorIndex = couleur Then
        Set f = Union(IIf(n, f, cel), cel)
        n = n + 1
        If n = decharge Then f.EntireRow.Hidden = False: f.EntireColumn.Hidden = False: n = 0: Set f = Nothing
    End If
Next cel
If n Then f.EntireRow.Hidden = False: f.EntireColumn.Hidden = False:
End Sub

Elle est appelée par 2 des 3 boutons :

Private Sub CommandButton1_Click()
FiltrerCouleur 3 'rouge
End Sub

Private Sub CommandButton2_Click()
FiltrerCouleur 6 'jaune
End Sub

Private Sub CommandButton3_Click()
Rows.Hidden = False
Columns.Hidden = False
End Sub

Notez qu'ici on affiche/masque les lignes et les colonnes.

Bonne journée.

 

[TEMAGOULTFARID]

merci dans toute les langues, une dernière question, il y a t il possibilité de déterminer une plage de cellules comme N6:Y dans mon projet?

 

[TEMAGOULTFARID]

OK c'est bon , c’était devant mes yeux , merci beaucoup et bonne journée et au plaisir