Plusieurs cellules dans un textbox

[jeronimo]

Bonjour,

J'aimerais faire apparaître le contenu de plusieurs (appartenant à la même colonne) dans une seule textbox.
Le code ci-dessous me fait apparaître qu'une seule cellule.

Private Sub UserForm_Activate()
Cells.Find(What:=Range('a2'), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.EntireRow.Select
UserForm1.TextBox1.Value = ActiveCell.Offset(0, 4).Value
UserForm1.TextBox1.MultiLine = True
End Sub

NB ce qui a dans range('a2'), c'est le signe +.
Merci d'avance. :whistle:

 

[Arnaud]

Salut,

Essaye d'éviter de faire des multi-post, cela ne t'apportera pas plus de réponse bien au contraire....
Si tu as des précisions a rajouter a ta question post les à la suite c'est a dire ici : Lien supprimé

et profite en pour répondre aux gens qui te proposent des solutions