masquer lignes

ccpapy · 13 Juin 2013

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 · 13 Juin 2013

Re : masquer lignes

Bonsoir ccpapy,

Voici ta macro adaptée:

Code:

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 · 13 Juin 2013

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

masquer lignes

ccpapy

XLDnaute Impliqué

Pièces jointes

Papou-net

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Discussions similaires

masquer lignes

ccpapy

XLDnaute Impliqué

Pièces jointes

Papou-net

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency