Liste de validation Excel en VBA Résolu

Question

Bonjour, 
Je voudrais placer dans un fichier Excel des listes de validation. Je cherche &#224; mettre cela par macro. Pour le faire je cr&#233;e une macro en automatique dans Excel, je la copie et je la colle dans mon code. 
Quand je fais cela la macro cr&#233;&#233;e est, en imaginant que je cherche &#224; mettre les valeurs 1, 2 et 3
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1;2;3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Mon probl&#232;me c'est qu'apr&#232;s execution de mon code, il me cr&#233;e bien une liste mais celle ci contient une seule ligne avec la 1;2;3. Si je retourne dans donn&#233;es validation, que j'appuie sur OK sans modifier quoi que ce soit il me remet la liste en forme sur 3 lignes. Je ne comprends vraiment pas ce qu'il faut que je fasse pour r&#233;soudre ce probl&#232;me en sachant que le fichier finale doit &#234;tre cr&#233;&#233; en automatique selon plusieurs crit&#232;res et je ne peux pas demander &#224; l'utilisateur d'aller valider chaque cellule.

Il y a aussi la solution, o&#249; l'on stock les donn&#233;es de la liste dans un plage de la feuille mais je ne trouve pas cela tr&#232;s propre &#233;tant donn&#233; que cette liste est sur plusieurs onglets et qu'il faudrait que je place mes &#233;l&#233;ments sur chacun d'eux. Ou alors il me faudrait trouver une solution pour alimenter ma liste avec des donn&#233;es contenues dans un autre onglet. 

J'esp&#232;re avoir &#233;t&#233; clair dans mon explication.
D'avance je vous remercie pour votre aide

cs_wape · Accepted Answer

Bon jour,

Essaye de remplacer les ";" par des "," dans le param&#232;tre Formula1 :

With Selection.Validation
        .Delete
        .Add Type:= xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=" 1,2,3 "
        .IgnoreBlank  = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

wape

cs_lucio57 · Answer

C'est nickel &#231;a marche merci beaucoup ! Donc pour r&#233;sumer la macro qu'il me cr&#233;e est fausse !

Liste de validation Excel en VBA

2 réponses

Discussions similaires