Discussion :

[NikoBe]

Bonjour,

J'ai le problème suivant lors de l'execution de ma fontion:
Run-time error '9': Subscript out of range

et voici le code fautif (dernière ligne):

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim Tab_tranche()   'No "As" as has to be of "Variant" type
    Dim Tab_taux()      'No "As" as has to be of "Variant" type
    Tab_tranche = Sheets("Data").Range("B4:B10").Value
    Tab_taux = Sheets("Data").Range("C4:C10").Value
 
    MsgBox LBound(Tab_tranche)
    MsgBox UBound(Tab_tranche)
    MsgBox Tab_tranche(1)

Effectivement, je ne déclare jamais le nombre exact d'éléments de mon tableau, mais les deux premières messages box me donnent bien respectivement "1" et "7", ce qui me semble correct.

Si je redimensionne le tableau après lui avoir affecté des valeurs, j'obtiens alors

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim Tab_tranche()   'No "As" as has to be of "Variant" type
    Dim Tab_taux()      'No "As" as has to be of "Variant" type
    Tab_tranche = Sheets("Data").Range("B4:B10").Value
    Tab_taux = Sheets("Data").Range("C4:C10").Value
    ReDim Tab_tranche(UBound(Tab_tranche))
    
    MsgBox LBound(Tab_tranche)
    MsgBox UBound(Tab_tranche)
    MsgBox Tab_tranche(1)

J'obtiens alors "0" comme lower bound (et toujours "7" comme upper).
Par contre, plus de bug lors de l'exécution de la dernière ligne, mais la valeur renvoyée est vide (hors la cellule en question est bien remplie)

Je suis débutant en VBA et ne comprend pas encore bien tous les impacts.

Quelqu'un pourrait m'éclairer svp ?


Merci d'avance

[pgz]

Bonsoir.

Quand tu charges un range dans un tableau, tu obtiens toujours un tableau à 2 dimensions. Dans ton cas

Code :

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

MsgBox Tab_tranche(1,1)

devrait faire l'affaire.

Cordialement,

PGZ

[NikoBe]

Effectivement, ça marche !

Y a-t-il moyen de redimensionner ce tableau en mono-dimension après l'affectation de valeur ?

[pgz]

Tu peux utiliser un 2ème tableau mais cette fois dynamique et tu copies le premier dans le second. Par exemple si les valeurs sont de type string, cela donne qc comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim TabTaux2 as variant 
Dim TabTaux1() as string 
dim L as long
 
TabTaux2 = Sheets("Data").Range("C4:C10").Value
 
Redim TabTaux1(lbound(TabTaux2,1) to ubound(TabTaux2,1))
for L = lbound(TabTaux2,1) to ubound(TabTaux2,1)
    TabTaux1(L) = TabTaux2(L,1)
next L  
 
MsgBox TabTaux1(1)

Mais franchement, je ne vois pas l'intérêt de faire cela.

PGZ

[NikoBe]

Effectivement, ça va rendre le code plus illisible qu'autre chose.
Mais au moins je comprends mieux comment on gère les tableaux et leurs tailles !!

Merci bcp !