Bonsoir le forum,
ça fait deux bonnes heures que je me casse les dents sur le souci suivant sans succès.
Je récupère d'une listbox2 contenue dans un USF, plusieurs items, que je transfère dans ma cellule active jusque là ça va.
J'ai ajouté un Chr(10) afin que les items soient positionnés les un sous les autres dans ma cellule....mon souci en fait c'est que j'ai un retour Chariot après le dernier item, dont je ne veux pas.
J'ai essayé de finir ma macro avec ces bouts de code pour le supprimer mais sans plus de succès
ActiveCell.Replace Chr(10) & " ", "", lookAt:=xlPart
ActiveCell.Replace Chr(10), ""
(code que j'ai trouvé sur le forum, rédigés par Pierrot93), je vous joins ci-dessous ma petite macro, si l'un d'entre vous a une idée, je suis preneuse. Bonne soirée
Private Sub CommandButton5_Click()
Dim I As Integer
With Me.ListBox2
For I = 0 To .ListCount - 1
ActiveCell = ActiveCell & .List(I) & Chr(10)
Next I
End With
Unload Me
End Sub
ça fait deux bonnes heures que je me casse les dents sur le souci suivant sans succès.
Je récupère d'une listbox2 contenue dans un USF, plusieurs items, que je transfère dans ma cellule active jusque là ça va.
J'ai ajouté un Chr(10) afin que les items soient positionnés les un sous les autres dans ma cellule....mon souci en fait c'est que j'ai un retour Chariot après le dernier item, dont je ne veux pas.
J'ai essayé de finir ma macro avec ces bouts de code pour le supprimer mais sans plus de succès
ActiveCell.Replace Chr(10) & " ", "", lookAt:=xlPart
ActiveCell.Replace Chr(10), ""
(code que j'ai trouvé sur le forum, rédigés par Pierrot93), je vous joins ci-dessous ma petite macro, si l'un d'entre vous a une idée, je suis preneuse. Bonne soirée
Private Sub CommandButton5_Click()
Dim I As Integer
With Me.ListBox2
For I = 0 To .ListCount - 1
ActiveCell = ActiveCell & .List(I) & Chr(10)
Next I
End With
Unload Me
End Sub