Variable dynamique

cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 24 juin 2004 à 18:59
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 25 juin 2004 à 11:32
Bonjour,

J'aimerai savoir quel code je dois utiliser pour incrémenter une variable dynamique sans passer par une variable intermédiaire tout en conservant bien sur l'instruction Redim Preserve.

J'ai déjà utilisée un code dans ce style :
ReDim Preserve Chaine(UBound(Chaine) + 1) mais ça me provoque une erreur du style !

Je précise que j'ai déclaré ma variable comme ceci :
Dim Chaine() as integer

Orais-je oublié quelquechose, quelquepart ?

Merci d'avance, pour votre réponse ;)

3 réponses

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
24 juin 2004 à 20:02
Salut
Chez moi ça fonctionne très bien, mais il faut que la Chaine ait déjà été dimensionnée une fois, sinon, même erreur
Dim Chaine() As Integer
ReDim Chaine(1)
ReDim Preserve Chaine(UBound(Chaine) + 1)
MsgBox UBound(Chaine)

Pour le fun, je trouve audacieux d'appeler une variable Chaine alors qu'elle ne peut contenir que des entiers !

Vala
Jack
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
24 juin 2004 à 23:53
Moi, je fait des trucs dans ce genre
Dim idx as long
idx = 0
on error resume next
idx = ubound(chaine)
On error goto 0
redim preserve chaine(idx + 1)


Christophe R.
0
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
25 juin 2004 à 11:32
Merci pour vos réponses, le code qui me manqué c'était celui-là ReDim Chaine(1)

@+++ :clown)
0