Liste déroulante dans un USERFORM

Bonjour,

Après avoir consulté la quasi totalité des forums, fait des tests par milliers....je n'arrive pas à récupérer dans une variable les zones sélectionner dans une ListBox créée dans une Userform.

J'ai quand même réussi à écrire ce code voir fichier, mais impossible de concaténer plusieurs choix de la liste dans une variable...,La le code écrit chaque choix en cellule 17,4 et si je met i à la place du 4 le numéro des colonnes va être celui de la colonne ou se trouve la lise des variables de ma listBox (en Annexe)

Quelqu'un pourrait-il m'aider ?

Merci.

Bonjour Filou, bonjour le forum,

Inutile de boucler puisque tu ne peux sélectionner qu'un seul élément :

Private Sub ListBox1CD_Change()
Sheets("Début").Cells(17, Application.Columns.Count).End(xlToLeft).Offset(0, 1) = "TE_" & Left(ListBox1CD.ListIndex, 2)
End Sub

Mais pour éviter des doublons éventuels, j'aurais mis la propriété MultiSelect de la ListBox1CD égale à 1. L'utilisateur commence par choisir les éléments dans la liste puis, clique sur le bouton avec ce code (et là oui, on boucle) :

Private Sub CommandButton1_Click()
For i = 0 To ListBox1CD.ListCount - 1
    If ListBox1CD.Selected(i) = True Then
       With Sheets("Début")
          .Cells(17, Application.Columns.Count).End(xlToLeft).Offset(0, 1) = "TE_" & Left(ListBox1CD.List(i), 2)
       End With
    End If
Next i
Unload Me
Call TEST ' La suite
End Sub

Évidemment on supprime la procédure ListBox1CD_Change dans ce cas...

Bonjour

c'est parfait les deux solutions fonctionnent à merveille, merci !!!!