Création d’un menu déroulant en VBA

Bonjour,

Je souhaiterais pouvoir créer un menu déroulant via vba.

A l’aide de l’enregistreur de macro sur un autre fichier, j’ai pu arriver au code suivant :

With feuille.range(« A1 »). Validation

.Delete

.Add Type:= xlValidatelist, AlertStyle := xlValidAlertStop, Operator_

XlBetween, Formula1:=« Oui;Non »

.Ignoreblank=True

.IncellDropdown = True

.InputTitle=« »

.ErrorTitle=« »

.inputMessage=« »

.errorMessage=« »

.showInput= True

.Showerror = True

End with

Seulement lorsque je le reproduis sur mon fichier, il m’affiche un message d’erreur au niveau du .Add Type : 1004: définie par l’application ou par l’objet

Pourriez vous m’aider ?

Merci

Bonjour,

Essaye comme cela

    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Oui,Non"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Cordialement.

Bonjour,

il faut mettre une , au lieu de ;

à tester,

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Oui,Non"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Bonjour et merci pour vos réponses.

Malheureusement cela n’a absolument rien changé...