Liste déroulante choix multiple

Bonjour à tous,

J'en appelle à votre aide car j'essaie de faire quelque chose mais ne maitrisant ni les macros ni la VBA ... difficile pour moi de le mettre en place mais également de comprendre le fonctionnement.

Je souhaite mettre en place une liste déroulante avec choix multiples.
- La formule devra s'appliquer sur la case D4 à D1000

- Mes choix de liste déroulante sont sur ma feuille "Données".
- Je souhaiterai un principe de case à cocher pour sélectionner mon multichoix
- Je souhaiterai que les choix s'affichent dans la case les uns en dessous des autres (Retour à la ligne à chaque fois)77

Vous trouverez en PJ 2 fichiers :
1) le fichier que je souhaite réaliser nommé "Fichier à réaliser"
2) Un fichier exemple sur internet qui répond exactement à mon besoin mais un peu trop compliqué pour moi à modifier.

Merci de votre aide, je reste disponible si besoin.

Je me permets un petit Up,
Si quelqu'un peut m'aider :)

Bonsoir,

Un essais voir pj

ps: activer les macros à l'ouverture du fichier

Slts

Ca répond à 75 % à mon besoin. ^^

Je souhaiterais que les Régions soient à la ligne et pas forcément séparé par un ;

Est-ce possible ?

Bonjour toutes et tous

coucou et merci à Boss_68

@Fatal1ty

dans Listbox1_Change() , trouver:

   If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & ";  "

et remplacer par ci-dessous:

   If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & vbCrLf 

ce qui donne :

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) & vbCrLf
 Next i
 ActiveCell = Trim(temp)
End Sub

note: le vbCrLf pour effectuer un retour à la ligne

crdlt,

André

Bonjour,

merci à Andre13 pour la modif

Slts

Merci à vous et merci pour les explications.
Je garde ce fichier précieusement

pardon pour la mise en page

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) ' & vbCrLf  

 Next i ActiveCell = Trim(temp)  

End Sub