Validation des données en VBA : forcer source erronée

Bonjour,

Je génère dans mon tableur, et par VBA, une validation des données par une liste, dont le nom dépend du contenu d'une autre cellule.

Par exemple, la cellule A2 contient le texte "Tous les jours", et je souhaite avoir en B2 un choix parmi la liste Tous_les_jours, que j'ai créée dans une autre feuille.

Dans Excel, manuellement, j'utilise la formule

Code:

---

=INDIRECT(SUBSTITUE(A2, " ", "_"))

---

que j'insère dans le champ Formule du menu Validation des données, en sélectionnant Liste.

La source est reconnue comme erronée, je valide malgré tout, et le résultat me convient.

Cependant, je dois maintenant modifier dans une macro le nom de cette liste.

J'utilise :

Code:

---

1 2	Worksheets("Feuill1").Range("B2").Validation.Add Type:=xlValidateList, Formula1:="=INDIRECT(SUBSTITUE(A2;" & Chr(34) & _ " " & Chr(34) & ";" & Chr(34) & "_" & Chr(34) & "))"

---

J'obtiens une merveilleuse erreur 1004, que je mets sur le compte de la source erronée.

Comment puis-je contourner ce problème ?

J'espère avoir été clair dans mes explications.

Cordialement,

Mikro.

Salut,

Il faut écrire la formule selon la syntaxe anglaise:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Private Sub Validation()   With Worksheets("Feuil1").Range("B2").Validation .Delete .Add Type:=xlValidateList, _ Formula1:="=INDIRECT(SUBSTITUTE(A2,"" "",""_""))" .IgnoreBlank = True .InCellDropdown = True End With   End Sub

---

Vérifie le nom de la feuille parce qu'il me semble que tu avais fait une erreur.

Bonjour,

Merci pour cette réponse rapide.

Le nom de la feuille n'a pas d'importance, ce n'est pas celui que j'utilise, et je l'ai bien vérifié.

J'ai modifié la syntaxe pour la remplacer par l'anglaise, et j'ai toujours la même erreur... Je ne comprends pas du tout pourquoi.

Code:

---

1 2 3 4 5 6 7

With .Range("B2").Validation .Delete .Add Type:=xlValidateList, _ Formula1:="=INDIRECT(SUBSTITUTE(A2,"" "",""_""))" .IgnoreBlank = True .InCellDropdown = True End With

---

Cordialement,

Mikro.

Chez moi ça fonctionne l'erreur est donc ailleurs.

La liste 'Tous_les_jours' a bien une portée classeur ?
La cellule A2 contient bien le texte 'Tous les jours' ?

La liste a bien une portée classeur, en revanche la cellule A2 était vide.

Mon problème va donc être le suivant :

Parfois, la cellule Ax sera vide, néanmoins son contenu pourra changer, et je devrai adapter le contenu de Bx en fonction. En forçant la validation des données dans Excel, je n'ai pas de problème, puisque si Ax est vide, Bx ne me proposera pas de choix.

Par contre, il semblerait que je ne puisse pas forcer en VBA ?

Cordialement,

Mikro.

Re-bonjour,

J'essaie de rentrer une formule du type :

Code:

---

=IF(NOT(ISBLANK(A4)),INDIRECT(SUBSTITUTE(A4,"" "",""_"")),"""")

---

La formule marche, mais seulement si la cellule n'est pas vide, ce qui, bien entendu, ne m'intéresse pas.

Dois-je rajouter une valeur spéciale dans le cas où mon IF est à False ?

Mikro.