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
Excel compter cellule couleur sans vba - Guide
Find vba - Astuces et Solutions
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
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 18393 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 5 mai 2025 5 128
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

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

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

[VB]MsgBox avec variable

Bonjour,
Je suis débutant avec VB et jessai de faire quelque chose d'assé simple avoir une Msgbox qui affiche le resultat de deux variable et de du texte.
ex: MsgBox Varialble1"texte1"&Variable2"texte2"
Mais j'ai un Compile error Expected:end of statment qui apparait autour du texte 1.je sais que ca doit etre simple mais quelqu'un peut m'aider?

tele s'eteind et s'allume en boucle

bonjour, mon televiseur samsung led UE46D5700 (2011) s'allume et s'eteind en boucle j'ai enleve les piles de la telecommande, c'est pareil j'ai mis des pile neuves , meme probleme j'ai eteind la tele pendant 5 minutes et remis en route sans piles sur la telecommande, meme probleme ..idem avec les piles remises comment faire ? un conseil serai le bienvenu, par avance merci j'ai essaye avec une autre telecommande samsung qui fonctionnait avec auparavent , probleme idem

Redmi redémarre en boucle - Fastboost impossible

Bonjour, Depuis hier après midi, mon téléphone redémarre en boucle sans jamais se lancer. L'écran Redmi apparaît puis se ré éteind et ainsi de suite ... quand la batterie est épuisée c'est au tour de l'écran avec batterie vide d'apparaître et de disparaître. J'ai tenté de passer en mode fastboost. L'écran fastboost apparaît quelques secondes puis se ré eteind et revient sur L'écran Redmi... Auriez vous une idée pour m'aider à solutionner ce problème ? Merci par avance.