Microsoft 365 Apparition et disparition liste déroulante suivant choix

[Samy13]

Bonsoir tout le monde
Je suis à la recherche d'une formule pour faire apparaitre ou disparaitre une liste de choix suivant valeur d'une autre cellule.
cad : Cellule A = liste de choix de valeur
Cellule B = si valeur de la cellule A < à X alors = cellule C
sinon apparition liste de choix D
Merci

 

[mapomme]

Bonjour @Samy13,

Pas claire votre question . Un fichier avec un exemple aurait été le bienvenu .
Avec ce que j'en ai compris, un essai sans VBA et uniquement avec des formules et deux noms définis (dont un dynamique : maListe). Sans VBA, la méthode est forcément imparfaite.

Les commentaires sont dans le fichier.

Une MFC colore la cellule B1 en rouge si la valeur de la cellule B1 diffère de la liste de validation en B1.
La formule de la MFC est :

=ESTERREUR(EQUIV($B$1;maListe;0))

 

[Samy13]

Bonjour @mapomme,

Désolé ci-joint mon problème

 

[goube]

Bonjour Samy13, hello mapomme,
Une proposition avec un peu de VBA.
Cordialement.

 

[Samy13]

Bonjour @goube, @mapomme

Merci infiniment, on arrive presque au résultat souhaité, sauf que la liste déroulante ne disparait pas totalement lorsque C3 <= 85 et affiche automatiquement la valeur de E3 seulement, car déroulé une liste avec 1 seul choix c'est pas Tip Top car le but est :

"Apparition et disparition liste déroulante suivant choix"​

 

[goube]

Bonjour,
Reste calme, je réponds en fonction de mes connaissances. Si cela ne te convient pas, passe ton chemin.
Cordialement.

 

[Samy13]

Bonjour,
Reste calme, je réponds en fonction de mes connaissances. Si cela ne te convient pas, passe ton chemin.
Cordialement.

"Reste calme" ? "passe ton chemin" ?
c'est un forum pour résoudre et partager !
alors calme toi et passe ton chemin si tu n'as pas pu résoudre le problème comme il fallait

 

[goube]

re,
c'est un forum pour résoudre et partager ! c'est exact, tout comme écrire en majuscule correspond à crier. Est ce utile si une réponse ne te convient pas ?

 

[mapomme]

Bonjour à tous,

Voir le fichier joint. le code est dans le module de la feuille "Feuil1".

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Range("a1,c1"), Target) Is Nothing Then Exit Sub
    Range("b1").Validation.Delete
    If Range("a1") = "" Then
        Range("b1") = ""
    ElseIf Range("a1") < Range("K1") Then
        Range("b1") = Range("c1")
    Else
        Range("b1").ClearContents
        Range("b1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=$D$1:$D$9"
        Range("b1").Select
    End If
End Sub

 

[Samy13]

Merci et BRAVO @mapomme