Liste déroulante avec condition

Salut à tous,

J'aimerais savoir s'il était possible de faire l'opération suivante sous excel sans vba :

Exemple :

Si A23=1

alors proposer dans A25 la liste déroulante S17 à S24

Merci d'avance

Bonjour,

Dans VBE :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$23" Then
    If Target.Value = "1" Then
        Range("A25").Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=$S$17:$S$24"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    Else
        Range("A25").Select
        With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

    End If

End If
End Sub

Essaye et dis nous.

Damien

merci bcp

J'essaye ça et je vous tiens au jus

Bonjour

Je t'ai mis une réponse (sans VBA)

https://forum.excel-pratique.com/excel/liste-deroulante-avec-condition-t30921.html

Bon je ne sais pas si c'est trop vous demander :

Je ne maîtrise qu'un peu la programmation sous Matlab donc VB pas trop.

Ce que je viens de faire :

J'ai copié collé ton prog. dans VB (Alt+F11) puis je l'ai affecté les lignes de code sur la feuille concernée. J'ai modifié en changeant les cellules pour être dans mon cas précis.

Ensuite j'ai fait

Compiler, Exécuter, Enregistrer ....... Mais ça ne marche pas.

Ce que je veux faire en réalité :

Si dans feuille3 A72=1

Alors proposer dans feuille3 la liste déroulante de la feuille 2 de S17 à S24

Sinon Si dans la feuille3 A72=2

Alors proposer dans feuille3 la liste déroulante de la feuille 2 de S25 à S32

Sinon Si dans la feuille3 A72=3

Alors proposer dans feuille3 la liste déroulante de la feuille 2 de S33 à S40

Sinon Si dans la feuille3 A72=4

Alors proposer dans feuille3 la liste déroulante de la feuille 2 de S41 à S42

Sinon Si dans la feuille3 A72=néant

Alors pas de liste déroulante

Vous êtes très réactifs en tout cas Merci

Bonjour

Une suite toujours sans VBA

Super, un grand merci !

c'est résolu