Liste de validation Excel en VBA [Résolu]

cs_lucio57 146 Messages postés lundi 10 février 2003Date d'inscription 25 juillet 2007 Dernière intervention - 4 août 2005 à 09:09 - Dernière réponse : cs_lucio57 146 Messages postés lundi 10 février 2003Date d'inscription 25 juillet 2007 Dernière intervention
- 4 août 2005 à 09:27
Bonjour,
Je voudrais placer dans un fichier Excel des listes de validation. Je cherche à mettre cela par macro. Pour le faire je crée une macro en automatique dans Excel, je la copie et je la colle dans mon code.
Quand je fais cela la macro créée est, en imaginant que je cherche à 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ème c'est qu'après execution de mon code, il me crée bien une liste mais celle ci contient une seule ligne avec la 1;2;3. Si je retourne dans donné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ésoudre ce problème en sachant que le fichier finale doit être créé en automatique selon plusieurs critères et je ne peux pas demander à l'utilisateur d'aller valider chaque cellule.

Il y a aussi la solution, où l'on stock les données de la liste dans un plage de la feuille mais je ne trouve pas cela très propre étant donné que cette liste est sur plusieurs onglets et qu'il faudrait que je place mes éléments sur chacun d'eux. Ou alors il me faudrait trouver une solution pour alimenter ma liste avec des données contenues dans un autre onglet.

J'espère avoir été clair dans mon explication.
D'avance je vous remercie pour votre aide
Afficher la suite 

2 réponses

cs_wape 262 Messages postés samedi 21 décembre 2002Date d'inscription 19 décembre 2010 Dernière intervention - 4 août 2005 à 09:16
+3
Utile
Bon jour,

Essaye de remplacer les ";" par des "," dans le paramè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
Cette réponse vous a-t-elle aidé ?  
cs_lucio57 146 Messages postés lundi 10 février 2003Date d'inscription 25 juillet 2007 Dernière intervention - 4 août 2005 à 09:27
0
Utile
C'est nickel ça marche merci beaucoup ! Donc pour résumer la macro qu'il me crée est fausse !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.