Affichage tableau dans MsgBox VBA excel

Fermé
redyou - 25 janv. 2008 à 13:07
 EnPanik!! - 28 janv. 2011 à 09:09
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

Utilisateur anonyme
8 août 2008 à 13:58
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
23