bomagicmusic
XLDnaute Occasionnel
Bonjour,
J'ai crée un user form qui me permet de rentrer la taille en cm et le poids en kg sans virgule.
J'ai donc la textbox taille et la textbox poids.
j'aimerai que le BMI se calcul automatiquement et aparaisse dans la textbox BMI, arrondie au chiffre le plus proche donc sans virgule.
Pourl'instant j'ai ce code:
Private Sub TextBoxTaille_Change()
TextBoxBMI = TextBoxPoids / (TextBoxTaille / 100 * TextBoxTaille / 100)
TextBoxBMI = Format(BMI, "##")
End Sub
Mais il doit y avoir une erreur quelque part
Quelqu'un a t'il la solution?
Merci
J'ai crée un user form qui me permet de rentrer la taille en cm et le poids en kg sans virgule.
J'ai donc la textbox taille et la textbox poids.
j'aimerai que le BMI se calcul automatiquement et aparaisse dans la textbox BMI, arrondie au chiffre le plus proche donc sans virgule.
Pourl'instant j'ai ce code:
Private Sub TextBoxTaille_Change()
TextBoxBMI = TextBoxPoids / (TextBoxTaille / 100 * TextBoxTaille / 100)
TextBoxBMI = Format(BMI, "##")
End Sub
Mais il doit y avoir une erreur quelque part
Quelqu'un a t'il la solution?
Merci