Discussion :

[dark_sidious]

Bonjour à tous,
Si je sollicite votre aide aujourd'hui c'est pour savoir s'il été possible de créer des tableaux à partir d'une boucle ?
J'arrive à avoir Ubound du dernier tableau crée via la variable, mais si je veux avoir la même chose avec le deuxième j'ai une erreur 13 incompatibilité de type, comme si le tableau été vide...

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
Sub tabl()
Dim p As Integer
 
For p = 1 To 5
Dim tablo_p() As Integer
max = Range("a65536").End(xlUp).Row
val_cherche = Range("c5")
ReDim tablo_p(1 To max)
 
For i = 1 To max
    tablo_p(i) = Range("a" & i)
Next i
Range("a" & max).Offset(1, 0).Value = "10"
 
Next p
MsgBox UBound(tablo_p) 'ok
MsgBox UBound(tablo_2) 'échec
 
 
End Sub

Ou alors j'ai mal fait quelque chose...
En espérant avoir été assez clair.
Merci pour votre attention et vos futures réponses

[jfontaine]

Bonjour,

D'ou sort ce tablo_2 ?

[dark_sidious]

Bonjour jfontaine,
le tablo_2 c'est le deuxième tableau crée par la boucle.

[jfontaine]

Regardes bien ton code, tu verras qu'il n'y a que "tablo_p" comme tableau
Je pense qu'il te manque une dimension dans ton tableau "tablo_p" pour faire ce que tu souhaites

Evites de créer une variable dans une boucle

[dark_sidious]

Oui vu l'erreur qu'il me met, je pense aussi qu'il n'y a que tablo_p de créer,
mais je pensais que le fait d'avoir mis

Code :

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

1
2
For p = 1 To 5
Dim tablo_p() As Integer

il aurait créer 5 tableaux.
J'avais penser à utiliser les dimensions mais dans mon projet je risque d'en avoir trop...

Pour tu dis qu'il faut éviter de créer une variable dans une boucle ?
Merci de ton aide

[jfontaine]

Les variables se déclarent en début de procedure (pas d'utilité en VBA car le systeme la créera au début de l'execution

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
Sub tabl()
Dim p As Integer
Dim tablo_p() As Integer
 
For p = 1 To 5
max = Range("a65536").End(xlUp).Row
val_cherche = Range("c5")
ReDim tablo_p(1 To max)
 
For i = 1 To max
    tablo_p(i) = Range("a" & i)
Next i
Range("a" & max).Offset(1, 0).Value = "10"
 
Next p
MsgBox UBound(tablo_p) 'ok
MsgBox UBound(tablo_2) 'échec
 
End Sub