Récuperer Selection Listbox dans UNE cellule

[keepcool183]

Bonjour à tous 🙂

Je suis en train de construire un formulaire et je bloque sur comment transférer la sélection d'une listbox vers une seule cellule.

J'ai monté le code suivant

With Listbox1
  For X = 0 To .ListCount - 1
    If .Selected(X) = True Then
   t = t & Chr(10) & .List(X)
     Sheets(UF1.visite.Value).Range("Z" & L) = t
End If
Next X
End With
End Sub

Le code marche mais il ne me renvoi deux fois ma selection.

Exemple si je sélectionne Personnel et Externe dans ma cellule j'ai :
Personnel
Externe
Personnel
Externe

Et ainsi de suite.... 😀

Merci à ceux qui me liront 😉

 

[keepcool183]

Re : Récuperer Selection Listbox dans UNE cellule

Ok, je comprend mieux.

C'est une remise à zero en quelque sorte 🙂

En tout cas merci pour ton aide 😉