Discussion :

[csilas]

Bonsoir a tous,

Voila, j'ai un petit problème pour additionner des variables. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If Mid(vLigne, 39, 13) = "1680544109053" Then
     brutMsa = Mid(vLigne, 89, 10)
     brutMsa = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
     brutMsa = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
     With rstEmploye
          .Fields("brutDernierTrimestre").Value = brutMsa
          .Update
     End With
End If

Je dois récupérer trois données afin des les additionner. Ce code marche lorsque les trois données sont identiques. Cependant lorsque au moins une des trois données est différentes alors la il y a un écart. Un écart important.
Donc je viens vers vous car je ne vois pas du tout d'où peut venir le problème.

De plus, je voulais savoir comment convertir un string en double. J'ai écrit ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
vBrutMSA = CDbl(Mid(vLigne, 88, 11))
     With rstSalaire
         .AddNew
          .Fields("idEmploye").Value = IDEmploye
         .Fields("dateSalaire").Value = Mid(vLigne, 52, 8)
         .Fields("brutMSA").Value = vBrutMSA
         .Update
         IDSalaire = .Fields("idSalaire").Value
End With

mais dans ma table, elle ne se transforme pas. Pour info, j'essaye de convertir ceci : +0000003456 --> + 34,56

J'esepere avoir était assez claire.

Cordialement.

[DAUDET78]

Pour moi, tu mélanges allégrement les types de variable ......

Code :

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

brutMsa = Mid(vLigne, 89, 10) ' brutMSA est un string

Code :

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

brutMsa = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10))) ' tu affectes un résultat numérique à un string

Moi, je ferais ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim brutMsa as String
If Mid(vLigne, 39, 13) = "1680544109053" Then
     brutMsa = Mid(vLigne, 89, 10)
     RR& = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
 
     With rstEmploye
          .Fields("brutDernierTrimestre").Value = RR&
          .Update
     End With
End If

[Delbeke]

Attention avec la fonction Val. Si le separateur decimal est une virgule, seule la partie entière est retournée.

[csilas]

Il n'y as pas de séparateur.

Le format est soit +0000000345928 ou -0000000124398. Ceci est un exemple. Il n'y a pas de point ou de virgule.

Le résultat que j'obtiens est le suivant:
J'obtiens par exemple (avec comme chaine en entrée +0000000345928):
j'obtiens 345928,00 au lieu de 3459,28.

Pour information, j'extraie les données d'un .txt

cordialement

[Delbeke]

Ben pour moi le résultat est parfaitement correct.
La dificulté avec la programmation, c'est que les ordinateurs font ce qu'on leur dit de faire, pas forcément ce que l'on veut qu'ils fassent.
Comment veux tu que l'ordi sache qu'il doit diviser ton resultat par 100 ?

[csilas]

Je reviens vers vous. Car je viens de tester le code de DAUDET78 et sa ne marche toujours pas.
De plus, Le code oublie de passer par un enregistrement.

Ma première addition fait:
198700 + 198700 = 397400 (bon résultat)

Mais ma deuxième addition fait:
287400 + 287400 = 578400 (au lieu de 574800 Donc écart de 3600)

J'ai essayé avec ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim brutMsa as String
If Mid(vLigne, 39, 13) = "1680544109053" Then
     brutMsa = Mid(vLigne, 89, 10)
     brutMsa = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
     RR& = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
     With rstEmploye
          .Fields("brutDernierTrimestre").Value = RR&
          .Update
     End With
End If

Le programme prend bien en compte les trois enregistrements que je veux additionner. Mais il y a un écart (Même problème)

Première ligne OK: cad
198700 + 198700 + 198700 = 596100 (bon résultat)

Deuxiéme ligne :
287400 + 287400 + 289200 = 867600 (au lieu de 864000 écart de 3600)

Avez-vous une idée?
JE vous donne l'intégralité de mon code. Car il doit récupérer 3600 quelque part mais je ne vois pas du tout.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
 
Sub importMSA2()
 
 ' déclaration des variables
Dim rstEmploye As ADODB.Recordset
Dim rstSalaire As ADODB.Recordset
Dim rstCotisation As ADODB.Recordset
Dim CType As ADODB.CursorTypeEnum
Dim LType As ADODB.LockTypeEnum
Dim CLocation As ADODB.CursorLocationEnum
Dim Cnct As ADODB.Connection
 
Dim brutMsa as String
 
Dim IDEmploye As Integer
Dim IDSalaire As Integer
Dim nomFichierMSA As String
Dim numFichier As Integer
 
' ouverture du fichier en entrée
nomFichierMSA = tbMSA.Text
numFichier = FreeFile                           'Génère un descripteur de fichier libre, Définit un numéro de fichier libre
Open nomFichierMSA For Input As numFichier      'Ouvre le fichier (en mode lecture)
 
CType = adOpenStatic
LType = adLockOptimistic
CLocation = adUseServer
 
 
If Not EOF(numFichier) Then
    ' instanciation et ouverture de la connexion
    Set Cnct = New ADODB.Connection
    Cnct.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tbBDD.Text & ";"
    Cnct.Open
    Line Input #numFichier, vLigne
 
    Set rstEmploye = New ADODB.Recordset
    With rstEmploye
        .CursorLocation = CLocation
        .CursorType = CType
        .LockType = LType
        Set .ActiveConnection = Cnct 'instance de ADODB.Connection
        .Open "SELECT * FROM Employes"
    End With
 
    Set rstSalaire = New ADODB.Recordset
    With rstSalaire
        .CursorLocation = CLocation
        .CursorType = CType
        .LockType = LType
        Set .ActiveConnection = Cnct ' instance de ADODB.Connection
        .Open "SELECT * FROM Salaires"
    End With
 
    Set rstCotisation = New ADODB.Recordset
    With rstCotisation
        .CursorLocation = CLocation
        .CursorType = CType
        .LockType = LType
        Set .ActiveConnection = Cnct
        .Open "SELECT * FROM Cotisations"
    End With
End If
While Not EOF(numFichier)
    Line Input #numFichier, vLigne              'Lit une ligne
    If Mid(vLigne, 60, 2) = "10" Then
        With rstEmploye
            .AddNew
            .Fields("numSS").Value = Mid(vLigne, 39, 13)
            .Fields("nom").Value = Mid(vLigne, 62, 25)
            .Update
            IDEmploye = .Fields("idEmploye").Value
        End With
    End If
    If Mid(vLigne, 60, 2) = "20" Then
        If Mid(vLigne, 39, 13) = "1680544109053" Then
                brutMsa = Mid(vLigne, 89, 10)
                brutMsa = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
                &&R = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))
               MsgBox brutMsa
            With rstEmploye
                .Fields("brutDernierTrimestre").Value = &&R
                .Update
            End With
        End If
        vBrutMSA = CDbl(Mid(vLigne, 88, 11))
        With rstSalaire
            .AddNew
            .Fields("idEmploye").Value = IDEmploye
            .Fields("dateSalaire").Value = Mid(vLigne, 52, 8)
            .Fields("brutMSA").Value = vBrutMSA
            .Update
            IDSalaire = .Fields("idSalaire").Value
        End With
    End If
    If Mid(vLigne, 60, 2) = "30" Then
        vMontant = CDbl(Mid(vLigne, 87, 12))
        With rstCotisation
            .AddNew
            .Fields("idSalaire").Value = IDSalaire
            .Fields("typeCotisation").Value = Mid(vLigne, 62, 5)
            .Fields("montant").Value = vMontant
            .Update
        End With
    End If
    ProgressBar1.Min = 0
    ProgressBar1.Max = rstEmploye.RecordCount
    ProgressBar1.Value = 0
    ProgressBar1.Value = ProgressBar1.Value + 1
    lblPourcentage.Caption = Int((ProgressBar1.Max / ProgressBar1.Value * 100) / 100) & " %"
    lblPourcentage.Refresh
Wend
If Not (Cnct Is Nothing) Then
    rstEmploye.Close
    rstSalaire.Close
    rstCotisation.Close
    Cnct.Close
    Set rstEmploye = Nothing
    Set rstSalaire = Nothing
    Set rstCotisation = Nothing
    Set Cnct = Nothing 'Pour être sur que l'instance de la connexion est bien "libérée" (ce qui est différent de "fermée", la fermeture se faisant via le close)
End If
MsgBox "           L'importation MSA est términée"
End Sub

Cordialement

[DAUDET78]

Je ne sais pas trop a quoi sert ton programme, mais pour moi la ligne

Code :

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

    brutMsa = (Val(brutMsa)) + (Val(Mid(vLigne, 89, 10)))

est toujours incorrect. Tu affectes une valeur numérique à une variable string (et avec un peu trop de parenthèse ...)

Code :

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

1
2
3
4
5
6
7
8
9
10
dim brutMsa as String
If Mid(vLigne, 39, 13) = "1680544109053" Then
     brutMsa = Mid(vLigne, 89, 10)
     RR& = Val(brutMsa) + Val(Mid(vLigne, 89, 10))
     RR& = RR&+ Val(Mid(vLigne, 89, 10))
     With rstEmploye
          .Fields("brutDernierTrimestre").Value = RR&
          .Update
     End With
End If

Si tu pouvais donner un code qui n'utilise pas une base de donnée ( mais des valeurs en constantes, par exemple), ce serait plus facile pour t'aider

[csilas]

Bonjour DAUDET78,

En gros mon programme sert a analyser les écarts de cotisations. J'ai un fichier .txt qui provient de la MSA et je dois l'inserer dans une base Access par le biais d'une moulinette VB6 (Je suis en stage).

J'ai des lignes et chaque ligne et un enregistrement.

Mid(vLigne, 89, 10) représente la zone que je dois récupérer. Au total j'en ai trois, que je dois additionner afin d'avoir le salaire Brut Trimestrielle.

La ligne ou se trouve l'enregistrement qui m'interesse (ici le salaire brut mensuel) et identifier par un code. Si le code = 20 alors je me positionne sur --> Mid(vLigne, 89, 10) afin de récupérer la valeur.

je dois donc récupérer les trois salaires (par salarié) afin de les additionner et de les insérer dans ma base.

Tu ne vois pas d'ou peut venir l'erreur d'addition?
De plus, si il y avait un probléme de type de donnée, ne pense tu pas que l'addition ne se ferai pas du tout?

[DAUDET78]

Tu ne vois pas d'ou peut venir l'erreur d'addition?

Je vois qu'il y a des trucs qui me semble bizaroïde ...

De plus, si il y avait un probléme de type de donnée, ne pense tu pas que l'addition ne se ferai pas du tout?

Je ne suis pas assez spécialiste .... Le code de la route, je le respecte en roulant bien à droite, je ne l'interprète pas !
Et si tu faisais ça ?

Code :

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

RR& = 3 * Val(Mid(vLigne, 89, 10))

[csilas]

Code :

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

1
2
3
Et si tu faisais ça ?
Code :
RR& = 3 * Val(Mid(vLigne, 89, 10))

Si je fais sa, le résultat est bon. Sa fait 3 * 289200 = 867600

Mais je ne peut pas multiplier. Car les salaires peuvent être différents d'un mois a un autre (primes etc...)

[DAUDET78]

Alors tu fais ça

Code :

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

RR& = Val(Mid(vLigneJanvier, 89, 10))+Val(Mid(vLigneFevrier, 89, 10))+Val(Mid(vLigneMars, 89, 10))

[csilas]

Je ne peux pas faire ceci. Car si je fais sa, sa va prendre le même résultat a chaque fois.

Je dois faire (je pense), une boucle qui me permettent de me situer sur l'enregistrement ou il y a la donnée a récuperer. Quand je la récupère, je change de ligne.

J'ai essayer avec une boucle For, mais je passe 9 fois dans la boucle. Trois fois pour le 1er mois, 3 fois pour le deuxième mois et 3 fois pour le 3eme mois.


Mais je ne vois pas comment faire.
Je ne sais pas si j'ai étais précis.

[DAUDET78]

Je ne sais pas si j'ai étais précis.

Hélas non ...

Utilise le 2 éme code de ma réponse #7

si tu veux plus d'aide, tu fais un programme simplifié sans base de donnée qui présente le problème.

[iclic]

Bonjour à tous,

D'abord ,ce n'est jamais bon de mélanger des poires et des pommes

donc quand on fait des calculs ,on utilise des variables numériques partout.

Pour travailler sur du numéraire,tu as intérêt à choisir des variables de type currency qui est plus approprié.

pour transformer:

variablecurrency = Ccur ( variablestring )

et... comme le dit bien Delbeke ,diviser le résultat par 100

A+

[csilas]

Je viens de tester avec CCur, le résultat est toujours le même.
Je ne sais plus quoi faire. j'ai toujours un écart quand les 3 salaires sont différents.

Sinon, pour la division par 100 --> C'est Ok, j'ai oublié de le préciser..

Mais pour mon algo de calcul des trois salaires, il y a toujours un problème.

Je ne comprends vraiment pas l'erreur. Je dois vraiment être nul.

Cordialement.

[iclic]

Et pour compléter...
tu ajoutes... ( en rouge)

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

Dim brutmsa As Currency
Dim brutmsatri As Currency

While Not EOF(numFichier)
    Line Input #numFichier, vLigne              'Lit une ligne
    If Mid(vLigne, 60, 2) = "10" Then
        With rstEmploye
            .AddNew
            .Fields("numSS").Value = Mid(vLigne, 39, 13)
            .Fields("nom").Value = Mid(vLigne, 62, 25)
            .Update
            IDEmploye = .Fields("idEmploye").Value
        End With
    End If
    If Mid(vLigne, 60, 2) = "20" Then
        If Mid(vLigne, 39, 13) = "1680544109053" Then
                brutmsa = Mid(vligne,89, 10)
                brutmsatri = brutmsatri + brutmsa (à chaque ligne ,tu additionnes le mois)
               
        End If
        vBrutMSA = CDbl(Mid(vLigne, 88, 11))
        With rstSalaire
            .AddNew
            .Fields("idEmploye").Value = IDEmploye
            .Fields("dateSalaire").Value = Mid(vLigne, 52, 8)
            .Fields("brutMSA").Value = vBrutMSA
            .Update
            IDSalaire = .Fields("idSalaire").Value
        End With
    End If
    If Mid(vLigne, 60, 2) = "30" Then
        vMontant = CDbl(Mid(vLigne, 87, 12))
        With rstCotisation
            .AddNew
            .Fields("idSalaire").Value = IDSalaire
            .Fields("typeCotisation").Value = Mid(vLigne, 62, 5)
            .Fields("montant").Value = vMontant
            .Update
        End With
    End If
    ProgressBar1.Min = 0
    ProgressBar1.Max = rstEmploye.RecordCount
    ProgressBar1.Value = 0
    ProgressBar1.Value = ProgressBar1.Value + 1
    lblPourcentage.Caption = Int((ProgressBar1.Max / ProgressBar1.Value * 100) / 100) & " %"
    lblPourcentage.Refresh
Wend
'seulement ici ,après le Wend tu écris l'enregistrement du montant trimestriel 

With rstEmploye
                .Fields("brutDernierTrimestre").Value = brutmsatri
                .Update
 End With

[csilas]

Tout d'abord merci a tous.

Je viens de trouver:
Voici le code, cela va peut-etre aider quelqu'un:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim brutMsa as String
Dim totalBrutMsa as String
If Mid(vLigne, 39, 13) = "1680544109053" Then
     With rstEmploye
          brutMsa = Val(Mid(vLigne, 89, 10))
          totalBrutMsa = Val(totalBrutMsa) + Val(brutMsa)
          .Fields("brutDernierTrimestre").Value = (totalBrutMsa / 100)
          .Update
     End With
End If

Pour information, j'avais une erreur car j'avais mis une ligne de code "test" que j'avais oublié de supprimer.

Désolé, pour ce post idiot.
En tous cas merci a vous tous pour votre aide.

Cordialement.

[Delbeke]

Tu es incurable !
Pourquoi t'obstines tu à utiliser des variables en string ?
La tu cherches les problémes.

Si tu considéres que tu as la solution à ton problème, click sur le bouton résolu en bas de ce topic

[csilas]

Bonjour,
Je ne m'obstine pas. Le probléme est que je suis actuellement en stage et j'ai des contraintes de temps. Je dois terminer mon application a la fin de la semaine. Et je ne peux pas me permettre de perdre encore du temps sur sa.

Quel probléme pourrais-je avoir? Je suis débutant et ne vois pas trop ce que cela pourrait engendrer comme probléme?

Merci a vous.

Je met le post en résolu, pour l'instant.

Cordialement