Bonjour,
J'utilise des Userforme pour calculer automatiquement des formules pour lesquelles seules quelques valeurs changent.
J'utilise toujours les mêmes procédés, sauf que cette fois ci .... c'est pas bon !!!
Effectivement la formule est un peu plus compliquée mais le principe reste le même à quelques parenthèses ou crochets près.
Voici le code, pourriez-vous m'expliquer pourquoi les Cmd (textBox) de la dernière ligne n’apparaissent pas en bleu.
Merci
J'utilise des Userforme pour calculer automatiquement des formules pour lesquelles seules quelques valeurs changent.
J'utilise toujours les mêmes procédés, sauf que cette fois ci .... c'est pas bon !!!
Effectivement la formule est un peu plus compliquée mais le principe reste le même à quelques parenthèses ou crochets près.
Voici le code, pourriez-vous m'expliquer pourquoi les Cmd (textBox) de la dernière ligne n’apparaissent pas en bleu.
Merci
Code:
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox2_Change()
Calcul
TextBox2 = Replace(TextBox2, ".", ",")
End Sub
Private Sub TextBox3_Change()
Calcul
TextBox3 = Replace(TextBox3, ".", ",")
End Sub
Private Sub TextBox4_Change()
Calcul
TextBox4 = Replace(TextBox4, ".", ",")
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox7_Change()
Calcul
TextBox7 = Replace(TextBox7, ".", ",")
End Sub
Private Sub TextBox8_Change()
Calcul
TextBox8 = Replace(TextBox8, ".", ",")
End Sub
Sub Calcul()
If Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Or Not IsNumeric(TextBox4) Or Not IsNumeric(TextBox7) Or Not IsNumeric(TextBox8) Then Exit Sub
TextBox6 = CDbl(TextBox2) * [0.125 + 0.875 * (0.80 * CDbl(TextBox3) / CDbl(TextBox4) + 0.20 * CDbl(TextBox7) / CDbl(TextBox8)]
End Sub
Private Sub UserForm_Click()
End Sub