Msgbox de plusieurs cellules

Bonsoir

j'aimerai que mon programme affiche le contenu de plusieurs cellules tous ensemble et pas 1 par 1.

j'ai écrit ce code mais il les affiche 1 par une et j'arrive pas à changer ça

For m = 1 To j

MsgBox (Sheets("test").Cells(m, 2).Value)
Next

et merci d'avance

Bonsoir firasbhr, le forum,

Peut-être ainsi....

For m = 1 To j
 msg = msg & Sheets("test").Cells(m, 2).Value & Chr(10)
next m
 MsgBox msg
Next

Cordialement,

merci, ça a marché

et disant plutot que j'ai 4 de ces msg (par exemple msg1, msg2, msg3 et msg4) à afficher en même temps, chacune dans une ligne. comment pourrais-je afficher ça ?

Bonjour firasbhr, xorsankukai,

je propose ce code VBA :

Option Explicit

Sub Essai()
  Dim msg$, m&, j&
  j = 10: Application.ScreenUpdating = 0
  With Worksheets("test")
    For m = 1 To j
      With .Cells(m, 2)
        msg = msg & .Value & " " & .Offset(, 1) & " " & .Offset(, 2) & " " & .Offset(, 3) & vbLf
      End With
    Next m
  End With
  msg = Left$(msg, Len(msg) - 1)
  MsgBox msg
End Sub

dhany

Bonjour firasbhr, dhany, ( )

j'ai 4 de ces msg (par exemple msg1, msg2, msg3 et msg4) à afficher en même temps, chacune dans une ligne.

Une autre proposition:

Cordialement,