Discussion :

[philippef]

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!!!!!!!!!!!!!

[Phifi]

voilà ça me semble assez simple mais le problème c'est qu'à chaque fois j'ai le message qui s'affiche.

A chaque fois que quoi ?

Quelles sont les valeurs de dbt et crt quand ton message s'affiche ?

[philippef]

A chaque fois que quoi ?

Quelles sont les valeurs de dbt et crt quand ton message s'affiche ?

A chaque fois que la lecture du msflexgrid est finie
Un exemple :
sur la ligne 1 colonne 10 j'ai " 642,04"
sur la ligne 2 colonne 11 j'ai " 105,22"
sur la ligne 3 colonne 11 j'ai " 536,82"
lorsque la lecture est terminée :
ma variable dbt contient 642,04
ma variable crt contient 642,04

Et là le message m'annonce que mon écriture n'est pas équilibrée!!!

[Phifi]

Mets un "STOP" sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If dbt <> crt Then

et fais ?dbt et ?crt dans la fenêtre de debug

[philippef]

En fait je crois avoir trouvé la solution, j'ai changé le type de variable.
j'ai mis dbt et crt as currency au lieu de double.

j'ai saisi une 10 de facture et àa marche

merci quand même