Bonjour à tous,
Je souhaite masquer des lignes suivant la valeur d'une cellule et j'y arrive très bien.
Par contre, je souhaiterai que si la cellule est égale à "tous", toutes les lignes s'affichent. Et là, je n'y arrive pas!
Ci-dessous ma macro
Sub Test1()
With Sheets("Index")
If "A24" = "tous" Then
Sheets("A-1").Lines("1:508").Hidden = False
Else
Sheets("A-1").Range("A8").AutoFilter Field:=5, Criteria1:=Sheets("Index").Range("A24").Value, Operator:=xlAnd
End If
End With
End Sub
Merci de votre aide!
Je souhaite masquer des lignes suivant la valeur d'une cellule et j'y arrive très bien.
Par contre, je souhaiterai que si la cellule est égale à "tous", toutes les lignes s'affichent. Et là, je n'y arrive pas!
Ci-dessous ma macro
Sub Test1()
With Sheets("Index")
If "A24" = "tous" Then
Sheets("A-1").Lines("1:508").Hidden = False
Else
Sheets("A-1").Range("A8").AutoFilter Field:=5, Criteria1:=Sheets("Index").Range("A24").Value, Operator:=xlAnd
End If
End With
End Sub
Merci de votre aide!