Cloner un objet d'une collection en VBA

Bonjour

J'ajoute un objet dans une collection à partir de cette procédure.

Code:

---

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

Public Sub FormeRectangle() 'Ajoute le rectangle à lforme Set lForme = New ClForme lForme.X = gX lForme.Y = gY lForme.X1 = gX1 lForme.Y1 = gY1 lForme.gPenColorForme = gPenColor lForme.Name = gDragRgn   gformes.Add lForme, gDragRgn Set lForme = Nothing End Sub

---

Je voudrais faire une copie de cet objet, changer uniquement le pointeur "GdragRgn" de manière à créer un nouvel objet identique dans cette collection.
Actuellement j'arrive à le faire à l'aide d'une procédure assez fastidieuse, mais je pense que ce doit être possible à l'aide d'une boucle ou d'une méthode de copie.
Quelqu'un aurait-il une solution ?

Bonjour.

Si ton objet est un module de classe je ne suis pas certain qu'il existe de méthode autre,
Les "objets" de VBA sont pas mal limités si on les compare à un langage comme Java.

À tout hasard tu peux essayer :

Code:

---

1 2 3 4 5

dim p as property dim unNouvelObjet as clsObjet for each p in unObjet.Properties unNouveObjet.Properties(p.name)=p.Value next p

---

A+

...
Votre classe [ClForme] n'expose probablement pas les propriétés de collection, vous pouvez donc créer une méthode CLONE dans votre classe...

Code:

---

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

Public Function Clone() As ClForme Dim mClone As ClForme With mClone .X=gX .Y=gY .X1=gX1 .Y1=gY1 .PenColorForme = gPenColo ' etc... etc... End With Set Clone=mClone End Function

---

L'administration des propriétés dans une classe n'est pas facile, elle nécessite des propriétés de collection et une classe de propriétés ... normalement, cela n'est pas fait même si c'est la bonne méthode pour la OOP