Calculer le BMI (IMC) en VBA

Efgé

XLDnaute Barbatruc

• 21 Juillet 2011

• #2

Re : Calculer le BMI (IMC) en VBA

Bonjour bomagicmusic, le fil, le forum,
Sans fichier pour tester rien n'est certain. Essai comme ça... ... peut être.

VB:

Private Sub TextBoxTaille_Change()
TextBoxBMI = Format(TextBoxPoids / ((TextBoxTaille / 100) * (TextBoxTaille / 100)), "##")
End Sub

Cordialement

 

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 21 Juillet 2011

• #3

Re : Calculer le BMI (IMC) en VBA

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?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 21 Juillet 2011

• #4

Re : Calculer le BMI (IMC) en VBA

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)

TextBoxBMI = Format(Clng(TextBoxPoids) / ((Clng(TextBoxTaille) / 100) * (Clng(TextBoxTaille) / 100)), "##")

Cliquez pour agrandir...

Si ce n'est pas bon, il faudra quand même penser à fournir un ti'exemple....
Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juillet 2011

• #5

Re : Calculer le BMI (IMC) en VBA

Bonsoir à tous


Une autre façon qui semble fonctionner

Code:

MsgBox Val(TextBox1 / (TextBox2 / 100) ^ 2)

Pour rappel: masse en kilogramme et taille en mètre
Ex: 55 kg et 1,50 donne bien 24 avec la macro ci-dessus.

 

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 22 Juillet 2011

• #6

Re : Calculer le BMI (IMC) en VBA

Bonjour,

J'ai essayé les deux solutions mais j'ai toujours un bug si je tente de mofidier la taille. Ci-joint le fichier.

Merci de votre aide

 

Pièces jointes

• Database BMI .xls

  233.5 KB · Affichages: 152

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Juillet 2011

• #7

Re : Calculer le BMI (IMC) en VBA

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

Cordialement

 

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 22 Juillet 2011

• #8

Re : Calculer le BMI (IMC) en VBA

C'est top un grand merci.

 

Vote positif 0 Vote négatif