Discussion :

[-Naek-]

Bonjour,

Je veux déclarer un tableau:

Code :

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

Dim Tableaux(1 To Nb_Lignes, 1 To 12) As Variant

Un message d'erreur m'indique qu'une constante est requise, pourtant Nblignes donne bien une valeur de 44 lignes (voir image jointe).
Sachant que le nombre de ligne a parcourir est "Nb_Lignes" . Quel(s) solution(s) me proposez -vous ?

Voici mon code:

Code :

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

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
Public Sub test()
 
Dim Cel As Variant, i As Long
 
Set Cel = Range("A2")
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row
 
Dim Tableaux(1 To Nb_Lignes, 1 To 12) As Variant
 
For i = 1 To Nb_Lignes
        Tableaux(i, 1) = Cel(i, 6)
        Tableaux(i, 2) = Cel(i, 12)
        Tableaux(i, 3) = Cel(i, 13)
        Tableaux(i, 4) = Cel(i, 14)
        Tableaux(i, 5) = Cel(i, 15)
        Tableaux(i, 6) = Cel(i, 16)
        Tableaux(i, 7) = Cel(i, 17)
        Tableaux(i, 8) = Cel(i, 18)
        Tableaux(i, 9) = Cel(i, 19)
        Tableaux(i, 10) = Cel(i, 20)
        Tableaux(i, 11) = Cel(i, 21)
        Tableaux(i, 12) = Cel(i, 22)
Next i
 
End Sub

Merci de votre aide

[Minick]

Salut,

Plutot comme ca:

Code :

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

1
2
3
4
5
6
Dim Cel As Variant, i As Long, nb_lignes As Integer
Dim Tableaux() As Variant 
Set Cel = Range("A2")
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row
 
ReDim Tableaux(1 To Nb_Lignes, 1 To 12)

++
Minick

[-Naek-]

J'ai trouver la solution

En faite, après recherche dans la déclaration d'un tableau a 2 dimensions. On ne peut pas mettre de variable.

Code :

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

Dim Tableaux(1 To Nb_Lignes, 1 To 12) As Variant

Donc il faut utiliser un "Redim"

Code :

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

1
2
Dim Tableaux()
ReDim Tableaux(Nb_Lignes, 1 To 12)

[-Naek-]

Merci Minick, j'ai écrit ma solution en même temps que tu répondes.