Message d'erreur avec Validation.Add

Version imprimable

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:

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.

14/05/2009, 07h07
casefayere

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

Code:

Operator:=xlBetween, Formula1:="A"

c'est,à mon avis :

Code:

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

bonne journée

L'erreur persiste

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:

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

14/05/2009, 10h09
casefayere

Je ne suis pas sur de pouvoir t'aider mais sur quelle ligne l'erreur se produit t'elle ? (ligne en jaune)
14/05/2009, 10h16
Alain BENOIST

Sur la ligne .add ....
14/05/2009, 10h21
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:

1 2 .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="5"
14/05/2009, 10h44
Alain BENOIST

C'est toujours pareil.

Est-ce que ça fonctionne chez toi, et avec quelle version d'excel ?
14/05/2009, 11h27
Alain BENOIST

Problème résolu

Problème résolu.

En fait, j'appellais ma macro par un bouton.
Il faut tout simplement modifier une propriété de celui_ci:
TakeFocusOnClick = False

C'est tout bête, mais on se focalise sur le code alors le problème vient d'ailleurs.

Solution trouvé sur le forum:
http://www.developpez.net/forums/d31...feuille-excel/

Merci à casefayere pour son soutien