Liste déroulante choix multiple

Rebonjour,

Merci de votre toujours grande rapidité à répondre. Comme le dit votre phrase, je crois que je n'ai pas été claire dans ma question :) J'aimerais vous envoyer un exemple, mais je ne vois comment inclure un fichier (désolée!!).

Je n'ai pas plusieurs feuilles. Dans ma feuille 1 (entreprise), dans la colonne A, j'entre le nom d'une entreprises (ce nom ne vient pas d'une liste) et dans les colonnes suivantes j'entre des infos pour cette entreprise (ex. coordonnées, secteur, etc.). J'ai une colonne qui s'appelle "Emplois disponibles" et je voudrais y entrer plus d'un métiers (car pour une même entreprise il peut y avoir des emplois de secrétaire, concierge, conseiller, directeur, etc.) dans la même cellule. Cette liste de métiers est dans un onglet nommé liste et la liste se nomme "Métier"

J'ai vu sur un forum, on clique sur la cellule et une liste déroulante apparaît où on peut cocher plusieurs choix séparés par un trait ou une virgule.

Si vous préférez que je vous envoie un exemple, SVP, juste me dire comment joindre un fichier.

Merci beaucoup.

Rebonjour Vaucluse,

Voici un exemple, ce n'est pas mon vrai fichier, question de confidentialité. Je veux la liste de choix multiple dans la colonne en jaune.

Je sens qu'il ne me manque pas grand chose avec ce que j'ai vu avec les forum, mais il me manque un détail (et c'est un peu frustrant!), alors si vous avez une VBA et le détail pour l'adapter...
Merci beaucoup, beaucoup!

Oups, voici le lien :
https://www.cjoint.com/c/HBAuVLNWv1I

Bonjour,

Merci pour votre réponse et merci pour le lien cjoint.com, je l'utiliserai.

Pour ce qui est de ma liste déroulante, merci pour la liste déroulante en cascade, mais ce n'est pas de cela que j'ai besoin.
Pour l'entrée de plusieurs choix dans une même cellule, ce n'est pas "impossible". Ça se fait avec une VBA (je n'ai pas dit que je ne voulais pas de VBA, je pense qu'il y a une action de plus qui accompagne la VBA). Je vous met un lien pour vous montrer où je l'ai vu https://www.excel-downloads.com/threads/liste-selection-multiple.83182/ (voir le fichier de réponse de Sergio) Ce que je n'arrive pas à faire c'est de le transposer à mon fichier, juste le copier-coller du VBA, ça ne marche pas, il me manque une info dans la marche à suivre... de là ma demande sur ce forum.
Merci.

Oui, petit oubli :), voir post 7. Merci.

Re

Un exemple, d'une liste déroulante à choix multiple, dans la colonne D tu peux faire un choix d'autant d'emploi que tu désires, ne pas oublier d'activer les macros pour que cela fonctionne

https://www.cjoint.com/c/HBAvZAfN7uj

Slts

Bonjour,

Merci, mais malheureusement, je ne peux ouvrir votre fichier, ça me dit comme message : "Impossible d'ouvrir le fichier car son format ou son extension n'est pas valide". :(

Bonjour,

Un autre essai....., en tout cas chez moi il fonctionne
https://mon-partage.fr/f/VOhTbudr/

Slts

SUPER, j'ai transposé dans mon fichier et ça fonctionne! Merci beaucoup.
J'ai une petite question supplémentaire (puis-je abuser de vos savoirs? :)), juste pour aller plus loin.

Dans votre exemple, je choisi un métier et je dois retourner dans la liste de choix pour faire un autre choix. Dans un exemple que j'ai vu, il y avait des cases à cocher et quand la liste apparaissait, on pouvait cocher plusieurs choix. Est-ce quelque chose à ajouter dans la VBA.

Merci beaucoup -à tous- de vos lumières
Cdlmnt

Ah Merci! Ça fonctionne.

Bonne journée.

Rebonjour The_boss_68. Merci de votre grande patience avec moi :)

Votre exemple avec mon fichier, c'est exactement ce que je veux. Mais je veux pouvoir le transposer dans d'autres fichier dans le futur. Dans votre exemple précédent, j'ai copié-collé votre VBA, j'ai modifier les plages et ça marché.

Dans le présent exemple, si je fais la même chose, ça ne marche pas. Mais, j'ai trouvé où je bloque (j'avance!), c'est au niveau de la ListBox.

Donc, si je copie-colle votre VBA et que je fais les modifs pour mon nouveau fichier (plage de la ligne 2 et de la ligne 4), ca ne marche pas. Dois-je modifier autre chose? Ou faire quelque chose par rapport à la ListBox? Encore merci de votre super patience avec moi!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D23], Target) Is Nothing And Target.Count = 1 Then
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox1.List = Sheets("Liste").Range("A2:A34").Value
a = Split(Target, " ")
If UBound(a) >= 0 Then
For i = 0 To Me.ListBox1.ListCount - 1
If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True
Next i
End If
Me.ListBox1.Height = 430
Me.ListBox1.Width = 120
Me.ListBox1.Top = Target.Top
Me.ListBox1.Left = Target.Left + Target.Width
Me.ListBox1.Visible = True
Else
Me.ListBox1.Visible = False
End If
End Sub
Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " , "
Next i
ActiveCell = Trim(temp)
End Sub