[Excel] Liste déroulante et cells
Résolu
Bonjour,
J'aimerai introduire dans ma macro un code qui permettrait ceci :
Toute les cellules d'une colonne donnée ont pour champs une liste déroulante avec des valeurs que j'aurai fixé.
En gros on ne peut rien taper dans les cells juste cliquer sur un élément de la liste.
Une idée du code à introduire ?! j'ai déja ma boucle de parcours de colonne mais me manque la syntaxe pour la liste déroulante (et bien sûr la méthode pour lui définir ses champs.)
Merci.
J'aimerai introduire dans ma macro un code qui permettrait ceci :
Toute les cellules d'une colonne donnée ont pour champs une liste déroulante avec des valeurs que j'aurai fixé.
En gros on ne peut rien taper dans les cells juste cliquer sur un élément de la liste.
Une idée du code à introduire ?! j'ai déja ma boucle de parcours de colonne mais me manque la syntaxe pour la liste déroulante (et bien sûr la méthode pour lui définir ses champs.)
Merci.
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Salut,
tu pourrais utiliser la Validation (Données/Validation).
pour le code correspondant, vois ce que ça donne avec l'enregistrement automatique de macros.
I.-
Je ne suis vraiment pas doué en Excel graphique à la souri, et là ben.. ça ne marche pas ^^
je sélectionne ma cellule je fais données/validation/ et la je test avec des chiffres donc compris entre 1 et 5.
Mais cela ne me cré aucune liste déroulante dans la cellule, cette fonction ne fait que limiter les données que je peut entrer dans la cellule. Ce n'est pas du tout ce que je recherche.
Je me ré explique, il me faut introduire dans cells(x, Y).value une liste déroulante (enfin je pense que c'est dans la .value) dont j'aurais défini les champs.
En fait je doit faire ça pour uniformiser les systémes de données, histoire que les gens qui rempliront ce fichier ne tapent pas dans la colonne "priorité" le champs "TOP NIVEAU" alors que je cherche la valeur "P1" ..
j'espére que vous pourrez plus m'aider grâce à ces explications.
Edit : AHAHHAHAHAH je suis trop un boulet :D je n'avais pas vu le champs "liste" je vais voir ce que me sort la macro merci :)
-
-
Function ListeMOE(ByVal cel As Range)
listeval = "toto, bernard, henry, levi, gros, blaireau, autre"
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=listeval
End With
End Function
et voilà ça marche :)
Probléme résolu !
