Re : TCD ou tout VBA ?
Re
Ave JC
Il s'agit d'un tableau dynamique
Tout d'abord déclaré vide : Dim aproduire()
Puis initialisé ReDim aproduire(1 to 2, 1 to 1)
1 to 2 : dimension qui ne bougera pas (On ne peut modifier que la derniere dimension)
1 to 1 : dimension qui sera modifiée au fur et a mesure que l'on aura integré des valeurs
1ere integration de valeur:
aproduire(1,1)=x
aproduire(2,1)=y
Ensuite preparation pour la 2eme integration
ReDim Preseve aproduire(1 to 2, 1 to ubound(aproduire,2)+1)
Le tableau prend alors les dimensions:
aproduire(1 to 2,1 to 2)
et grace au Preserve conserve les valeurs entrées precedemment
le ubound(aproduire,2) est l'index max de la seconde dimension du tableau
En fin d'integration des valeurs on devra se souvenir que cet index repere un enregistrement vide d'ou , a l'utilisation:
for n= lbound(aproduire,2) to ubound(aproduire,2)-1
for m=lbound(aproduire,1) to ubound(aproduire,1)
msgbox(aproduire(m,n))
next m
next n
Bon courage: Je ne suis pas sur de pouvoir me mettre a l'etude d'un code semblable qui aurais été créé par un autre