Boucle dans Msgbox sous VBA [Résolu]

okryn - Dernière réponse le 2 nov. 2011 à 16:30

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 !

Boucle dans Msgbox sous VBA »

Suggestions

Boucle dans Msgbox sous VBA
MsgBox personnalisée VBA Access » Forum
Erreur If...then...else en VBA (Résolu) » Forum
Boucle If sous VB (Résolu) » Forum
VBA créer un boucle de matrice (Résolu) » Forum
Probléme boucle dans une macro VBA (Résolu) » Forum

Plus

Réponse

michel_m 7330Messages postés 2 janvier 2008Date d'inscription 30 mai 2012Dernière intervention 14 oct. 2011 à 18:33

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

Ajouter un commentaire

Réponse

Mike-31 7434Messages postés 17 février 2008Date d'inscription 30 mai 2012Dernière intervention 14 oct. 2011 à 18:36

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

Ajouter un commentaire

Réponse

okryn 1Messages postés 14 octobre 2011Date d'inscription 2 novembre 2011Dernière intervention 2 nov. 2011 à 16:30

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

Ajouter un commentaire

Réponse

-4

freesix_007 4Messages postés 25 janvier 2009Date d'inscription 14 octobre 2011Dernière intervention 14 oct. 2011 à 17:47

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é.

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Boucle dans Msgbox sous VBA [Résolu]

Boucle dans Msgbox sous VBA »

Passage au tout numérique : quel coût pour les particuliers ?