initialiser un tableau dynamique

[pikpik]

Bonjour bonjour!!!

j'appel une nouvelle fois à votre aide pour savoir comment realiser l'opération suivante:

J'ai un tableau toto que je declare de la manière suivante:

dim toto() as integer

Et je voudrai redimensionner ce tableau à chaque fois que je rencontre une condition:

if t>0 then
   a=ubound(toto)
   preserve redim toto(a+1)
end if

Mais comment faire pour declarer au début du programme que toto ne comporte qu'une ligne au départ?????
Est ce que l'instruction redim toto(1 to 1) est valable????

 

[Robert]

Bonjour PikPik, bounjour le forum,

tu peux initialiser le tableau avec un Redim toto(0) puis ton code. Le petit problème c'est qu'alors ton tableau aura une valeur de plus que le nombre de fois où t>0:

Dim toto() As Integer
Dim a As Byte 'ou Integer ou Long en fonction du nombre
ReDim toto(0)
If t > 0 Then
a = UBound(toto, 1)
ReDim Preserve toto(a + 1)
End If

Mais si tu veux le nombre exact tu peux faire :

Dim toto() As Integer
Dim a As Byte 'ou Integer ou Long en fonction du nombre
a = 0
If t > 0 Then
ReDim Preserve toto(a)
a = a + 1
End If

 

[pikpik]

merci. Tant pis je voulais eviter d'avoir une ligne en plus mais à la limite si je le sais je pourrai le gerer. merci Robert