Liste déroulante en macro automatique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Cedriccedric
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 31 octobre 2017
Version d'Excel : 2010 fr

Message par Cedriccedric » 31 octobre 2017, 13:56

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
Avatar du membre
bouben
Membre impliqué
Membre impliqué
Messages : 1'520
Appréciations reçues : 10
Inscrit le : 25 août 2014
Version d'Excel : 2010

Message par bouben » 31 octobre 2017, 14:22

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
Liste déroulante en macro automatique.xlsm
(13.77 Kio) Téléchargé 18 fois
C
Cedriccedric
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 31 octobre 2017
Version d'Excel : 2010 fr

Message par Cedriccedric » 31 octobre 2017, 17:45

parfait !!!

merci Bouben !!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message