Masquer ligne si conditions

[AOG]

Bonjour à tous et bonne soirée

Quelqu’un aurait-il la solution pour arriver au résultats ci-dessous, je souhaiterais insérer une formule dans une macro existante pour:

Surligner en jaune les cellules dans la colonne E où figure les mots SEAL ou PLACARD ou COLLARD

Merci d’avance pour votre précieuse aide

 

[AOG]

Re : Masquer ligne si conditions

Bonjour
Quelqu’un aurait-il la solution SVP ?
Cordialement

 

[Benjy]

Re : Masquer ligne si conditions

Bonjour par macro je ne sais pas mais tu peux passer par la MFC...
Format - mise en forme conditionelle - la formule est :
=ou(E1="seal";E1="Placard";E1="Collard")

Puis cliquer sur style et affecter un arrière plan jaune.

 

[Efgé]

Re : Masquer ligne si conditions

Bonjour AOG, Benjy,
Je ne peux pas ouvrir l'exemple donc je propose une macro qui "semble respecter la demande"...

Sub Couleur()
liste = "SEAL,PLACARD,COLLARD"
With Sheets("Feuil1")
    .Range("E2:E" & .Range("E" & Application.Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone
    For Each Cell In .Range("E2:E" & .Range("E" & Application.Rows.Count).End(xlUp).Row)
        If InStr(liste, Cell & ",") <> 0 And Cell <> "" Then
            Cell.Interior.ColorIndex = 6
        End If
    Next Cell
End With
End Sub

Cordialement

 

[Efgé]

Re : Masquer ligne si conditions

Re
Un oubli dans le code (en rouge) et la possibilité de choisir de masquer les lignes, puisque le titre du fil est "masquer lignes" et que la question porte sur "Surligner en jaune les cellules " ...

Sub Couleur2()
liste = "SEAL,PLACARD,COLLARD[COLOR=red][B],[/B][/COLOR]"
With Sheets("Feuil1")
   [COLOR=seagreen]'Remise à blanc des motifs de cellules[/COLOR]
    .Range("E2:E" & .Range("E" & Application.Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone
   [COLOR=seagreen]'Affichage des lignes (si option masquées)[/COLOR]
[COLOR=seagreen]  'Cells.EntireRow.Hidden = False[/COLOR]
    For Each Cell In .Range("E2:E" & .Range("E" & Application.Rows.Count).End(xlUp).Row)
        If InStr(liste, Cell & ",") <> 0 And Cell <> "" Then
            '[COLOR=seagreen] Motif de cellule Jaune[/COLOR]
            Cell.Interior.ColorIndex = 6
            [COLOR=seagreen]'Pour masquer la ligne:[/COLOR]
[COLOR=seagreen]          'Cell.EntireRow.Hidden = True[/COLOR]
        End If
    Next Cell
End With
End Sub

 

[Efgé]

Re : Masquer ligne si conditions

Re
Maintenant que j'ai pu ouvrir l'exemple fait avec 2007 🙄.....

Sub Couleur3()
liste = "SEAL ,PLACA,COLLA,"
Set plage = Sheets("Feuil1").Range("E1:E" & Sheets("Feuil1").Range("E" & Application.Rows.Count).End(xlUp).Row)
plage.Interior.ColorIndex = xlNone
    For Each Cell In plage
        If InStr(liste, Left(Cell, 5) & ",") <> 0 And Cell <> "" Then
            Cell.Interior.ColorIndex = 6
        End If
    Next Cell
End Sub

Cordlalement