Affichage d'un tableau en Zone Debug

[j0.jo]

Bonjour,

Je dois écrire une macro qui affiche dans la zone de debug un tableau a deux dimensions, nous ne connaissons pas les bornes.

Y'a t'il un moyen simple ?


Merci d'avance pour vos réponses

[bbil]

Bonsoir,

Oui ...

montre nous ou tu en est de ton code ...

[j0.jo]

Je n'ai pas trop d'idée pour l'instant, je suis un nouvel utilisateur de VBA, je suis en pleine recherche.

[bbil]

On ne vas quand même pas faire ton exercice pour toi


un peu de lecture :

Conceptualisation des variables tableau en VBA et optimisation du code sous Excel

un peu plus simple : (avec carrément la solution à ton exercice...)
Utiliser les variables tableaux en VBA Excel

[ZebreLoup]

Une méthode pour que les colonnes soient à peu près alignées.
Si tu commences à avoir pas mal de colonnes ça ne va rien rendre

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Option Explicit
 
Public Const LARGEUR_COLONNE = 10
 
Public Sub PrintInDebug(ByRef tableau As Variant)
    Dim i, j As Integer
    Dim currentLine As String
 
    For i = LBound(tableau, 1) To UBound(tableau, 1)
        currentLine = ""
        For j = LBound(tableau, 2) To UBound(tableau, 2)
            currentLine = currentLine & tableau(i, j) & String(LARGEUR_COLONNE - Len(tableau(i, j)), " ")
        Next j
        Debug.Print currentLine
    Next i
End Sub
 
Public Sub Test()
    Dim myTab(2, 2) As Double
    Dim i, j As Integer
 
    For i = 0 To 2
        For j = 0 To 2
            myTab(i, j) = 3 * i + j
        Next j
    Next i
 
    PrintInDebug myTab
End Sub