Discussion :

[JetLibre]

Bonjour à tous.

j'ai une DataGridView qui contient 14 colonnes et X lignes.
Les données sont stockés dans une base Access 2007, dans une table dont les champs sont monétaires.
La colonne 1 est le clé primaire, la colonne 2 à 13 contiennent les montants versés par mois,
et la colonne 14 sert à faire le Total des montants des 12 mois.
Je veux dans un TextBox faire la somme des Totaux. Mon problème c'est que la formule que j'ai trouvé
ne prend pas en considération les chiffres après la virgule (c.à.d 15.200 + 14.500 ça donne 29.000 au lieu de 29.700).

Code :

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

1
2
3
        For I = 0 To DG1.RowCount - 1
                        TextBox1.Text = Format(Val(DG1c.Rows(I).Cells(14).FormattedValue) + Val(TextBox1.Text), "0.000") ' 3Chiffres après la virgule
                   Next I

[clementmarcotte]

Bonjour,

Il ne faut JAMAIS utiliser Val() quand la virgule est le symbole décimal. Tu peux passer par Cdbl ou utiliser Double.parse() ou Double.tryparse. En principe, TryParse ne plante pas le programme en cas d'échec de la conversion, mais cela n'interdit pas de mettre des garde-fous pour ne pas planter ailleurs si tu n'as pas un nombre à la fin.

[JetLibre]

Merci pour votre attention mais:

**** j'ai utilisé CDbl et voila le message d'erreur

Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll

Informations supplémentaires : La conversion de la chaîne "" en type 'Double' n'est pas valide.

**** pour Double.parse() voila le message d'erreur

Une exception non gérée du type 'System.FormatException' s'est produite dans mscorlib.dll

Informations supplémentaires : Le format de la chaîne d'entrée est incorrect.

**** pour Double.tryparse() ça n'a pas marché.

[JetLibre]

problème résolu


Dim I As Integer = 0
Dim J As Double = 0

Code :

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

1
2
3
4
  For I = 0 To DG1.RowCount - 1
                J = Format(CDbl(DG1.Rows(I).Cells(14).FormattedValue + J), "0.000")
        Next I
        TextBox1.Text = J

[clementmarcotte]

Bonjour,

Merci pour votre attention mais:

**** pour Double.parse() voila le message d'erreur

Une exception non gérée du type 'System.FormatException' s'est produite dans mscorlib.dll

Informations supplémentaires : Le format de la chaîne d'entrée est incorrect.

**** pour Double.tryparse() ça n'a pas marché.

Cela prend au moins 2 paramètres:

https://msdn.microsoft.com/fr-fr/lib...v=vs.110).aspx

Dans l'éditeur VB; un clic sur Tryparse et