Somme d'une colonne dans une zone de liste avec décimale

**PAUL87** · 26/10/2011, 09h32

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

Code :

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

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** · 26/10/2011, 17h40

Bonjour ,

Code :

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

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** · 26/10/2011, 19h30

...Ben...

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

Invité · 27/10/2011, 05h49

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** · 27/10/2011, 18h29

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