Discussion :

[Tchupacabra]

Bonjour,

j'aimerais redimensionner un tableau dans une boucle...
Comment agrandir le tableau d'1 en 1 ?
J'ai essayé :

Code :

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

1
2
3
4
5
6
Dim tableau() As Long
 
debut
    ReDim Preserve tableau(UBound(tableau)+1)
    tableau(UBound(tableau)+1) = xxx
fin

mais j'obtiens une erreur :

Erreur d'exécution '9':
L'indice n'appartient pas à la sélection.

A votre avis, comment faire ?
Merci d'avance !

[casefayere]

Bonsoir,
ci-dessous un extrait de code pour d'autres finalités mais tu peux t'en inspirer

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
Dim x As Integer, z As Integer, deb() As Integer, fin() As Integer
Dim DerniereLigne As Integer
 
DerniereLigne = ActiveSheet.Range("D65536").End(xlUp).Row
 
'*****************************************************************************************************
'alimente les deux tableaux debut et fin des noms à définir
z = 1
ReDim deb(2)
ReDim fin(2)
deb(1) = 3
 
For x = 3 To DerniereLigne
If Range("a" & x).Interior.ColorIndex = 48 Then ' code couleur
deb(z + 1) = Range("a" & x).Row
fin(z) = Range("a" & x - 1).Row
z = z + 1
ReDim Preserve deb(z + 1)
ReDim Preserve fin(z + 1)
End If
Next x

[ilank]

Bonsoir,

tu redimensionnes le tableau mais une fois redimensionner tu affectes au-delà du dernier indice. Retire le +1 dans cette ligne

Code :

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

tableau(UBound(tableau)+1) = xxx

[Tchupacabra]

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
Dim tableau() As Long
 
Sub s()
    f
    f
    f
    f
End Sub
 
Function f()
    Dim nb As Integer
    nb = UBound(tableau)
 
    ReDim Preserve tableau(nb + 1)
    tableau(nb) = "truc"
 
End Function

affiche le message d'erreur à l'exécution de

Code :

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

nb = UBound(tableau)

Comment faire en sorte, qu'au PREMIER passage, nb = 0 ? au second nb = 1 ... etc ?

[ilank]

Essaie en définissant le tableau avant le premier appel à la fonction

Code :

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

1
2
3
4
5
Dim tableau() As Long
Sub s()
 reDim Tableau(0)
    f
End Sub

[casefayere]

je pensais quelque chose comme ça, en gardant le raisonnement de Tchupacabra

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
Dim tableau() As Long
Public nb As Integer
 
Sub s()
    f
    f
    f
    f
End Sub
 
Function f()
    nb = nb + 1
    ReDim Preserve tableau(nb)
    tableau(nb) = "truc"
 
End Function

mais pas testé

bonne soirée