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
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
4 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
14 oct. 2011 à 18:33
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
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 041
14 oct. 2011 à 18:36
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
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
Messages postés
1
Date d'inscription
vendredi 14 octobre 2011
Statut
Membre
Dernière intervention
2 novembre 2011
2 nov. 2011 à 16:30
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 !
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
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é.
PRINT "Nom1"
PRINT "Nom2"
PRINT "Nom3"
et ainsi de suite...
ou tu n'as qu'a utiliser les labelbox superposé.