Afficher tableau dans MsgBox

[Lptht]

Bonsoir le forum,

J'ai commencer à remplir un tableau pour ensuite afficher ces valeurs via une Msgbox.
Le résultats que j'aimerais obtenir est le suivant (avec des sauts à la ligne pour chaque objet):

Les objets sont:
chaise
bureau
cuvette de toilette
catana

Quelqu'un saurait-il comment procéder? Je joins le fichier "Msgbox_tableau.xlsm" pour plus de clarté.

Merci d'avance

 

[Theze]

Re : Afficher tableau dans MsgBox

Bonsoir,

Sub Bouton1_Cliquer()

    Dim tableau(0 To 4)
    Dim i As Integer
    Dim Texte As String
    
    For i = 0 To 4
    
        tableau(i) = Range("A" & i + 2)
        
    Next
    
    Texte = "Les objets sonts :" & vbCrLf
    
    For i = 0 To 4
    
        Texte = Texte & tableau(i) & vbCrLf
        
    Next i
    
    MsgBox Texte
    
End Sub

Hervé.

 

[Lptht]

Re : Afficher tableau dans MsgBox

Merci Hervé pour cette réponse rapide.

Je ne connaissais pas le "vbCrLf" pour sauter une ligne, très pratique!