Faire des calcule textbox
thomer12
Messages postés
2
Statut
Membre
-
thomer12 Messages postés 2 Statut Membre -
thomer12 Messages postés 2 Statut Membre -
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
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:
- Faire des calcule textbox
- Excel champ calculé avec condition - Forum Excel
- Barbara veut calculer automatiquement son budget dans un tableau. citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). - Forum Musique / Radio / Clip
- Comment on calcule une moyenne - Guide
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). ✓ - Forum LibreOffice / OpenOffice
1 réponse
Bonjour,
Essaie avec
A+
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
Statut
Membre
Merci Beaucoup sa marche
