Declaration d'une variable Tableau()

Bonjour à tous, j'ai une question que je trouve incroyable:

Dans un application que je suis en train de dévélopper, j'ai essayé le code suivant:

Code:

---

1 2 3

Dim pos as integer pos=0 dim tp(pos) as string

---

Mais il ne marche pas :?

L'idée c'est d'avoir un tableau qui commence avec un seule donné et que je puisse augmenter après, par exemple:

Code:

---

1 2 3 4 5 6

While ... ... pos=pos+1 ReDim Preserve tp(pos) .... Wend

---

Qui ne marche pas non plus

Il me semble que n'est pas possible d'utiliser une variable pour la dimension du tableau, parceque si je fais

Code:

---

Dim tp(0) as string

---

Tout marche bien!

Est-ce que quelqu'un sait pour quoi?
Merci d'avance


EDIT: Il ne donne aucunne message d'erreur, si ces deux codes y sont, la procedure ne commence pas...

D'après le compilateur il faut une constante dans l'instruction de déclaration de tableau.

Il n'y a pas de raison spéciale si ce n'est que c'est comme cela que les concepteurs du compilateur l'ont voulu et que c'est sans doute un poil plus simple à programmer.

Par contre tu peux faire

Code:

---

dim tp()

---

qui défini un tableau sans dimension initiale que tu peux ensuite utiliser avecReDim.

De plus connais-tu les objets de type Collection qui te permettent de t'affranchir de ce genre de gestion ? Un objet Collection peut s'agrandir où se rétrécir en fonction des besoins.

Attention, en standard, un objet collection n'est pas typé. C'est-à-dire que tu peux allégrement mélanger du texte, des nombres et plein d'autres objets dans une même collection.

Si tu as besoin d'une collection typée il faut faire un peu de code autours pour y arriver.

Bonjour et merci de ta reponse marot_r,

J'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim pos As Integer pos = 0 Dim tp()   Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection rs.Source = "SELECT Id, Libele FROM [T_types] WHERE Id<>1" rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Open If Not rs.EOF Then rs.MoveFirst While Not rs.EOF MsgBox pos tp(pos) = rs![Libele] pos = pos + 1 rs.MoveNext Wend End If rs.Close

---

Mais il dit que "L'indice n'appartient pas à la selection".

Je suis sure que la requete marche bien, il y a donc quelque probleme avec le tabeau...

Tu as parfaitement raison il faut continuer à utiliser Redim même si tu ne defini pas de dimension initiale.

Part contre à la lecture de ton code je t'invite à utiliser l'objet collection qui sera parfaitement adapter et qui tÉvitera d'avoir a gérer toi-même la croissance du tableau.

A+

Merci encore une fois.

Je ne connais pas trop sur des collections, je vais essayer d'étudier un peu...
Pour le moment, j'ai reussi a faire c'est que je voulais en utilisant deux recordsets au lieu d'un seule.

Dans la boucle

Code:

---

1 2 3

While ... WEnd

---

j'ai mis le code que je voudrais utiliser avec le tableaux...