Faire des calcule textbox

thomer12 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
thomer12 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
bonjour voici un bout de mon code excel et je cherche des solution
Private Sub CommandButton1_Click()
InnerCity = txtInnerCity.Text
BasicPay = txtBasicSalary.Text
OverTime = txtOverTime.Text
lblGrossPay.Caption = InnerCity + BasicPay + OverTime




End Sub
Mon Problème est le suivant au niveau de Grosspay il n'accepte pas de faire des calcule avec des décimal et affiche erreur de compatibilité de type13 pouvez vous m'aider merci

1 réponse

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Essaie avec
Private Sub CommandButton1_Click()
Dim InnerCity As Double, BasicPay As Double, OverTime As Double
InnerCity = CDbl(Replace(txtInnerCity.Text, ".", ","))
BasicPay = CDbl(Replace(txtBasicSalary.Text, ".", ","))
OverTime = CDbl(Replace(txtOverTime.Text, ".", ","))
lblGrossPay.Caption = InnerCity + BasicPay + OverTime
End Sub


A+
0
thomer12 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Beaucoup sa marche
0