Tableau "semi" dynamique...Résolu

Question

Bonsoir &#224; toutes et &#224; tous,  

L&#224;, je suis en train de changer et de refondre compl&#232;tement un module, car la mani&#232;re que j'ai fait ne me convenait pas.

Pour chaque objet que je vais g&#233;rer dans ma BDD, je vais avoir besoin de 4 donn&#233;es. Je vais donc rendre mes tableaux multi-dimensionnels. Etant donn&#233; que je connais le nombre de donn&#233;es par objet, mais que je ne connais pas &#233;videmment le nombre d'objets, est-il possible de d&#233;clarer un tableau avec un nombre de ligne dynamique, et un nombre de colonnes connu ?

Si oui, comment le marquer ? Comme &#231;a ?  tableau(, 4)

Merci d'avance.  

Emmanuel

cs_CanisLupus · Accepted Answer

Salut,

Dans le cas d'un nombre connu de colonnes, tu peux aussi cr&#233;er un type de donn&#233;es :

Type mytype ' dans une form met private devant type, public dans un module
   col(4) as integer ' ou string ou ce que tu veux
end type

ensuite :
dim montableau() as mytype
et
redim preserve montableau(nblignes)

tu auras acc&#232;s &#224; ton tableau par
mavar = montableau(ligne).col(colonne)

Avec cette m&#233;thode tu peux m&#234;me d&#233;terminer un type de donn&#233;e diff&#233;rent pour chaque colonne :

Type mytype
   col1 as string
   col2 as integer
   col3 as long
   col4 as boolean
end type

ensuite :
dim montableau() as mytype
et
redim preserve montableau(nblignes)

tu auras acc&#232;s &#224; ton tableau par
mavarstring = montableau(ligne).col1
mavarinteger = montableau(ligne).col2
mavarlong = montableau(ligne).col3
mavarboolean = montableau(ligne).col4

Bonne prog

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Gobillot · Answer

tu peux toujours mettre z&#233;ro en attendant

mais peut &#234;tre faudrait le faire dans l'autre sens: tableau (4,0)

si tu veux faire un Redim Preserve apr&#232;s, seule la derni&#232;re dimension sera modifiable.

Daniel

Gobillot · Answer

bien vu Canis

mais dans tous les cas le tableau n'est pas semi dynamique, pas de Dim avec une dimension au d&#233;part





le Dim de d&#233;part n'est m&#234;me pas n&#233;cessaire sauf si on veut le mettre en Public

et le Preserve n'est n&#233;cessaire que si on veut garder les valeurs pr&#233;c&#233;dentes et si un  Redim a d&#233;j&#224; &#233;t&#233; fait.



Redim montableau(nblignes) As mtype


Daniel

cs_CanisLupus · Answer

Tu as raison Daniel mais je le pensais autrement :

- nb de lignes inconnu
- par d&#233;faut la 1&#232;re ligne et la 1&#232;re colonne du tableau sont index&#233;es &#224; 0

Donc, si on remplit &#224; partir d'un recordset, perso je fais (dans une form) :

Private Type mytype
   col(4) As Integer
End Type


Dim montableau() As mytype


Private Sub Command1_Click()
Dim i As Integer


i = -1


Do While Not rs.EOF
  i = i + 1
  ReDim preserve montableau(i)
  montableau(i).col(0) = rs!champ1
  montableau(i).col(1) = rs!champ2
  montableau(i).col(2) = rs!champ3
  montableau(i).col(3) = rs!champ4
  montableau(i).col(4) = rs!champ5
  rs.movenext
Loop

End Sub

ce qui permet ensuite de parcourir le tableau avec

for i = 0 to ubound(montableau) ......

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

DragonicFlash · Answer

Salut &#224; tous,

Et merci encore pour votre aide pr&#233;cieuse. Effectivement, je suis rest&#233; sur la r&#233;ponse de Canis, qui est celle qui me convient le mieux. Non seulement parce-que &#231;a me r&#232;gle mon probl&#232;me de nb de lignes inconnu / nb de colonne connu, mais &#233;galement mon probl&#232;me de tableau comportant des donn&#233;es de diff&#233;rents types (string, integer, etc...). Cr&#233;er son type, c'est vraiment le pied, et au niveau syntaxe, c'est super clair:

mon_tableau(index).mon_champ

Merci  !!

Emmanuel