Liste de validation et séparateur

Bonjour,

Via une requête SQL DAO, je charge une liste de validation via des champs contenants des "," (virgule). Je ne souhaite pas passer par un nom de variable du type Range(Lignes, Colonnes) car la requête en question peut tout aussi bien ramener du numérique que de l'alpha avec... des virgules :oops:

Du coup je me retrouve avec une liste de validation avec des sauts de lignes à chaque "," :calim2:

J'ai essayé de mettre un chr(34) (") devant et après chaque champ sans résultat probant. Bref je sèche là...ce qui est agaçant c'est que le séparateur de liste en mode intéractif est le ";" alors qu'en VBA pas moyen de mettre autre chose que ","

Je dois préciser que le code de séparation des champs via VBA est...","

Je charge via un bout de code ressemblant à ça, sachant

Code:

---

1 2 3 4 5 6 7 8

for x = 1 to Max   FString = FString & Sheets("AA").Range("B" & x) & ","   Next x   Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:=FString

---

Toute idée serait la bienvenue !

Bonjour,

Une méthode pour palier a ce problème est d'utiliser les pages nommées

Le code reste a adapter

Code:

---

1 2 3 4

ActiveWorkbook.Names.Add "plage", "=AA!B1:A13"   Range("A1").Validation.Add xlValidateList, xlValidAlertStop, xlBetween, "=plage"

---

Malheureusement je ne puis utiliser ce type de solution, car je suis dans le cadre d'affichage dynamique.

Merci tout de même de la réponse :ccool:

la solution de jfontaine avec une plage nommée dynamique?

Code:

---

plage= sheets(x).range("a1:a" & range("a1").End(xlDown).Row)

---

ça ne pourais pas coller?