Liste déroulante en macro automatique

Bonjour'.

Je suis tout jeune dans la création de code.

Dans la cellule "a5", j'ai créé une liste déroulante : validation de donnée par liste et sélection "e5:e7"

Selon le nom que j'ai sélectionné dans cette liste déroulante, j'aimerai qu'une liste déroulante apparaisse en "b5"

Tel que si je sélectionne "Fred" en "a5" apparaisse une liste déroulante en "b5" avec choix" À,B ou C".

Mais que cette liste déroulante n'apparaisse pas si je choisis "Greg" ou "Francois".

Est ce possible ?

J'ai écrit ce code, mais du coup la liste déroulante ne disparaît pas si je change et que je choisis "Greg" ou "Francois"

Primate sub worsheet_change (byval Target as range)

If Not Application.Intersect(Target, Range("A5")) Is Nothing Then

ElseIf Range("A5") = "greg" Then

Range("B5").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="A,B,C"

End With

End If

End Sub

Merci de votre aide

Bonjour,

Ci-joint une proposition à tester et à adapter.

N'hésite pas à fournir un fichier d'exemple, plus simple pour comprendre ...

Bonne journée

Bouben

parfait !!!

merci Bouben !!

Rechercher des sujets similaires à "liste deroulante macro automatique"