Remplir une classe avec un array

Bonjour,

Je ne sais pas si mon titre est très explicite, mais je vais expliquer ce que je compte faire.
J'ai créé une classe qui contient les coordonnées d'un point (Est, Nord, Altitude). J'essaye de créer une propriété accessible en lecture et écriture qui me permette de récupérer directement un tableau de 3 double contenant les coordonnées et la propriété inverse qui permette de compléter ma classe avec un array équivalent.
Voilà le code de ma classe :

Code:

---

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

Private mEast As Double Private mNorth As Double Private mElevation As String   ' Coordinates Property Get Coordinates() As Double() Dim coord(1 To 3) As Double coord(1) = mEast coord(2) = mNorth coord(3) = mElevation Coordinates = coord End Property Property Let Coordinates(Coordinates() As Double) mEast = Coordinates(1) mNorth = Coordinates(2) mElevation = Coordinates(3) End Property

---

La propriété Get fonctionnne très bien.
Par contre la propriété Let ne fonctionne pas.

Code:

---

1 2 3

Dim pt1 As New cPoint Dim toto(1 To 3) As Double pt1.Coordinates = toto

---

Le code ci-dessus me renvois l'erreur : "Impossible d'affecter à un tableau"

Dans mes recherches, j'ai cru comprendre qu'il n'est pas possible de passer un tableau en paramètre de Property Let, mais ce n'est pas très clair pour moi. Est-ce quelqu'un me confirme cela ? Sinon quelle est l'erreur ?
La solution que j'ai trouvé serait d'utiliser un Sub à la place de Let, mais dans ce cas là, je ne peux pas garder le même nom entre Get et Sub, ce qui est dommage pour moi.

Merci d'avance

Bonjour,

Il convient de ne pas dimensionner le tableau dans sa déclaration, mais par l'intermédiaire de ReDim.

Essaye ce code :

Code:

---

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

Sub test() Dim pt1 As New cPoint Dim toto() As Double, Michou() As Double   ReDim Preserve toto(1 To 3) toto(1) = 360 toto(2) = 400 toto(3) = 670 pt1.Coordinates = toto   Michou = pt1.Coordinates For i = 1 To 3 Debug.Print Michou(i) Next End Sub

---

EDIT : Le pourquoi de la "chose"...
extrait de : http://tissotemmanuel.developpez.com...lasse/#LIV-A-6
Notez que les dimensions du tableau ne sont pas fixées à la déclaration, ceci parce qu'il est impossible de procéder à des affectations entre tableaux de taille fixe, et que Property Get se termine par une paire de parenthèses indiquant qu'elle renvoie un tableau.

Ok merci beaucoup !

Code:

---

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

Private mEast As Double Private mNorth As Double Private mElevation As String   ' Coordinates Public Property Get Coordinates() As Variant Coordinates = Array(, mEast, mNorth, mElevation) End Property Public Property Let Coordinates(value As Variant) mEast = value(1) mNorth = value(2) mElevation = value(3) End Property

---

Code:

---

1 2 3 4 5

Sub test() Dim a As New Classe1 a.Coordinates = Array(, 1, 2, "Paris") aa = a.Coordinates End Sub

---

Ta solution permet de raccourcir un peu le code effectivement.
Mais j'y vois 2 inconvénient :
1- Je n'aime pas les Variant, je préfère autant que possible déclarer les variables précisément.
2- On récupère un Array de 4 valeurs avec une erreur en 0, je ne veux pas risquer que cela puisse poser des problèmes par la suite.

Merci quand même pour ta proposition.