Faire des calcule textbox

Fermé

thomer12 Messages postés 2 Date d'inscription mardi 8 mars 2016 Statut Membre Dernière intervention 9 mars 2016 - 8 mars 2016 à 18:19
thomer12 Messages postés 2 Date d'inscription mardi 8 mars 2016 Statut Membre Dernière intervention 9 mars 2016 - 9 mars 2016 à 16:24

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

A voir également:

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
8 mars 2016 à 19:48

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+

thomer12 Messages postés 2 Date d'inscription mardi 8 mars 2016 Statut Membre Dernière intervention 9 mars 2016
9 mars 2016 à 16:24

Merci Beaucoup sa marche

Discussions similaires

exo pix

comment intégrer une fonction SI dans un champ calculé

CALCULS

Calcul des ventes par mois d'un produit

logiciel pour tableau