Affichage tableau dans MsgBox VBA excel [Fermé]

Signaler
-
 EnPanik!! -
Bonjour,


SOS ,, j'ai besoin d'afficher les elements d'un tableau Tab(i) i correspond au num de la ligne ,, dans une boite MsgBox

tant que i est différent de 1 j'affiche le contenu de la cellule ("A" i) et je passe à la ligne.

merci d'avance de votre aide ,,, c'est urgent

6 réponses


Bonjour,

Exemple type :

Option Explicit

Sub AfficheTableau()

    Dim Tableau(1 To 10) As String
    Dim strMessage As String, Boucle As Integer
    
    Tableau(1) = "France"
    Tableau(2) = "Espagne"
    Tableau(3) = "Italie"
    Tableau(4) = "Chine"
    Tableau(5) = "Portugal"
    Tableau(6) = "Canada"
    Tableau(7) = "Brésil"
    Tableau(8) = "Argentine"
    Tableau(9) = "Vénézuela"
    Tableau(10) = "Australie"
    
    strMessage = ""
    For Boucle = 1 To 10
        strMessage = strMessage & Tableau(Boucle) & vbLf
    Next Boucle
    
    MsgBox strMessage
    
End Sub
'

Lupin
20
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci


bonjour,
tu peut utilise un boucle incrémentée de 1 à n et-puis converse les contenu en string
Merci à Lupin !
Messages postés
420
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
12 mars 2009
126
bonjour
je ne m y connais pas trop mais j v essayer de t aider
do
MsgBox NomTableau(i)
msgbox range("A" i)
i=i+1
while (i<>1)
J'ai le même problème, c'est à dire que je dois afficher le contenu d'un tableau dynamique dans une message box, et faire un retour à la ligne après chaque valeur pour que ce soit présenté comme une liste.

Comment faire pour boucler le contenu d'une liste dans une message box ..?