Bonjour Ouin Ouin, Yeahou, le Forum
Ce n'est pas à ce moment là (là tu envoies les résultats dans les labels) que tu dois utiliser la proposition de Yeahou, c'est lors de la récupération de ce qu'il y a dans les Labels...
Perso, moi, je ferai tout ceci en déclarant des Variables Doubles et Publiques Niveau Module...
Top du Module (Sous Option Explicit)
Dim Resultat1 as Double
Dim Resultat2 as Double
Private Sub TextBox13_Change()
On Error GoTo erreur
Resultat1 = (TextBox14.Value * TextBox13.Value) / 100
Resultat2 = (TextBox13.Value * (100 - TextBox14.Value) / 100
Label1.Caption = Format(Resultat1, "##,###,##0.000")
Label2.Caption = Format(Resultat2, "##,###,##0.000")
Exit Sub
erreur:
Label1.Caption = 0
Label2.Caption = 0
End Sub
Et imaginons que tu envoies ces résultats dans la feuilles par un CommandButton çà donnerait ceci :
Private Sub CommandButton1_Click()
If Resultat1 <> 0 And Resultat2 <> 0 Then
With Sheets("LaFeuille")
.Range("A1") = Resultat1
.Range("A2") = Resultat2
End With
Else
MsgBox "Les Calculs ne sont pas faits"
End If
End Sub
Bon Aprèm
@+Thierry