Liste déroulante à choix multiple Excel 2007 Résolu

Question

Bonjour, 

Je suis un vraiment newbe d'Excel. Je dois préparer un masque de saisie.
Et il me serait très utile d'avoir une liste déroulante (ça j'ai fait avec "validation des données") ou l'on puisse choisir plusieurs modalités.
En fait, il s'agit de déplacement, genre: voiture, à pied, bus, etc. Et ces modes de transport peuvent se succéder.

Le top serait d'avoir l'ordre du choix mais si j'ai déjà un choix multiple, je serais comblé

Une idée ?

Merci d'avance

Configuration: Windows XP / Firefox 3.6.11

pijaku · Accepted Answer

Et bien allons y.

I/ Création
1- Tu ouvres ton classeur,
2- Tapes ALT+F11 (ou Outils/Macros/Visual Basic Editor)
3- Insertion/UserForm
4- Adaptes en la forme à la taille désirée,
5- Sur la gauche de ton écran tu dois avoir une fenêtre "propriétés". Si ça n'est pas le cas, appuies sur F4. Dans cette fenêtre cherche la propriété "caption". Dans la cellule à côté change le UserForm1 par le titre que tu souhaites (ex : Ma Liste Multiple). !!! ATTENTION : ne change pas la propriété Name !!!!!
6- Clic sur ton UserForm. Normalement, une boîte à outils apparait. Non? et bien : Affichage/Boîte à Outils
7- Dans cette boîte à outils cherche (et trouve) le contrôle : "zone de liste". Clic dessus et va dessiner ta zone de liste dans ton UserForm
8- Toujours dans la boîte à outils cherche (et trouve) le contrôle : "Bouton de commande". Clic dessus et va dessiner ton boutondans ton UserForm.
9- Simple clic sur le bouton (dans le UserForm) et va changer la propriété (fenêtre propriétés... Mais si à gauche de l'écran, F4, tout ça...) "caption" remplacer CommandButton1 (ex : VALIDER). !!! ATTENTION : ne change pas la propriété Name !!!!! ;-) Tu t'y attendais? Non? Ah bon...
10- Tu peux également changer l'apparence de ton bouton en changeant les propriétés : BackColor, Font, ForeColor. Idem pour l'UserForm (simple clic dessus et hop hophop, tu as accès à ses propriétés)

II/ Les Codes VBA
Là ça devient sérieux, on arrête de bricoler!!
1- Double clic sur le bouton de commande dans ton UserForm. Une nouvelle fenêtre apparait avec dedans :
Private Sub CommandButton1_Click()

End Sub
2- Supprime ces deux lignes et à la place, copie / colle tout ce code :
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
        End If
    Next i
With Sheets("Feuil1")
.Range("C4") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("C5").Activate
End With
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear

Derlig = Sheets("Feuil1").Cells(65536, 9).End(xlUp).Row
    For i = 1 To Derlig
        ListBox1.AddItem Cells(i, 9).Value
    Next i
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox1.Selected(i) = False
        End If
    Next i
End Sub
3- Les 9 dans les parties en gras dans le code ci dessus sont à adapter selon l'endroit ou tu as mis tes données de remplissage de ta liste. 9 = 9ème Colonne (Colonne I)
3 bis- Dans la ligne : Derlig = Sheets("Feuil1").Cells(65536, 9).End(xlUp).Row, "Feuil1" est le nom de la feuille ou se trouve la liste des données. A remplacer par le nom de votre feuille (entouré de "")
3 ter- "C4" dans : .Range("C4") = Left(ValeurARetourner, Len(ValeurARetourner) - 3) est la cellule dans laquelle vous voulez envoyer vos choix 
.Range("C5").Activate à adapter également
With Sheets("Feuil1") Feuil1 à remplacer aussi...
4- Ferme Visual Basic Editor (fichier / fermer et retourner sous excel ou ALT+Q)
5- Clic droit sur l'onglet de la feuille concernée par le UserForm (feuille ou tu souhaites voir apparaitre le résultat) / Visualiser le code
Nouvelle fenêtre visual basic. Copie / colle y ce code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$4" Then
    Target.Value = ""
    Load UserForm1
    UserForm1.Show
End If
End Sub
Ici "$C$4" est la cellule dans laquelle tu va à l'avenir double cliquer pour lancer le UserForm. A adpater donc...
6-  Ferme à nouveau Visual Basic (Alt+Q) et teste en double cliquant sur C4 (ou ce que tu aurs bien voulu choisir).

J'ai fait de mon mieux pour que ces explications soient le plus claires possibles. En cas d'erreur, n'hésite pas à revenir ici.

pijaku · Answer

Bonjour,
Désolé mais :
Le top serait d'avoir l'ordre du choix mais si j'ai déjà un choix multiple, je serais comblé 
La j'ai pas tout compris... Pourrais tu nous mettre (grâce à https://www.cjoint.com/index.php un fichier exemple, sans données confidentielles et en évitant les formats .xlsx, préférer .xls, qu'un max de gens puisse t'aider.

(lapin compris? Non! Lapon compris...)

studio103 · Answer

Bonjour,

J'ai rien sous la main, tout est au boulot. Mais concretement, ce que je veux c'est pour une même cellule avec une liste déroulante de modalité de réponse, la personne puisse choisir plusieurs modalité (un trajet ou on aurait utilisé la voiture et puis le tram, choisir voitur et tram, par exemple).

Je posterai un ex. demain

Merci pour la réponse

pijaku · Answer

Bonjour,
Vous avez alors deux choix :
- Validation/Données : dans ce cas il vous faudra écrire manuellement toutes les combinaisons possibles.
- par VBA : regardez ce classeur exemple et dites moi si cela convient. Si ok, je vous explique la démarche pour l'appliquer à votre classeur excel.

studio103 · Answer

MErci pijaku pour la réponse,

effectivement la méthode VBA est pertinente. C'est même exactement ce que je souhaite !

Je veux bien être initié !!!

Merci

studio103 · Answer

Merci pijaku,

J'ai essayé quelques fois sur mon fichier d'origine qui contient déjà pas mal de macros, qui ne sont pas de moi. Donc c'est peut être pour cela que ça ne fonctionne pas du tout comme je le souhaite. 
Notamment: 
- la liste est issue de la feuille de destination alors que les modalités de listes sont sur une feuille à part (pourtant j'ai bien respecté tes consignes). 
- Il n'y a pas de sélection multiple comme dans ton exemple mais un seul item sélectionné.
- Le bouton validation ne faire rien. Il ne valide pas les réponses. On est obligé de fermer la userform

J'ai essayé sur un fichier à part, en mettant ma liste d'une part, la case de destination d'autre part, et je rencontre encore des problèmes:
- aucune modalité n'apparaît  
- en appuyant sur valider, il me propose un débuggage sur la ligne en gras:
With Sheets("Lundi")
.Range("B4") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("B5").Activate

En revanche quand je fais cela sur la même page ça fonctionne (mise à part le choix multiple)

Qu'en dis tu ?

studio103 · Answer

Bonjour Pijaku,

J'ai remplacé les parties que tu m'as indiqué. Tout fonctionne (la box apparaît, le multi est activé, on a la bonne liste) sauf l'essentiel: le bouton "valider" ... qui ne valide pas. On est obligé de forcer la fermeture sans avoir pu choisir.

Une idée ?

studio103 · Answer

1- J'ai du faire une petite entorse à tes indications. J'ai touché à la propriété "Name" puisqu'en fait, un bouton de commande c'était caché derrière la Listebox (du coup dans le code j'avais d'abords "Commandbutton1_click" puis "Commandbutton2_click") => résultat ça fonctionne du feu de dieu !!!! Merci 1000 fois 

2- Je me suis mal exprimé: en fait, il s'agit de renseigner le mode de déplacement sur une dizaine de trajets (soit une dizaine de lignes). Donc la question c'est: est ce que je doit reprendre le code pour les cases F6, F7, F8, etc. ou et ce que je peux changer le code pour que le choix se fasse non plus sur une seul case mais sur plusieurs (pas simultanément mais une case pour chaque déplacement ...). Je sais pas si c'est vraiment plus claire ...  

En tout cas merci pour tout ce que tu as déjà fait pour mon problème !!!!

studio103 · Answer

Ok - j'ai essayé et il m'indique une erreur de compilation. J'ai fait une capture d'écran: https://www.cjoint.com/?0kDo8a4ZyVD 

Comme on est plus à une complication près, il faudrait que le choix se fasse aussi sur plusieurs feuilles (du lundi au dimanche) ... je sais j'en demande bcp bcp !

Merci d'avance

studio103 · Answer

Merci ça fonctionne nikel !!!!

rprrlt · Answer

Bonjour,

J'ai un petit problème.

J'ai utilisé cette macro pour faire une listbox à choix multiple qui va mettre toutes les valeurs sélectionnées, séparées par des points-virule dans une cellule.
Néanmoins, j'aurais besoin de sélectionner ces mêmes données mais que les valeurs qui seront affichées dans la cellule spécifiée soient celles de la colonne à droite de celle contenant les données. En gros dans la colonne C, j'ai une liste de noms, qui vont apparaitre dans la zone de liste à choix multiples et dans la colonne D les adresses emails correspondantes. Je voudrais donc sélectionner les noms et avoir dans une cellule les adresses mails, séparées par des points-virgules.

Un exemple vaut mieux qu'un discours, vous trouverez ici https://www.cjoint.com/c/2bunSq6okrQ mon classeur. Pour l'instant, je sélectionne les noms et ce sont les noms qui s'affichent dans la cellule cible.

Une âme charitable pourra m'aider ?

Encore merci d'avance !!!

R.

Bobby75 · Answer

Bonjour,

J'ai utilisé vos listes de codes, mais je souhaiterai pouvoir avoir 2 menus déroulants à choix multiples sur la même feuille.

J'ai donc créer deux userforms en renseignant toutes les lignes de code aqéquat.

Il me manque simplement la ligne de code a associé à la feuille excel. La manip suivante ne fonctionne, en effet, pas:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L2: L36")) Is Nothing Then
 Exit Sub
Else
    Target.Value = ""
    Load UserForm1
    UserForm1.Show
End If
If Intersect(Target, Range("N2: N36")) Is Nothing Then
Exit Sub
Else
    Target.Value = ""
    Load UserForm2
    UserForm2.Show
End If
End Sub

Damich · Answer

J'ai testé cette macro ! 

Au final, lorsque je clique sur la cellule, le listing n'apparait pas. 

De plus une erreur d'execution '6' apparaît . Il s'agit d'une erreur de dépassement de capacité. (Qu'est ce que cela veut dire ?) 

Le listing que j'essaie de faire correspond à des noms de rue et il y a près de 300 noms ! 

Quelqu'un peut m'aider ?

the_audrey · Answer

Bonjour, 
Pour mon stage, j'utilise une macro de liste déroulante à sélection multiple (comme la première donnée dans ce sujet) et souhiate maintenant l'appliquer à plusieurs cellules (de B3 à B21 inclus). Que dois-je modifier pour y arriver ?
Merci d'avance pour votre aide

PS : Voici une copie de la macro
Option Explicit

Private Sub ListBox1_Click()

End Sub

Private Sub Valider_Click()
Dim i As Byte
Dim ValeurARetourner As String
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
        End If
    Next i
With Sheets("PARC PRESSES")
.Range("B3") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("C3").Activate
End With
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear

Derlig = Sheets("PARC PRESSES").Cells(65536, 5).End(xlUp).Row
    For i = 1 To Derlig
        ListBox1.AddItem Cells(i, 5).Value
    Next i
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox1.Selected(i) = False
        End If
    Next i
End Sub

julieha · Answer

Bonsoir Pijaku

J'ai également tout suivi mais cela ne fonctionne pas : ma case est active, mais la liste n'apparaît pas, ni le bouton valider. 
J'ai pourtant bien suivi vos échanges et supprimer au fur et à mesure les erreurs de codes. 

Pourriez-vous selon ce qui vous arrange :
- Jeter un rapide coup d'oeil à mon fichier et m'indiquer l'erreur : http://we.tl/S4jjA6mNMS
- M'indiquer la nouvelle conversation afin de trouver un sauveur 

Merci par avance de votre retour

Julieha

PS : Bravo car en tant que novice, j'ai trouvé plein de solutions sur différents forum, la votre étant la seule que l'on puisse suivre en toute simplicité! Merci

gauden01 · Answer

Bonjour, encore un petit up de plus.
Je me suis servi de ce petit tuto très bien fait pour mon application qui fonctionne très bien. 

Je double-clique sur une cellule de ma plage F1:F36. Lancement du formulaire; choix de plusieurs éléments dans la liste; clique sur le bouton. Tous les choix s'ajoutent dans la cellule où l'on a double cliqué.

Toutefois j'aimerais mettre 3 ListBox sur mon userform au lieu de une.
Jusque là pas de soucis.J'ai donc ajouté les deux autres de la même manière que la première.

Mais ensuite comment faire pour que lorsque l'on clique sur le bouton on récupère dans la cellule les sélection dans la listbox1 
ET
celle de la listbox2 ET celle de la listbox3

Je poste mon fichier si qqn aurait une solution ça me rendrait un grand service

https://www.cjoint.com/c/EBcqUyzXPG4

stephhubert · Answer

Bonjour à toutes et tous,
Merci beaucoup pour ce tableau (le dernier posté par gauden01) tout simplement génial et magique !!!
Du coup, je me dis qu'il me faudrait trouver une approche simple pour appréhender les bases vba.
Merci encore !
Stéphane.

mimie22 · Answer

Bonjour à tous, 

Tout d'abord un grand merci pour les infos au dessus, comme dit stephhubert c'est tout simplement magique. 

J'ai mon fichier avec ma liste déroulante (1) VBA qui s'affiche par double click avec choix multiple sur la colonne C et j'ai créer une seconde liste déroulante (2) VBA avec choix multiple pour la colonne D. 

Indépendamment elle fonctionne toute les deux, mais quand je veux qu'elle fonctionne toute les 2, seul le double Click en Colonne C fonctionne et ouvre la liste déroulant 1, lorsque je double click dans la colonne D je rentre simplement dans la cellule. 

Si quelqu'un peut venir à mon secours, voici mon code pour le double_click : 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C6:C220")) Is Nothing Then
Exit Sub
Else
   Target.Value = ""
    Load UserForm1
    UserForm1.Show
    End If
    
If Intersect(Target, Range("C6:C220")) Is Nothing Then
Exit Sub
Else
    Target.Value = ""
    Load UserForm2
    UserForm2.Show
    End If
End Sub

Merci d'avance...

fval · Answer

Bonjour, 
merci beaucoup pour tous les bons conseils fournis sur cette page!! 
J'arrive a créer jusqu'à deux menus déroulants sur une même feuille. Cependant je dois avoir 5 menus déroulants se déclenchant respectivement dans des colonnes spécifiques. Par exemple, une liste pour la colonne M; une autre pour la colonne O; une autre pour la colonne Q; une autre pour la colonne S et une autre pour la colonne S. 
Le code de ma feuille est actuellement le suivant: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
temp = Array("X", "") 
If Not Application.Intersect(Target, Range("J5:J1000")) Is Nothing Then 
With Target 
P = Application.Match(Target, temp, 0) 
If Not IsError(P) Then 
If P = UBound(temp) + 1 Then P = 0 
Else 
P = 0 
End If 
Target = temp(P) 
Cancel = True 
End With 
End If 
If Intersect(Target, Range("M5:M1000")) Is Nothing Then 
Target.Value = "" 
Load UserForm2 
UserForm2.Show 
ElseIf Intersect(Target, Range("O5:O1000")) Is Nothing Then 
Target.Value = "" 
Load UserForm1 
UserForm1.Show 
ElseIf Intersect(Target, Range("Q5:Q1000")) Is Nothing Then 
Target.Value = "" 
Load UserForm3 
UserForm3.Show 
ElseIf Intersect(Target, Range("S5:S1000")) Is Nothing Then 
Target.Value = "" 
Load UserForm4 
UserForm4.Show 
ElseIf Intersect(Target, Range("U5:U1000")) Is Nothing Then 
Target.Value = "" 
Load UserForm5 
UserForm5.Show 
End If 
End Sub 
Merci de votre aide!

Liste déroulante à choix multiple Excel 2007

19 réponses

Votre réponse

Discussions similaires

Newsletters