Utiliser la fonction "worksheetfunction.sum" Fermé

Question

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


Configuration: Windows Vista / Internet Explorer 7.0

Gord21 · Answer

Bonjour,
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

Utiliser la fonction "worksheetfunction.sum"

1 réponse

Discussions similaires