[AC-2003] Somme d'une colonne dans une zone de liste avec décimale [Résolu]

[PAUL87]

Bonjour à tous,
Dans le forum et tutos, j'ai trouvé ceci

Code :

1
2
3
4
5
6
7
8
Dim i As Integer, lSum As Long
Dim im As Integer, ix As Integer
 If Me.Liste1.ColumnHeads = True Then im = 1 Else im = 0
ix = Me.Liste1.ListCount - 1
For i = im To ix
    lSum = lSum + Me.Liste1.Column(4, i)
Next
Me.Texte5 = lSum

que j'ai adapté à mon appli.
J'ai bien le total du contenu de la colonne 4 qui se fait dans ma TextBox5,
mais je n'ai pas les 2 décimales, qui restent toujours à ,00
J'ai bien mis le bon format pour ma TextBox

[lelensois16]

Bonjour ,

Code :

1
2
Dim i As Integer, lSum As Long
Dim im As Integer, ix As Integer

Les types integer ne sont pas appropriés !

Cdt

[PAUL87]

...Ben...
j'ai essayé tous les types de variable..
sans résultats...enfin plutôt toujours le même..
Je ne sais pas

[Philippe JOCHMANS]

Bonjour

Envoyé par PAUL87

j'ai essayé tous les types de variable..

C'est à dire ?

Tes données sont de quel type au départ ? Il arrive souvent que l'on fasse une conversion par sécurité avec une fonction de type CDbl pour avoir une donnée de type Double qui devrait t'aider pour tes calculs.

Philippe

[PAUL87]

Re bonjour.
et merci
Au départ, dans ma table "Ventes"
il s'agit d'un champ nommé "montantTTC"
qui est paramétré en
Type de données :Numérique
Taille du champ : Réel simple
Format: standard
Décimale:2
le total de la colonne 4 de ma ZL1 se fait bien, mais sans les 2 décimales..
je n'y comprends rien..
Encore Merci ++++ pour vos conseils...

[PAUL87]

Ca y est..!!! ça marche !!
j'ai juste changé ça.

Code :

lSum As Double

Merci..!!