Module de classe pour gérer des objets mathématiques

Bonjour,
Je suis entrain d’écrire un ensemble de module de classe pour manipuler facilement des objets mathématiques dans un repère orthonormé.
J'ai écris deux modules tpPoint et tpCercle qui, selon moi marche pour le moment.

Je bloque sur la classe tpTriangle ou j'ai pu bien écrire les éléments les plus faciles. Mon problème survient lorsque je cherche à définir les propriétés du cercle inscrit dans un triangle, j'obtient une erreur:

Code:

---

1 2 3 4 5 6 7 8 9 10

Property Get CercleInscrit() As tpCercle Dim cercletemp As New tpCercle Dim centreTemp As New tpPoint   centreTemp.Abscisse = 6 centreTemp.Ordonnee = 9 cercletemp.Centre = centreTemp cercletemp.Rayon = 2 * Aire / Perimetre CercleInscrit = cercletemp End Property

---

Je vous joins le fichier. Aider moi SVP à détecter d'ou vient mon erreur dans le module de classe en question

hello,

Dans le Get de la propriété CercleInscrit il faut affecter CercleInscrit avec un Set comme ceci par exemple :

Code:

---

1 2 3 4 5 6 7 8

Property Get CercleInscrit() As tpCercle Dim cercletemp As New tpCercle Dim centreTemp As New tpPoint centreTemp.Abscisse = 6 centreTemp.Ordonnee = 9 cercletemp.Centre = centreTemp cercletemp.Rayon = 2 * Aire / Perimetre Set CercleInscrit = cercletemp End Property

---

et l'appeler comme ceci par exemple :

Code:

---

Set C1 = T.CercleInscrit()

---

Ami calmant, J.P

Bonsoir J.P et merci infiniment
Ca marche à merveille

Bonne soirée