Discussion :

[GRIMPMASTER]

Bonjour ;
comment faire une addition sur des nombres à virgule dans une colonne msflexgrid .

Code :

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

1
2
3
4
5
6
7
Dim total As Long, N As Long
total = 0
For N = 0 To MSFG.Rows - 1
   total = total + Val(MSFG.TextMatrix(N, 7))
Next N
 
TEXT1.Text = total

Pour ce qui est des nombre simples ça marche bien mais dès qu'il ya nombre avec virgule , le résultat est arrondis ,exemple la colonne avec deux valeurs: val1=8.7 , val2=5 la somme ets arrondi a :14
Merci d'avance.

Merci d'avance.

[SfJ5Rpw8]

bonsoir,

un coup d'aide en ligne sur le type long devrais t'aider

[GRIMPMASTER]

Le calcul sur le form se passe vraiment bien mais pour les donnée afficher sur le msflexgrid ,là je suis vraiment désemparé!!!

[SfJ5Rpw8]

la touche ne fonctionne pas ?

regarde ce tableau :
http://argyronet.developpez.com/offi...nvention/#L3-1

[GRIMPMASTER]

Cela est t-il suite a la valeur retourné du type des déclaration??

[petchy]

bonjour

essaye ça

Code :

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

total = total + cdbl(MSFG.TextMatrix(N, 7))

[GRIMPMASTER]

Bonjours;
j'ai essai cdbl pour double,ça renvoi "0"

[iclic]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim total As Currency, N As Long
total = 0
For N = 0 To MSFG.Rows - 1
    MSFG.TextMatrix(N, 7) = Replace(MSFG.TextMatrix(N, 7), ",", ".")
    total = total + Val(MSFG.TextMatrix(N, 7))
Next N
TEXT1.Text = Str(total)
TEXT1.Textr = Replace(TEXT1.Text, ".", ",")

[GRIMPMASTER]

Bonjour;
je vous remercie infiniment,maintenant tout est rentré dans l'ordre.

[GRIMPMASTER]

Bonjour,
juste une ligne de formatage pour que le l'affichage soit correct lorsque on additionne des chiffres tel que : 0,025 , 0,5....etc et c'est parfait.merci encore iclic.

Code :

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

1
2
3
4
5
6
7
8
9
Dim total As Currency, N As Long
total = 0
For N = 0 To MSFG.Rows - 1
    MSFG.TextMatrix(N, 7) = Replace(MSFG.TextMatrix(N, 7), ",", ".")
    total = total + Val(MSFG.TextMatrix(N, 7))
Next N
TEXT1.Text = Str(total)
TEXT1.Text = Replace(TEXT1.Text, ".", ",")
TEXT1.Text = Format(CCur(((Text1.Text))))