Bonjour,

j'essaye de créer une valiation dans une cellule d'un tableau excel (2003 SP3).
J'ai le message d'erreur suivant sur la ligne .Add ....:
"La méthode 'Add' de l'objet validation a échoué"

Le code très simplifié pour le moment est le suivant:

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
Private Sub CommandButton1_Click()
    With Range("A10").Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="A"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
 
    End With
End Sub
Merci de bien vouloir m'aider à résoudre ce problème qui me fait tourner en bourrique depuis hier.