Afficher toutes les lignes selon liste déroulante

Bonjour,

je n'ai jamais fait de macro de ma vie et j'aurais besoin d'un peu d'aide . J'ai récemment utilisé un code (ci joint) qui me permet d'afficher certaines lignes de mon tableau selon une liste déroulante que j'ai créé. Le code marche très bine mais je voudrais pouvoir sortir de la macro et donc afficher toutes les lignes si par exemple dans cette liste déroulante j'affiche "Tout".

Merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("C5")) Is Nothing And Target <> "" Then
        With Worksheets("outil")
            .Range("$C$8:$C$20").AutoFilter Field:=1
            .Range("$C$8:$C$20").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
            .Activate
        End With
    End If
End Sub

Bonjour Julast, bonjour le forum,

Non testé, essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
    If Target.Value = "Tout" Then
        With Worksheets("outil")
            If .FilterMode = True Then .Range("$C$8:$C$20").AutoFilter
        End With
        Exit Sub
    End If
    If Target <> "" Then
        With Worksheets("outil")
            .Range("$C$8:$C$20").AutoFilter Field:=1
            .Range("$C$8:$C$20").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
            .Activate
        End With
    End If
End If
End Sub

ça marche du feu !!

Merci pour ta réponse rapide

Bonne journée a toi

Rechercher des sujets similaires à "afficher toutes lignes liste deroulante"