Discussion :

[Joshua1969]

Bonjour,
Je débute dans le VBA, at malgré mes recherches certaines subtilités m'échappent.
J'ai écrit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TabTou()
 
Dim Derlig As Long
Derlig = Range("A65536").End(xlUp).Row
Dim TabTou(1 To Derlig, 1 To 31, 1 To 12) As Variant
Dim i As Byte, j As Byte, k As Byte
For i = 1 To UBound(TabTou, 1)
For j = 1 To UBound(TabTou, 2)
TabTou(i, j) = i & j
Debug.Print TabTou(i, j)
Next j
Next i
 
End Sub

Et lorsque je lance cette macro, il me dit qu'une constante est requise.
J'ai lancé un espion, et c'est Derlig qui semble vide.

Pourrais t'on m'expliquer pourquoi ?
Je précise que je travaille sous Excel 2007 (perso) mais que cette macro est pour excel 2003.

Merci d'avance

[PPz78]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub TabTou()
Dim Derlig As Long
    Derlig = Range("A65536").End(xlUp).Row
Dim TabTou(1 To Derlig, 1 To 31, 1 To 12) As Variant
Dim i As Byte, j As Byte, k As Byte
    For i = 1 To UBound(TabTou, 1)
        For j = 1 To UBound(TabTou, 2)
           TabTou(i, j) = i & j
           Debug.Print TabTou(i, j)
        Next j
    Next i
End Sub

Quelques remarques sur ce code :
1- c'est étrange TabTou est le nom du sous programme et c'est aussi le nom de ton tableau : il faut modifier
2- ton tableau TabTou a trois indices et ensuite tu l'initialises qu'avec deux indices, il faut changer

A+

PPz