Question bête - Variable et "Formula1:="

[Arnault30]

Hello

j'essaye de remplir une liste de validation à l'aide d'une macro comme ceci :

    With Selection.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:= [B]<Quelque chose qui est une variable>[/B]
    End With

Seulement voila, ça ne marche pas.
Dans mon cas plus précisemment j'ai

    With Selection.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:= [B]Res[/B] 
    End With

avec Res = $A$1;$A$2

Bien sûr si je place ma variable entre quotes c'est ne nom de la variable qui s'affiche dans la liste. hors moi je veux son contenu.

Merci pour votre aide

 

[mromain]

Re : Question bête - Variable et "Formula1:="

bonjour Arnault30,

à tester (avec Res du type String) :
Res = "=$A$1,$A$2"

a+

 

[RENAUDER]

Re : Question bête - Variable et "Formula1:="

Bonjour,
Essaies ceci

ActiveWorkbook.Names.Add Name:="RES", RefersToR1C1:=Range("A1:A2")
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:="=RES"
    End With

 

[Arnault30]

Re : Question bête - Variable et "Formula1:="

Rebonjour

Donc Renauder ta solution ne semble pas marche malheureusement,
Mromain, j'aimerais bien essayer ton idée, mais je ne sais pas comment ajouter à ma variable les deux quotes autours de celle ci.

J'ai essayer un truc du genre
Res = """ & Res & """ mais naturellement ça ne marche pas

 

[RENAUDER]

Re : Question bête - Variable et "Formula1:="

Bonjour Arnault,

Il faut que tu sélectionnes une plage où tu veux mettre ta liste de Données/Validation
avant de lancer la macro.

 

[Arnault30]

Re : Question bête - Variable et "Formula1:="

en effet et la construction de mon code tombe un peu à l'eau d'ailleurs. Bon je vais détourner le problème.
Merci pour votre aide.

 

[RENAUDER]

Re : Question bête - Variable et "Formula1:="

Bonjour,

Voici un exemple