Discussion :

[Baluteaud]

Bonjour,

Operating Windows 7 Professional, Suite Office 2003, donc Excel 2003.

J'ai une erreur d’exécution 1004 (erreur définie par l'application ou 'objet) lorsque je veux créer une liste déroulante avec une condition SI comme par exemple : SI(Cellule X <>"";Liste)

J'ai utilisé l'outils, Macro - Nouvelle Macro pour écrire cette macro. Si je ne mets pas la condition SI, la macro se déroule sans erreur. En pièce jointe, un fichier Excel : Test.xls qui contient ces macros.

Je vous remercie par avance des réponses que je pourrais avoir et surtout la solution à ce petit problème.

ExcellementVotre,
Jean-Michel

If Target.Address = "$A$3" Then
Application.EnableEvents = False
Range("C3").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=SI($C$1<>0;Liste)" Erreur si je mets la condition : SI($C$1<>0;Liste)
.IgnoreBlank = True Pas d'erreur si : Formula1:="=Liste"
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Application.EnableEvents = True
End If

[antonysansh]

Bonjour Baluteaud,

Je ne pense pas qu'écrire la formule comme tu le fais soit correct par contre tu peux mettre ta condition sur la cellule C1 en mm que tu testes ton Target :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    If Target.Address = "$A$3" And [C1].Value <> 0 Then
        Application.EnableEvents = False
        Range("C3").Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Liste"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
        Application.EnableEvents = True
    End If

EDIT :
De plus tu mets les propriétés de ta validation au même niveau que leurs paramètres par default, étape inutile.
Tu peux simplifier comme ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Target.Address = "$A$3" And [C1].Value <> 0 Then
    Application.EnableEvents = False
    Range("C3").Select
    With Selection.Validation
        .Delete
         Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Liste"
    End With
    Application.EnableEvents = True
End If

[Baluteaud]

Merci Antony pour cette réponse très rapide et qui répond parfaitement à ma question. Simple, il fallait y penser. Parfois, je cherche l'impossible et la création automatique de la macro m'a forcé à chercher dans cette direction.

Encore mille merci.
Jean-Michel