Remplir une msgbox avec une boucle ligne à ligne

[zephir94]

Bonjour,

Je voudrais remplir une textbox en récupérant des lignes d'une feuille avec une boucle.
J'ai donc écris :

Sub test()
     With Feuil5
     ID = Feuil5.Range("E65536").End(xlUp).Row
     For id2 = 2 To ID Step 1
     ii = Feuil5.Range("E" & id2) & vbCrLf_
   
   Next
     MsgBox ii
End With
End Sub

Si j'ai 5 lignes je voudrais obtenir dans la msgbox

ligne1
ligne2
ligne3
ligne4
ligne5

Je vous remercie par avance si vous avez des idées pour me débloquer

Bien cordialement

Zephir94

 

[zephir94]

Re : Remplir une msgbox avec une boucle ligne à ligne

J'ai donc essayé en modifiant comme ceci :

Sub test()
     With Feuil5
     ID = Feuil5.Range("E65536").End(xlUp).Row
     For id2 = 2 To ID Step 1
     ii = Feuil5.Range("E" & id2) & vbCrLf _
& ii
   Next
     MsgBox ii
End With
End Sub

Mais j'obtient
ligne1
ligne2
ligne3
ligne4
ligne5
ligne1
ligne2
ligne3
ligne4
ligne5
1
dans ma msgbox

 

[zephir94]

Re : Remplir une msgbox avec une boucle ligne à ligne

J'ai trouvé !

Sub test()
     With Feuil5
     ID = Feuil5.Range("E65536").End(xlUp).Row
     For id2 = 2 To ID Step 1
     ii = Feuil5.Range("E" & id2) & vbCrLf & ii
     
   Next
     MsgBox ii
End With
End Sub

Merci à vous tous