Discussion :

[Crusoe]

Bonjour le forum,

J'ai le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[EvaristeGaloisBis]

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...

[ANOVA]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Juste une supposition...

[Heureux-oli]

Salut,

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

[EvaristeGaloisBis]

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

[Heureux-oli]

Salut,

Je ne suis pas SilkyRoad.

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

[Michel_M]

Bonjour,

lorsqu'on écrit par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ptreal(366) as....

est fausse

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