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:
Code:
dim toto() as integer
Et je voudrai redimensionner ce tableau à chaque fois que je rencontre une condition:
Code:
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????
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