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?
Ben oui ça marche
Des heures que je tournais en rond merci
en revanche si je veux corriger la taille (erreur de saisie par exemple) ça plante avec message incompatibilité de type, une idée?
Re
Comme tu utilise des textBox, il y a un risque de faire des calculs avec du texte....
Essai de forçer les valeur en numérique avec, par exemple Clng (F1 est ton amie)
Re bomagicmusic, Bonjour Staple ,
Pour le user form Nouveau Patient :
Tout fonctionne si :
- On bloque le traitement en cas de testBox vide
- On utilise normalement la proposition de Staple (ce n'était qu'un exemple, le MsgBox est une boite d'avertissement)
Donc en prenant tout ça en compte, je pense que ceci devrait aller:
VB:
Private Sub TextBoxTaille_Change()
If TextBoxTaille = "" Or TextBoxPoids = "" Then Exit Sub
TextBoxBMI = Val(TextBoxPoids / (TextBoxTaille / 100) ^ 2)
End Sub