L
Laurent
Guest
Bonjour à tous,
Voici mon petit problème:
J'utilise le code suivant pour calculer un pourcentage.
Private Sub TextBox1_Change()
Dim brut As Double
Dim net As Double
brut = Val(TextBox1)
net = Val(TextBox2)
If Val(brut) <> 0 Then
TextBox3.Value = Round(((1 - (net / brut)) * 100), 2) & " %"
End If
End Sub
(le pendant de ce code avec la textbox2 existe)
La valeur obtenue est ensuite reprise pour remplir un BDD grace à ce code:
With Sheets("Calcul")
.Range("F" & C).Value = TextBox3.Value
End With
Jusque là tout va bien sauf que les résultats ne tombant pas juste sont considérés par excel comme étant du texte donc inutilisables pour faire des calculs ultérieurs...
Si quelqu'un pouvait me donner une solution à ce problème ce serait bien sympa.
Par avance merci et à bientôt.
A++
Laurent
Voici mon petit problème:
J'utilise le code suivant pour calculer un pourcentage.
Private Sub TextBox1_Change()
Dim brut As Double
Dim net As Double
brut = Val(TextBox1)
net = Val(TextBox2)
If Val(brut) <> 0 Then
TextBox3.Value = Round(((1 - (net / brut)) * 100), 2) & " %"
End If
End Sub
(le pendant de ce code avec la textbox2 existe)
La valeur obtenue est ensuite reprise pour remplir un BDD grace à ce code:
With Sheets("Calcul")
.Range("F" & C).Value = TextBox3.Value
End With
Jusque là tout va bien sauf que les résultats ne tombant pas juste sont considérés par excel comme étant du texte donc inutilisables pour faire des calculs ultérieurs...
Si quelqu'un pouvait me donner une solution à ce problème ce serait bien sympa.
Par avance merci et à bientôt.
A++
Laurent