Je voudrais remplir une textbox en récupérant des lignes d'une feuille avec une boucle.
J'ai donc écris :
Code:
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
Re : Remplir une msgbox avec une boucle ligne à ligne
J'ai donc essayé en modifiant comme ceci :
Code:
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
Re : Remplir une msgbox avec une boucle ligne à ligne
J'ai trouvé !
Code:
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