Utiliser la fonction "worksheetfunction.sum"
sarah
-
Gord21 Messages postés 928 Statut Membre -
Gord21 Messages postés 928 Statut Membre -
Bonjour,
Je travaille sur un projet VBA, et j'utilise des variable "Double", j'ai besoin d'utiliser la fonction "worksheetfunction.sum" , mon code marche bien sauf quand je saisie un chiffre trés grands ( 10E+6).
Sachant que je suis obligé d'utiliser cette catégorie de variable, quel est la solution pour remédier à ce problème.
Code: ' Message d'Erreur
If WorksheetFunction.Sum(admission.TextBox2.Value, admission.TextBox3.Value, admission.TextBox4.Value, admission.TextBox5.Value, admission.TextBox6.Value, admission.TextBox7.Value, admission.TextBox8.Value, admission.TextBox9.Value) <> admission.activité.Value Then
MsgBox "Erreur de calcul ",vbCritical
End If
Je travaille sur un projet VBA, et j'utilise des variable "Double", j'ai besoin d'utiliser la fonction "worksheetfunction.sum" , mon code marche bien sauf quand je saisie un chiffre trés grands ( 10E+6).
Sachant que je suis obligé d'utiliser cette catégorie de variable, quel est la solution pour remédier à ce problème.
Code: ' Message d'Erreur
If WorksheetFunction.Sum(admission.TextBox2.Value, admission.TextBox3.Value, admission.TextBox4.Value, admission.TextBox5.Value, admission.TextBox6.Value, admission.TextBox7.Value, admission.TextBox8.Value, admission.TextBox9.Value) <> admission.activité.Value Then
MsgBox "Erreur de calcul ",vbCritical
End If
A voir également:
- Utiliser la fonction "worksheetfunction.sum"
- Fonction si et - Guide
- Comment utiliser chromecast sur tv - Guide
- Utiliser iphone comme webcam - Guide
- Utiliser tablette comme deuxieme ecran - Guide
- Comment utiliser teamviewer - Guide
1 réponse
Bonjour,
As-tu essayé CDbl ?
As-tu essayé CDbl ?
If WorksheetFunction.Sum(CDbl(admission.TextBox2.Value), CDbl(admission.TextBox3.Value), CDbl(admission.TextBox4.Value), CDbl(admission.TextBox5.Value), CDbl(admission.TextBox6.Value), CDbl(admission.TextBox7.Value), CDbl(admission.TextBox8.Value), CDbl(admission.TextBox9.Value)) <> admission.activité.Value Then MsgBox "Erreur de calcul ",vbCritical End If
