Boucle dans Msgbox sous VBA Résolu

Question

Bonjour, 

je suis désolée si ce sujet a déjà été traité, j'ai pourtant pris deux heures pour faire le tour de tout ce que je trouvais...
Je souhaite créer une boucle qui m'affiche une liste de cellules dans un même msgbox :
La colonne A de ma Feuil1 contient des noms :
A1 = nom 1
...
An = nom n

Je souhaite afficher un unique msgbox où apparaîtraient mes noms sous la forme :
Nom 1
Nom 2
Nom 3
...
Nom n
(séparés par des retours à la ligne)

Si quelqu'un peut m'aider là-dessus, ce serait déjà très bien, je n'arrive pas à trouver la syntaxe correcte pour insérer la boucle dans le msgbox.

Si, dans le meilleur des mondes, ceux qui me prêteront main forte savent comment présenter mon texte sous la forme :
Nom 1
       Nom 2
       Nom 3

Nom 4
       Nom 5
....

Ce serait vraiment fantastique !

Je vous remercie de votre aide !

michel_m · Accepted Answer

bonjour

Sub enumerer()
fin = Range("A100").End(xlUp).Row
For cpt = 1 To fin
     Message = Message & Cells(cpt, "A") & vbLf
Next
MsgBox Message
End Sub

freesix_007 · Answer

Utilise l'instruction PRINT come le cas de Qbasic, ça marche aussi

PRINT "Nom1"
PRINT "Nom2"
PRINT "Nom3"
et ainsi de suite...


ou tu n'as qu'a utiliser les labelbox superposé.

Mike-31 · Answer

Salut,

Je ne sais pas si j'ai tout bien compris, mais en supposant que tes noms se trouve en A2 à A6 insére ce code dans un module ou dans ton code

Sub test()
MsgBox [A2] & vbCrLf & [A3] & vbCrLf & [A4] & vbCrLf & [A5] & vbCrLf & [A6]
End Sub

ou dans un bouton activex

Private Sub CommandButton1_Click()
MsgBox [A2] & vbCrLf & [A3] & vbCrLf & [A4] & vbCrLf & [A5] & vbCrLf & [A6]
End Sub

okryn · Answer

Oups désolée pour le retard, j'ai réussi à m'en sortir grâce à votre aide, merci beaucoup !

Boucle dans Msgbox sous VBA

4 réponses

Discussions similaires

Newsletters