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