La procédure suivante utilise une boîte de message pour afficher les valeurs dans une plage 8 × 3 de cellules dans A1: C8. Il sépare les colonnes à l’aide d’une constante vbTab et insère une nouvelle ligne à l’aide de la constante vbNewLine. La fonction MsgBox accepte une longueur de chaîne maximale de 1 023 caractères, ce qui limitera le nombre de cellules que vous pouvez afficher. Notez également que les taquets de tabulation sont fixes. Par conséquent, si une cellule contient plus de 11 caractères, les colonnes ne seront pas alignées.
Sub AfficherPlage() Dim MessageA As String Dim r As Long, c As Long MessageA = "" For r = 1 To 8 For c = 1 To 3 MessageA = MessageA & Cells(r, c).Text If c <> 3 Then MessageA = MessageA & vbTab Next c MessageA = MessageA & vbNewLine Next r MsgBox MessageA End Sub
