Tableau en VBA

Bonjour le forum,

J'ai le code suivant

Code:

---

1 2 3 4 5 6 7 8

Type t_Datas_General ID As Long Matricule As String * 5 Annee As String * 4 PtReal(366) As String * 40 End Type   Dim DataGeneral As t_Datas_General

---

Je voudrais remplir le tableau DataGeneral.PtReal avec une plage de cellules mais sans avoir recours à une boucle.

Du style DataGeneral.PtReal = range("a1:a366")

Je bute lamentablement sur ce problème....

Merci à tous...

salut,
c'est me semble t il impossible. Il faut que ptReal soit en variant.
Tu seras donc loin de ta définition a savoir un tableau de 366 lignes et donc chaque élément a 40 caractères...

Je ne comprend pas ton code, mais en rajoutant un .value, ça ne fonctionnerait pas par hasard ?

Code:

---

DataGeneral.PtReal = range("a1:a366").VALUE

---

Juste une supposition...

Salut,

Pour les tableaux, il y a un tuto : http://silkyroad.developpez.com/vba/tableaux/

Salut SkillRoad, je n'arrive pas a ouvrir ton lien..
Sinon je confirme que pour faire un get dans Excel (j'ai fait un truc très bourrin : myTab= rgMonRange.value), il faut que myTab soit obligatoirement en Variant

Salut,

Je ne suis pas SilkyRoad.

Par contre, le lien fonctionne bien chez moi.
Mais on retrouve le lien sur la page Cours

Bonjour,

lorsqu'on écrit par exemple

Code:

---

tablo = Range("A1:A20").Value

---

tablo est du type 1 to 20, 1 to 1
que l'on voit en installant tablo en espion

donc la déclaration

Code:

---

ptreal(366) as....

---

est fausse

pour ma part j'utiliserais la boucle mais...

Citation:

---

Envoyé par Heureux-oli

Je ne suis pas SilkyRoad.

---

Au temps pour moi.
Maintenant ça fonctionne. La magie de l'informatique.

En résumé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Type t_Datas_General ID As Long Matricule As String * 5 Annee As String * 4 PtReal() As Variant End Type   Sub Test() Dim DataGeneral As t_Datas_General   DataGeneral.PtReal = Application.Transpose(Range("A1:A366").Value) MsgBox DataGeneral.PtReal(25) End Sub

---

Bien joué pour le coup du transpose. Je ne connaissais pas :)

re

Effectivement, très belle astuce ce transpose! Merci, Mercatog, je la range précieusement dans mon grenier.:ccool:

Salut à tous,

Effectivement l'affectation dans un tableau marche trés bien.

Par contre si je vais au bout des choses, c'est à dire enregistrer ce tableau dans un fichier .txt je fais le code suivant....

Code:

---

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

Type t_Datas_General ID As Long Matricule As String * 5 Annee As String * 4 PtReal() As Variant End Type   Dim DataGeneral As t_Datas_General     Sub Enregistre() Dim NumFic As Long   NumFic = FreeFile Open ThisWorkbook.Path & "\General226.txt" For Random As #NumFic Len = Len(DataGeneral)   DataGeneral.ID = 1 DataGeneral.Matricule = "xyzxy" DataGeneral.PtReal = Application.Transpose(Range("a1:a366").Value)   Put #NumFic, , DataGeneral   Close #NumFic End Sub

---

.... et là lors de l'exécution j'ai l'erreur 59 "longueur d'enregistrement incorrecte".

Franchement je cale...

Au secours..

que te donne?

Code:

---

msgbox Len(DataGeneral)

---

mets ceci (valeur max)

Code:

---

Open ThisWorkbook.Path & "\General226.txt" For Random As #NumFic Len = 32767

---

Bonsoir,

Super, merci ça marche impec...

Mais pour mon info perso peux tu m'expliquer pourquoi 32767 ????


Encore merci

F1 sur le mot Open

Citation:

---

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
...
reclength Facultatif. Nombre inférieur ou égal à 32 767 (octets). Pour les fichiers ouverts en mode Random, cette valeur représente la longueur de l'enregistrement. Pour les fichiers séquentiels, elle représente le nombre de caractères contenus dans la zone tampon.

---

Merci a tous pour les explications.

Mon problème est résolu...

:ccool: