herve62
XLDnaute Barbatruc
Bonjour
je n'arrive pas à afficher la racine carrée d'un nombre ?
j'ai toujours un nombre entier
Public c1, c2, c3 As Long
---------------------------------
Private Sub Calcul_Click()
Dim co1, co2 As Double
co1 = c1 ^ 2 ex = 16
co2 = c2 ^ 2 ex = 36
c3 = Sqr(co1 + co2)
MsgBox " c3= " & c3 > renvoie 7 je devrai avoir 7.211 ( si je veux a 3 deci)
par contre si je fais c3=sqr(15.5) j'ai bien 3.937
Donc c'est une histoire de variable ? mais j'ai dejà passé du temps et je tourne en rond
La syntaxe SQR dit : sqr(as Double)
Merci de vos réponses
je n'arrive pas à afficher la racine carrée d'un nombre ?
j'ai toujours un nombre entier
Public c1, c2, c3 As Long
---------------------------------
Private Sub Calcul_Click()
Dim co1, co2 As Double
co1 = c1 ^ 2 ex = 16
co2 = c2 ^ 2 ex = 36
c3 = Sqr(co1 + co2)
MsgBox " c3= " & c3 > renvoie 7 je devrai avoir 7.211 ( si je veux a 3 deci)
par contre si je fais c3=sqr(15.5) j'ai bien 3.937
Donc c'est une histoire de variable ? mais j'ai dejà passé du temps et je tourne en rond
La syntaxe SQR dit : sqr(as Double)
Merci de vos réponses