Probleme de USERFORM

[mdsv31]

Voila j'ai un probleme de USERFORM.

 

Dans une USERFORM j'ai des boutons et des textboxs, un de ses boutons me permet de prendre une distance dans le dessin courant. J'utilise le programme suivant, le probleme c'est qu'il ne marche pas dans USERFORM, ni dans un module, mais si je l'utilise dans un programme sans USERFORM, cela fonctionne, je ne comprend pas.

 

Voici le code en question

 

Private Sub CommandButton5_Click()

 

Set pt01 = ThisDrawing.Utility.GetPoint(, "Enter a point: ")

Set pt02 = ThisDrawing.Utility.GetPoint(pt01, "Enter a point: ")

 

dist1 = Sqr(((pt02(0) - pt01(0)) * (pt02(0) - pt01(0))) + ((pt02(1) - pt01(1)) * (pt02(1) - pt01(1))))

 

TextBox2 = dist1

 

End Sub

 

Help qui peut me dire ou est le probleme PLEASE

 

Un CadXPien perdu dans les meandres du VBA

 

@+

 

MDSV31

[didier]

bonjour,

Private Sub CommandButton1_Click()

Me.Hide

pt01 = ThisDrawing.Utility.GetPoint(, "Enter a point: ")

pt02 = ThisDrawing.Utility.GetPoint(pt01, "Enter a point: ")

dist1 = Sqr(((pt02(0) - pt01(0)) * (pt02(0) - pt01(0))) + ((pt02(1) - pt01(1)) * (pt02(1) - pt01(1))))

TextBox1 = dist1

Me.Show

End Sub

 

comme ça, tu l'auras ta distance dans le textbox.

si tu veux la formater fais ceci:

TextBox1 = format(dist1,"0.000")

tu auras le texte avec trois décimales seulement

 

amicalement

 

[mdsv31]

MERCI DIDIER

 

Et puis ENCORE MERCI

 

Je t'ai remercier DIDIER

 

Dans le doute encore MERCI DIDIER ;)

 

@+

MDSV31