Liste déroulante conditionnelle

Bonjour,

Je cherche, je cherche mais rien ne vient (bon il faut dire que mes connaissances Excel sont limitées) !

Voilà mon problème :

En cellule A27 j'ai le texte "Mise en conformité" ; en cellule B27 j'ai une liste déroulante avec le choix "oui" ou "non".

En cellule A28 j'ai le texte "Priorité" ; en cellule B28 j'ai une liste déroulante avec le choix 1, 2 ou 3.

Quand la réponse de la cellule B27 = oui, la cellule A28 se remplit avec le texte "Priorité"... jusque-là tout va bien.

Je voudrais que la liste déroulante de la case B28 ne s'active QUE si la réponse en B27 est "oui". (Si la réponse est "non" la cellule doit rester vide comme sa voisine A28... et là ça coince.

J'ai fait des essais avec diverses formules de listes en cascades glanées ça et là mais je tourne désespérément en rond.

Si quelqu'un avait une solution à me proposer...

Merci d'avance et meilleures salutations

Patrick

Bonjour

Code de Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B27")) Is Nothing Then
If Target = "oui" Then
Target.Offset(1, 0).Select
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1,2,3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    Else
    If Target = "non" Then
Target.Offset(1, 0).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    Range("B28").Select
    ActiveCell.FormulaR1C1 = ""

End If
End If
End If
End Sub

Cordialement

Bonjour Amadeus,

Merci pour ton aide et ta réponse.

Je ne pensais que c'était aussi complexe (en tout cas pour moi) de faire ces listes déroulantes conditionnelles. J'aurais encore pu chercher des jours je ne serais pas allé chercher dans le VBA car je n'y connais rien.

Je vais essayer ton code et te donnerai le résultat au plus vite.

Encore merci et à bientôt

Meilleures salutations

Patrick

Voilà Amadeus, j'ai collé ton code dans mon fichier et ça fonctionne à merveille.

Encore merci et meilleures salutations

Patrick