Boucle dans Msgbox sous VBA

Résolu/Fermé

okryn - 14 oct. 2011 à 17:43
okryn Messages postés 1 Date d'inscription vendredi 14 octobre 2011 Statut Membre Dernière intervention 2 novembre 2011 - 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 !

A voir également:

Boucle dans Msgbox sous VBA
Redmi note 10 redemarre en boucle - Forum Xiaomi
Find vba - Astuces et Solutions
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Réponse 2 / 4

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
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

Réponse 3 / 4

okryn Messages postés 1 Date d'inscription vendredi 14 octobre 2011 Statut Membre Dernière intervention 2 novembre 2011
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 !

Réponse 4 / 4

freesix_007 Messages postés 5 Date d'inscription dimanche 25 janvier 2009 Statut Membre Dernière intervention 31 août 2012 1
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é.

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

[VB]MsgBox avec variable

VBA erreur 1004

Discussions similaires

Newsletters