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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!!!!!!!!!!!!!