macro

[stef784]

bonjour , sauriez vous comment calculer l'indice de masse corporelle ?
car quand je fais :

Sub macro()
Dim x As Double
Dim y As Double
x = InputBox("Entrez votre poids")
y = InputBox("Entrez votre taille ")
MsgBox ("votre IMC est" & x / (y * y))

End Sub


ca ne fonctionne pas :s

 

[RENAUDER]

Re : macro

Bonjour,
Pourquoi ça ne marche pas ?
Ca renvoie bien une valeur.

 

[Robert]

Re : macro

Bonjour Stef, Éric, bonjour le forum,

Ça plante si on utilise le point comme séparateur décimal au lieu de la virgule. Essaie comme ça :

Sub macro()
Dim x As Variant
Dim y As Variant
x = InputBox("Entrez votre poids")
x = Replace(x, ".", ",")
y = InputBox("Entrez votre taille ")
y = Replace(y, ".", ",")
MsgBox ("votre IMC est " & x / (y * y))
End Sub

 

[stef784]

Re : macro

a ui c'est bon merci 🙂