Afficher une plage de cellules avec la fonction MsgBox, Excel VBA

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

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x