masquer lignes

[ccpapy]

bonjour, je souhaite masquer des lignes suivant la présence ou non d'une valeur dans la ligne. avec la recherche de la valeur sur une seule colonne je n'ai pas de soucis, mais sur plusieurs colonnes , je sèche. merci pour votre aide

 

[Papou-net]

Re : masquer lignes

Bonsoir ccpapy,

Voici ta macro adaptée:

Private Sub CommandButton1_Click()
If Range("B1").Value = "" Then Exit Sub
Dim cel As Range, lgn As Long

Rows.Hidden = False


For lgn = 6 To Range("A65536").End(xlUp).Row
  If Not Range("C" & lgn & ":E" & lgn).Find(Range("b1").Value, _
  LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then Rows(lgn).EntireRow.Hidden = True
Next

End Sub

A +

Cordialement.

 

[ccpapy]

Re : masquer lignes

bonsoir papou-net et merci pour cette rapidité j'ai juste changé if not range par if range vu que c'est l'inverse que je désirais... encore merci et bonne soirée