Masquer des lignes en fonction de 3 conditions

Bonjour,

voila j'aimerai dans un tableau cacher les lignes si ce qui est inscrit dans la colonne E ne corresponds pas à "e" , "a" ou "o".

Pour le moment ca marche tres bien si je ne mets qu'une condition mais je ne sais pas comment mettre les trois .

Sub CacheEAU()

Dim I As Integer 'déclare la variable I (Incrément)

For I = 5 To 310 'boucle des ligne 5 à 310

If Left(Range("E" & I).Value, 3) <> "eau" Then 'condition : si les trois caractères a gauche de la cellule ligne E, sont differents de "Eau"

Rows(I).Hidden = True ' je cache la ligne

End If

Next I

End Sub

il me faudrait un truc du genre not in [a,e,o]

Sub CacheASECNSEUR()

Dim I As Integer 'déclare la variable I (Incrément)

For I = 5 To 310 'boucle des ligne 5 à 310

If Left(Range("E" & I).Value, 1) <> "e" or "a" or "o" Then 'condition : si une des trois conditions de la cellule ligne E, sont différents de "E"; "a" ou "o"

Rows(I).Hidden = True ' je cache la ligne

End If

Next I

End Sub

Bonjour,

Pour le principe avec les données en tableau ::

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:= _
        Array("a", "e", "o"), Operator:=xlFilterValues

euh je suis nulle mais je mets ca ou dans ma macro ?

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:= _

Array("a", "e", "o"), Operator:=xlFilterValues

Sub CacheASECNSEUR()

Dim I As Integer '

For I = 5 To 310

If Left(Range("E" & I).Value, 1) <> "e" or "a" or "o" Then

Rows(I).Hidden = True

End If

Next I

End Sub

Rechercher des sujets similaires à "masquer lignes fonction conditions"