Masquer automatiquement les lignes à 0 en fonction d'une liste déroulante

Bonjour,

J'ai réussi à créer une macro VBA qui masque les lignes = 0 à l'aide de boutons. Y a t-il une possibilité VBA pour que ces lignes se masquent et se ré-affichent automatiquement sans bouton en fonction de la liste déroulante ? Je joins un fichier.

Merci de votre aide....

Hello,

Une solution dans la feuille résultat :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    Select Case Target
        Case Is = "B"
            Call Zero
        Case Is = "C"
            Call Affiche
    End Select
End If

End Sub

Merci pour votre retour rapide.

Je viens de tester votre formule, le problème c'est qu'une fois les lignes masquées, elles le restent lorsque je sélectionne une autre lettre dans la liste déroulante. Je ne suis peut être pas très claire ?

Bonjour,

Une proposition qui allie Power Query et VBA.
Cdlt.

Hello à tous,

elles le restent lorsque je sélectionne une autre lettre dans la liste déroulante

Ton premier message ne donnait que peu de pistes en effet ...

J'ai donc fait avec ce que j'avais ...

Maintenant tu peux essayer comme ceci (Toujours sur B & C, à toi d'adapter)

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    Select Case Target
        Case Is = "B", "C"
            Call Affiche
            Call Zero
    End Select
End If

End Sub

Merci Jean-Eric pour votre réponse.

Dans cette proposition, les valeurs = à 0 restent affichées et les lignes ne sont pas masquées. Je garde cependant votre fichier qui pourrait me servir mais je ne maitrise pas bien Power Query. Cdlt

Super ! Merci infiniment Rag02700, c'est exactement ce que je voulais.

C'est parfait !!!!!!!!

Re,

J'ai ajouté le filtre !...
Cdlt.

C'est parfait Jean-Eric, ça correspond tout à fait à mes attentes.

Mille mercis pour vos réponses.