petit probleme pour ajouter une ligne a un tableau dinamic a deux dimention

Question

Bonsoir, voila je doit construire un graphique et pour cela je doit
remplir un tableu a deux dimmention. j'ai donc d&#233;clarer un tableau :



    Dim arrData()



Puis pour le remplir, je fais une boulce, a la fin de cette boucle, le
tableau a une taille qui m'ets inconue. c'est pourquoi j'ai fait un
tableau dinamique et que j'essaye de rajouter une lignes a chaque fois
que j'en ai besoin. voila ce que ca donne:



    ReDim arrData(10, 1)     ' je met 10 ligne et une colone dans mon tableau

        Do

      

         
'arrData(CptLigne, CptColone) = "label " & CptColone '&
Format(Dat, "h:m")

          CptColone = CptColone + 1 'passe a la seconde colone

          arrData(CptLigne, CptColone) = enreg("TEMPERATURE_SONDE")

         

          ReDim Preserve
arrData(1, UBound(arrData, 1) + 1)  'fonction qui rajoute une ligne

          CptLigne = CptLigne + 1   'saute une ligne

          CptColone = CptColone - 1 ' revien a la premiere colone

          enreg.MoveNext

          datej = Format(enreg("DATE_HEURE"), "d/m/yyyy")

          HeureJ = Format(enreg("DATE_HEURE"), "h:m")

            

        Loop While (JFin = datej And HFin >= HeureJ)



Voila mon code, ne chercher pas d'erreur dedans car avec un tableau
normal il marche bien, j'ai juste un probleme a la ligne : ReDim
Preserve arrData(1, UBound(arrData, 1) + 1)   Normalement
elle est censser me rajouter une ligne sans effacer le reste du tableur
mais ca plante...



Pouvez vous me dire pourquoi et aussi comment je pourrais faire marcher mon porgramme





Merci beaucoup d'avance Baptiste

violent_ken · Answer

Violent Ken

Salut.
Ben en fait, tu ne peux pas utiliser Preserve avec un tableau &#224; plusieurs dimensions
@+

jbbordas87 · Answer

Donc ce que je veux faire est impossible ou il exoste une autre solution pour faire un tableau a deux entr&#233;e non statique??



Merci Baptiste

violent_ken · Answer

Violent Ken

Eh bien c'est impossible directement, mais tu peux "sauvegarder" ta matrice arrData dans une autre matrice, changer la taille de arrData, et remettre les valeurs de ta "matrice de suavegarde" dans arrData. Un peu plus long, mais fonctionnel.
(matrice d&#233;signe une liste &#224; plusieurs dimensions)
@+

codea · Answer

Ou tu peux faire une pr&#233;vision ... d&#233;clarer ton tableau plus grand que
n&#233;cessaire, et incr&#233;menter une variable count pour
l'affichage....  au lieu d'aller a uboud pour aficher ton tableau
tu iras a count...






  Rien ne sert de courir, il faut partir &#224; point.

codea · Answer

Autre id&#233;e, 

tu te fais un tableau de type... 

Public Type tGraph

    x As Single

    y As Single

End Type



dim arrData as tGraph

redim preserve arrData(10) 



arrData(0).x=1

arrData(0).y=1.5

...

  Rien ne sert de courir, il faut partir &#224; point.

                        &

codea · Answer

remarque:La d&#233;claration du type doit etre faite dans un module ou dans la section globale d'une form
  Rien ne sert de courir, il faut partir &#224; point.

                        &

Petit probleme pour ajouter une ligne a un tableau dinamic a deux dimention

6 réponses

Discussions similaires