masquer lignes en VBA

[beberf]

Bonjour à tous,

J'ai un problème en VBA.
En 'C9' et en 'E12' j'ai le mot 'toto'.
Je voudrais masquer les lignes 9 et 12 car le mot 'toto' se trouve dans une cellule appartenant à ces lignes.
En fait, il faudrait qu'à chaque fois que le mot toto se trouve dans une cellule la ligne associé soit masqué.

@+
et merci d'avance pour toutes vos réponses

 

[galopin01]

bonjour,
beaucoup de variantes possibles autour de cette proposition :

Sub Test()
Range('C1:E20').Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:='<>toto', Operator:=xlAnd
Selection.AutoFilter Field:=3, Criteria1:='<>toto', Operator:=xlAnd
End Sub

En fait ça dépend plutôt de
ce qu'il y a 'autour' que de ce que tu cherches 'est-ce un tableau fini', 'la zone de recherche est-elle invariable'...
du critère de recherche (tu ne chercheras probablement pas que des 'totos'!
Si tu ne veux pas utiliser le filtre automatique, la problématique est la même :

Sub Test()
Dim i%, S$, oF As Range
rech = 'toto'
Set oF = Range(Columns(3), Columns(5)).Find(rech)
If Not oF Is Nothing Then
S = oF.Address
Do
i = oF.Row
Rows(i).EntireRow.Hidden = True
Set oF = Range(Columns(3), Columns(5)).FindNext(oF)
Loop While Not oF Is Nothing And oF.Address <> S
End If
End Sub

Ok ?