Discussion :

[Sadar007]

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

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

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 :

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

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 !

[jfontaine]

Bonjour,

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

Le code reste a adapter

Code :

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

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

[Sadar007]

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

[Daranc]

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

Code :

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

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

ça ne pourais pas coller?