Bug dans Redim Tableau

Question

Voila ben mon probleme c'est que j'aurais besoin de stocker des informations qui soit accessibles partout dans mon programme, pour cela j'ai choisi les tableaux. Le probleme c'est que j'ai besoin de souvent le redimensionner en gardant les anciennes valeurs, j'utilise donc le code:

Redim preserve montableau(montableaumax + 1)

Le probleme est que lorsque j'ai deja redimensionné et que je redimensionne une deuxieme fois j'ai l'erreur suivante:

Subscript out of range

Voila donc si vous connaissez un moyen de remedier à ca ou un autre moyen de stocker des informations dans un objet modulable en fonction de mes besoin, ca serait vraiment cool de me le dire ;)
Merci d'avance :)

@ Bientot

FirSteph

cs_processus · Answer

+ simple:

Redim preserve montableau(UBound(montableau) + 1)

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st

FirSteph · Answer

Merci pour l'astuce mais ce n'etait pas vraiment ca mon probleme, mais pas grave, je viens de le resoudre, je ne sais pas ou etait le probleme mais ca marche maintenant.
Voici le code pour ceux qui auraient le meme probleme:

Dans les déclaration Generale

Dim montableau()



Public Sub Command1_Click()
ReDim montableau(1)
Text1.Text =  UBound(montableau)
End Sub



Public Sub Command2_Click()
ReDim Preserve montableau(UBound(montableau) + 1)
Text1.Text = UBound(montableau)
End Sub



Private Sub Form_Load()
ReDim montableau(0)
End Sub


Voila, merci pour l'astuce Jdprog, elle me servira bcp ;)

@ Bientot

FirSteph

Bug dans Redim Tableau

2 réponses

Discussions similaires