[Excel] Liste de valeurs

Résolu/Fermé
deniooo Messages postés 36 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 16 juin 2008 - 11 juin 2008 à 10:38
deniooo Messages postés 36 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 16 juin 2008 - 11 juin 2008 à 12:22
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 ?!

Merci.
A voir également:

1 réponse

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
11 juin 2008 à 10:55
Bonjour,

Pas besoin de code : il suffit que tu utilises la fonction de validation :

- saisie de la liste dans une autre feuille et nommer la plage
- sélection de la colonne, puis Données, Validation
- Autoriser : Liste
- Mettre le nom de la liste (utiliser éventuellement F3 pour coller le nom)
- Mettre éventuellement une alerte d'erreur

m@rina
0
deniooo Messages postés 36 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 16 juin 2008 1
11 juin 2008 à 11:01
Parfait merci, je suis un boulet je n'avais pas vu le champs "liste" !!
je vais quand même faire ça en macro ça m'entrainera donc je vais lancer l'enregistrement macro et on verra bien :)
0
deniooo Messages postés 36 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 16 juin 2008 1 > deniooo Messages postés 36 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 16 juin 2008
11 juin 2008 à 12:22
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 hop la focntion marche parfaitement!!

Probléme résolu!
0