Problème de conversion avec MSFlexGrid
Bonjour.
J'ai un problème de conversion avec msflexgrid.
Je lis les lignes et j'additionne dans 2 variables.
Lorsque la lecture est finie je compare mes variables et si elles ont pas la même valeur, j'affiche un message et je sorts de la procédure.
les chiffres dans le msflexgrid ont le format "# ##0.00"
mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Public dbt As Double
Public crt As Double
Private Sub CdFacture_Click(Index As Integer)
dbt = 0
crt = 0
Select Case Index
Case 0 'bouton pour enregistrer la facture
'contrôle équilibre de la facture
Do While fg.TextMatrix(r, 1) <> ""
dbt = dbt + CDbl(fg.TextMatrix(r, 10)) 'colonne débit
crt = crt + CDbl(fg.TextMatrix(r, 11)) 'colonne crédit
r = r + 1
Loop
If dbt <> crt Then
MsgBox "Ecriture non équilibrée !", vbInformation
Exit Sub
else 'enregistrment de la facture
...... |
voilà ça me semble assez simple mais le problème c'est qu'à chaque fois j'ai le message qui s'affiche.
Si vous avez une idée!!!!!!!!!!!!!
