Discussion :

[Alain BENOIST]

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.

[casefayere]

Bonjour Alain, le forum,
je pense que ton erreur vient de là

Code :

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

Operator:=xlBetween, Formula1:="A"

c'est,à mon avis :

Code :

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

Operator:=xlBetween, Formula1:="=A:A" 'ou exemple "=a1:a5" suivant ta liste

bonne journée

[Alain BENOIST]

Bonjour,

merci pour la réponse, mais le problème reste identique.
J'ai repris mot pour mot (par copier/coller) l'exemple fourni dans l'aide en ligne, dont théoriquement correct. L'erreur est toujours identique:
"La méthode 'Add' de l'objet validation a échoué"

Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
With Range("B2").Validation
    .Delete
    .Add Type:=xlValidateWholeNumber, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="5", Formula2:="10"
    .InputTitle = "Integers"
    .ErrorTitle = "Integers"
    .InputMessage = "Enter an integer from five to ten"
    .ErrorMessage = "You must enter a number from five to ten"
End With
 
End Sub

[casefayere]

Je ne suis pas sur de pouvoir t'aider mais sur quelle ligne l'erreur se produit t'elle ? (ligne en jaune)

[Alain BENOIST]

Sur la ligne .add ....

[casefayere]

Pour pouvoir t'aider, j'ai simplement enregistré une macro, en donnant personnalisé pour la validation et 5 pour la formule, voici le résultat pour add.

Code :

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

1
2
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="5"