Symbole € et format monétaire dans datagridview

Version imprimable

Bonjour à tous,

Afin d'améliorer mon DataGridview je souhaiterai savoir si il est possible d'intégrer automatiquement le symbole € dans ma colonne n°7 "Prix u" et ma colonne n°8 "Total" ?

Je souhaiterai tout simplement avoir le Format "Monnaie" dans ces 2 colonnes.

Dans Access je n'ai aucun problème : Mode création -> Type de donnée= Monétaire (je retrouve bien mon format souhaité)

Mais dans Visual Basic :
Je séléctionne mon datagridview
-> "Columns"
-> je séléctionne de "Prix u"
-> DefailtCellStyle
-> Format
-> Monnaie (C2)

Mais quand je débogue rien n'est pris en compte 8O je ne retrouve aucun format monaitaire ni le symbole Euros.

J'ai essayer ceci sans succés :
Code:

1 2 3 4 5 6 Private Sub SetFormatting() With Me.DataGridView1 .Columns("Prix u").DefaultCellStyle.Format = "c" End With End Sub
ou encore ceci :
Code:

1 2 3 4 5 6 7 Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting If DataGridView1.Columns(e.ColumnIndex).Name.Equals("Prix u") Then If e.Value > 0 Then e.Value = CDec(e.Value).ToString("N2") End If End If End Sub
Comment pourrais-je procéder pour obtenir cela ??

Merci beaucoup

Perso je conserverais le format par défaut dans les propriétés du design et j'appliquerais mon propre format à chaque validation de la cellule.

Exemple :

Code:

1
2
3
4
5
6
7
8
 
    Private Sub Valider(col As Integer, row As Integer, valeur As Decimal)
        DataGridView1.Item(col, row).Value = FormatMonnaie(valeur)
    End Sub
 
    Private Function FormatMonnaie(valeur As Decimal) As String
        Return String.Format("{0:#.00} €", valeur)
    End Function

27/12/2012, 11h55
jeremyvb11

Comment puis-je intègrer ceci dans ma colonne 5 ?
Merci pour ta réponse ;)
27/12/2012, 12h17
jeremyvb11

Je n'arrive pas l'intégrer je ne sais pas trop comment m'y prendre.
Faut t'il que je le mette dans un évenement spécifique ?

Désolé... je déjeunais.
Formate en Euros les colonnes ayant pour Name "ColonnePrixUnit" et "ColonneTotal" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case "ColonnePrixUnit", "ColonneTotal"
                If e.Value <> "" Then
                    Try
                        e.Value = FormatMonnaie(CDec(e.Value))
                    Catch ex As Exception
                        e.Value = ""
                    End Try
                End If
        End Select
    End Sub
 
    Private Function FormatMonnaie(valeur As Decimal) As String
        Return String.Format("{0:#.00} €", valeur)
    End Function

:lol: bon ap !:ccool:

mdevaux62, je n'ai aucun changement malheureusement :calim2:

Voici mon code actuel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case "Prix u", "Total"
                If e.Value <> "" Then
                    Try
                        e.Value = FormatMonnaie(CDec(e.Value))
                    Catch ex As Exception
                        e.Value = ""
                    End Try
                End If
        End Select
    End Sub
 
    Private Function FormatMonnaie(ByVal valeur As Decimal) As String
        Return String.Format("{0:#.00} €", valeur)
    End Function

Pense tu qu'il est possible de passer par les numéro de colonnes ??

Au niveau du Design (de la création), pour les colonnes concernées, à DefaultSetStyle, ne mets rien dans Format (pas de C2 ou autre... RIEN) et rien dans NullValue.

Ensuite, ben mon code marche chez moi (fais le test sur une Form à part avec un DataGridView de test).

Ci-dessous, j'ai ajouté la gestion du séparateur décimal :

Code:

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
    Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case "ColonnePrixUnit", "ColonneTotal"
                If e.Value <> "" Then
                    Try
                        e.Value = FormatMonnaie(CDec(RectifierSeparateur(e.Value)))
                    Catch ex As Exception
                        '
                    End Try
                End If
        End Select
    End Sub
 
    Private Function RectifierSeparateur(valeur As String) As String
        Dim separateur As String = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator
        valeur = valeur.Replace(".", separateur)
        valeur = valeur.Replace(",", separateur)
        Return valeur
    End Function
 
 
    Private Function FormatMonnaie(valeur As Decimal) As String
        Return String.Format("{0:#.00} €", valeur)
    End Function

Effectivement je viens de créer rapidement une datagridview sans bindingsource et cela fonctionne parfaitement.

Dans mon cas j'importe ma base de donnée en ajoutant un bindingsource et cela ne marche pas je ne comprend pas pourquoi.

Je remarque aussi que "Prix u" n'est pas reconnu mais si je met "Prix" cela marche :

Code:

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
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case "Prix", "Total"
                If e.Value <> "" Then
                    Try
                        e.Value = FormatMonnaie(CDec(RectifierSeparateur(e.Value)))
                    Catch ex As Exception
                        '
                    End Try
                End If
        End Select
    End Sub
 
    Private Function RectifierSeparateur(ByVal valeur As String) As String
        Dim separateur As String = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator
        valeur = valeur.Replace(".", separateur)
        valeur = valeur.Replace(",", separateur)
        Return valeur
    End Function
 
 
    Private Function FormatMonnaie(ByVal valeur As Decimal) As String
        Return String.Format("{0:#.00} €", valeur)
    End Function

27/12/2012, 13h10
mdevaux62

Pour ton premier format, il faut voir le format en import (chaîne ou numérique).
Faire un point d'arrêt dans la procédure _CellFormatting permettrait aussi d'analyser l'endroit où ça cloche (quitte à ajouter des variables intermédiaires juste pour le test).

Pour l'histoire du nom de colonne, ça m'étonnait aussi qu'il accepte les espaces...

Je ne fais que des anneries.... tu as raison !
Je me suis trompé sur les nom des colonnes en question !

Voici mon code actuelle :

Code:

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
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case "PrixUDataGridViewTextBoxColumn", "TotalDataGridViewTextBoxColumn"
                If e.Value <> "" Then
                    Try
                        e.Value = FormatMonnaie(CDec(RectifierSeparateur(e.Value)))
                    Catch ex As Exception
                        MessageBox.Show(ex.Message)
                    End Try
                End If
        End Select
    End Sub
 
    Private Function RectifierSeparateur(ByVal valeur As String) As String
        Dim separateur As String = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator
        valeur = valeur.Replace(".", separateur)
        valeur = valeur.Replace(",", separateur)
        Return valeur
    End Function
 
 
    Private Function FormatMonnaie(ByVal valeur As Decimal) As String
        Return String.Format("{0:#.00} €", valeur)
    End Function

J'ai une erreur : L'opérateur '<>' n'est pas défini pour type 'DBNull' et chaîne

sur la ligne

Code:

If e.Value <> "" Then

L'ensemble de mes colonnes sont en datatype= System.String est-ce que cela à une importance ??

27/12/2012, 13h40
mdevaux62
Essaie de remplacer

Code:

If e.Value <> "" Then

par

Code:

If e.Value IsNot Nothing Then

EDIT : A changer aussi dans FormatMonnaie (sinon le 0 avant la virgule n'apparaît pas. Ex : ,23 € au lieu de 0,23€)
Code:

1 2 3 Private Function FormatMonnaie(valeur As Decimal) As String Return String.Format("{0:0.00} €", valeur) End Function

Merci pour l'ensemble de tes réponses mdevaux62 car nous approchons du but !! :lol:

je peux maintenant lancer le débogage mais à chaque saisie j'ai les messages suivant :

-> La conversion de la chaine "" en type 'Decimal' n'est pas valide
-> La consersion du type 'DBNull' en type 'String' n'est pas valide

Voici mon code actuel sous tes conseil :

Code:

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
 Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case "PrixUDataGridViewTextBoxColumn", "TotalDataGridViewTextBoxColumn"
                If e.Value IsNot Nothing Then
                    Try
                        e.Value = FormatMonnaie(CDec(RectifierSeparateur(e.Value)))
                    Catch ex As Exception
                        MessageBox.Show(ex.Message)
                    End Try
                End If
        End Select
    End Sub
 
    Private Function RectifierSeparateur(ByVal valeur As String) As String
        Dim separateur As String = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator
        valeur = valeur.Replace(".", separateur)
        valeur = valeur.Replace(",", separateur)
        Return valeur
    End Function
 
 
    Private Function FormatMonnaie(ByVal valeur As Decimal) As String
        Return String.Format("{0:0.00} €", valeur)
    End Function

as tu une idée sur la chose ?

Merci beaucoup

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        Dim nomColonne As String = DataGridView1.Columns(e.ColumnIndex).Name
        Dim contenuCellule As String = CStr(e.Value)
        Select Case nomColonne
            Case "ColonnePrixUnit", "ColonneTotal"
                If contenuCellule <> "" Then
                    Try
                        e.Value = FormatMonnaie(CDec(RectifierSeparateur(contenuCellule)))
                    Catch ex As Exception
                        '
                    End Try
                End If
        End Select
    End Sub

En cas d'erreur, mets un point d'arrêt au niveau du Select Case et examine le contenu de e.value (type, valeur, etc.)

Bon en fait, en examinant bien le bidule, le code fait boucler l'évènement _CellFormatting.

DONC, je t'ai fait un mix des 2 sujets récents en travaillant sur l'évènement _CellValueChanged.

Ca donne ça (le total est calculé + le format monnaie est placé automatiquement). Il faut juste changer le nom des colonnes (en les remplaçant par les tiens)... je croise les doigts.

Code:

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
    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        If e.ColumnIndex < 0 Or e.RowIndex < 0 Then
            Exit Sub
        End If
        'Obtenir le composant
        Dim grid As DataGridView = DirectCast(sender, DataGridView)
        'Définir le nom des colonnes (à changer en fonction de tes propres paramètres)
        Dim colonneQuantite As String = "ColonneQuantite"
        Dim colonnePrixUnit As String = "ColonnePrixUnit"
        Dim colonneTotal As String = "ColonneTotal"
        'Obtenir la cellule et son contenu
        Dim cellule As DataGridViewCell = grid.Item(e.ColumnIndex, e.RowIndex)
        Dim contenuCellule As String = CStr(cellule.Value)
        'En fonction de la colonne où se trouve la cellule
        Dim nomColonne As String = grid.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case colonneQuantite
                Try
                    'Calculer le total
                    Dim celluleMultiplicande As DataGridViewCell = grid.Item(colonnePrixUnit, e.RowIndex)
                    Dim celluleTotal As DataGridViewCell = grid.Item(colonneTotal, e.RowIndex)
                    If celluleMultiplicande.Value.ToString <> "" Then
                        Try
                            Dim multiplicateur As Decimal = CDec(RectifierSeparateur(contenuCellule))
                            Dim multiplicande As Decimal = CDec(RectifierSeparateur(celluleMultiplicande.Value.ToString))
                            celluleTotal.Value = (multiplicande * multiplicateur).tostring
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                Catch ex As Exception
                    '
                End Try
            Case colonnePrixUnit
                If contenuCellule <> "" Then
                    Try
                        'Appliquer le format
                        Dim mutiplicande As Decimal = CDec(RectifierSeparateur(contenuCellule))
                        cellule.Value = FormatMonnaie(mutiplicande)
                        'Calculer le total
                        Dim celluleMultiplicateur As DataGridViewCell = grid.Item(colonneQuantite, e.RowIndex)
                        Dim celluleTotal As DataGridViewCell = grid.Item(colonneTotal, e.RowIndex)
                        If celluleMultiplicateur.Value.ToString <> "" Then
                            Try
                                Dim multiplicateur As Decimal = CDec(RectifierSeparateur(celluleMultiplicateur.Value.ToString))
                                celluleTotal.Value = (mutiplicande * multiplicateur).ToString
                            Catch ex As Exception
                                MessageBox.Show(ex.Message)
                            End Try
                        End If
                    Catch ex As Exception
                        '
                    End Try
                End If
            Case colonneTotal
                If contenuCellule <> "" Then
                    Try
                        'Appliquer le format
                        Dim total As Decimal = CDec(RectifierSeparateur(contenuCellule))
                        cellule.Value = FormatMonnaie(total)
                    Catch ex As Exception
                        '
                    End Try
                End If
 
        End Select
    End Sub
 
    Private Function RectifierSeparateur(valeur As String) As String
        Dim separateur As String = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator
        valeur = valeur.Replace(".", separateur)
        valeur = valeur.Replace(",", separateur)
        Return valeur
    End Function
 
 
    Private Function FormatMonnaie(valeur As Decimal) As String
        Return String.Format("{0:0.00} €", valeur)
    End Function

27/12/2012, 19h43
jeremyvb11

Piouffff 8O

Honnêtement chapeau bas !
C'est exactement ce que je souhaitai 8O

Ton code fonctionne à merveille mdevaux62 et je t'en remercie grandement car je n'aurai jamais su faire cela !

Problème résolu, mille merciiiiiiiiii

Code:

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
Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        If e.ColumnIndex < 0 Or e.RowIndex < 0 Then
            Exit Sub
        End If
 
        'Obtenir le composant
        Dim grid As DataGridView = DirectCast(sender, DataGridView)
        'Définir le nom des colonnes (à changer en fonction de tes propres paramètres)
        Dim colonneQuantite As String = "QuantitéDataGridViewTextBoxColumn"
        Dim colonnePrixUnit As String = "PrixUDataGridViewTextBoxColumn"
        Dim colonneTotal As String = "TotalDataGridViewTextBoxColumn"
        'Obtenir la cellule et son contenu
        Dim cellule As DataGridViewCell = grid.Item(e.ColumnIndex, e.RowIndex)
        Dim contenuCellule As String = CStr(cellule.Value)
 
        'En fonction de la colonne où se trouve la cellule
        Dim nomColonne As String = grid.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case colonneQuantite
                Try
                    'Calculer le total
                    Dim celluleMultiplicande As DataGridViewCell = grid.Item(colonnePrixUnit, e.RowIndex)
                    Dim celluleTotal As DataGridViewCell = grid.Item(colonneTotal, e.RowIndex)
                    If celluleMultiplicande.Value.ToString <> "" Then
                        Try
                            Dim multiplicateur As Decimal = CDec(RectifierSeparateur(contenuCellule))
                            Dim multiplicande As Decimal = CDec(RectifierSeparateur(celluleMultiplicande.Value.ToString))
                            celluleTotal.Value = (multiplicande * multiplicateur).ToString
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                Catch ex As Exception
                    '
                End Try
            Case colonnePrixUnit
                If contenuCellule <> "" Then
                    Try
                        'Appliquer le format
                        Dim mutiplicande As Decimal = CDec(RectifierSeparateur(contenuCellule))
                        cellule.Value = FormatMonnaie(mutiplicande)
                        'Calculer le total
                        Dim celluleMultiplicateur As DataGridViewCell = grid.Item(colonneQuantite, e.RowIndex)
                        Dim celluleTotal As DataGridViewCell = grid.Item(colonneTotal, e.RowIndex)
                        If celluleMultiplicateur.Value.ToString <> "" Then
                            Try
                                Dim multiplicateur As Decimal = CDec(RectifierSeparateur(celluleMultiplicateur.Value.ToString))
                                celluleTotal.Value = (mutiplicande * multiplicateur).ToString
                            Catch ex As Exception
                                MessageBox.Show(ex.Message)
                            End Try
                        End If
                    Catch ex As Exception
                        '
                    End Try
                End If
            Case colonneTotal
                If contenuCellule <> "" Then
                    Try
                        'Appliquer le format
                        Dim total As Decimal = CDec(RectifierSeparateur(contenuCellule))
                        cellule.Value = FormatMonnaie(total)
                        'Calculer la somme de la colonne Total et placer le résultat dans Label1
                        Label1.Text = FormatMonnaie(CalculSomme("TotalDataGridViewTextBoxColumn"))
                    Catch ex As Exception
                        '
                    End Try
                End If
        End Select
    End Sub

mdevaux62 je rencontre un petit soucis lors d'une manip :

Quand je tape des donnée dans n'importe qu'elle cellule et puis que j'efface avec la touche "Retour" du clavier ce que je viens de saisir (il n'y a donc plus rien de saisi dans ma celulle), je valide par la touche "Entrer" ma cellule et bien j'ai une exeption sur la ligne 13 :

Code:

Dim contenuCellule As String = CStr(cellule.Value)

La conversion du type 'DBNull' en type 'String' n'est pas valide.

Est-il possible de régler cela ou d'y ajouter un messagebox.show("Veuillez saisir des données") ??

Merci beaucoup

Rectifié !

A noter en passant que le signe Euro a disparu du prix unitaire (c'est pas trop grave) du fait de la gestion des caractères en entrée (voir autre sujet).

Le problème de ton programme c'est qu'il s'agit d'un ensemble de processus au service d'un TOUT, ton DataGridView lié à base de données, et que ce tout est difficilement gérable à partir d'un patchwork de fonctions et procédures récupérées au coup par coup.

A un moment, tu seras obligé de mettre tout le code à plat et de la modifier toi-même pour assurer la cohérence de l'ensemble.

Code:

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
 
    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        If e.ColumnIndex < 0 Or e.RowIndex < 0 Then
            Exit Sub
        End If
        'Récupérer le composant
        Dim grid As DataGridView = DirectCast(sender, DataGridView)
        'Définir le nom des colonnes (à changer en fonction de tes propres paramètres)
        Dim colonneQuantite As String = "ColonneQuantite"
        Dim colonnePrixUnit As String = "ColonnePrixUnit"
        Dim colonneTotal As String = "ColonneTotal"
        'Obtenir la cellule et son contenu
        Dim cellule As DataGridViewCell = grid.Item(e.ColumnIndex, e.RowIndex)
        Dim contenuCellule As String
        Try
            contenuCellule = CStr(cellule.Value)
        Catch ex As Exception
            contenuCellule = ""
        End Try
        'En fonction de la colonne où se trouve la cellule
        Dim nomColonne As String = grid.Columns(e.ColumnIndex).Name
        Select Case nomColonne
            Case colonneQuantite
                If contenuCellule <> "" Then
                    Try
                        'Calculer le total
                        Dim celluleMultiplicande As DataGridViewCell = grid.Item(colonnePrixUnit, e.RowIndex)
                        Dim celluleTotal As DataGridViewCell = grid.Item(colonneTotal, e.RowIndex)
                        If celluleMultiplicande.Value.ToString <> "" Then
                            Try
                                Dim multiplicateur As Decimal = CDec(RectifierSeparateur(contenuCellule))
                                Dim multiplicande As Decimal = CDec(RectifierSeparateur(celluleMultiplicande.Value.ToString))
                                celluleTotal.Value = (multiplicande * multiplicateur).ToString
                            Catch ex As Exception
                                MessageBox.Show(ex.Message)
                            End Try
                        End If
                    Catch ex As Exception
                        '
                    End Try
                Else
                    'La cellule validée est vide
                    grid.Item(colonneTotal, e.RowIndex).Value = ""
                End If
            Case colonnePrixUnit
                If contenuCellule <> "" Then
                    Try
                        'Appliquer le format
                        Dim mutiplicande As Decimal = CDec(RectifierSeparateur(contenuCellule))
                        cellule.Value = FormatMonnaie(mutiplicande)
                        'Calculer le total
                        Dim celluleMultiplicateur As DataGridViewCell = grid.Item(colonneQuantite, e.RowIndex)
                        Dim celluleTotal As DataGridViewCell = grid.Item(colonneTotal, e.RowIndex)
                        If celluleMultiplicateur.Value.ToString <> "" Then
                            Try
                                Dim multiplicateur As Decimal = CDec(RectifierSeparateur(celluleMultiplicateur.Value.ToString))
                                celluleTotal.Value = (mutiplicande * multiplicateur).ToString
                            Catch ex As Exception
                                MessageBox.Show(ex.Message)
                            End Try
                        End If
                    Catch ex As Exception
                        '
                    End Try
                Else
                    'La cellule validée est vide
                    grid.Item(colonneTotal, e.RowIndex).Value = ""
                End If
            Case colonneTotal
                If contenuCellule <> "" Then
                    Try
                        'Appliquer le format
                        Dim total As Decimal = CDec(RectifierSeparateur(contenuCellule))
                        cellule.Value = FormatMonnaie(total)
                        'Calculer la somme de la colonne Total et placer le résultat dans Label1
                        Label1.Text = FormatMonnaie(CalculSomme("ColonneTotal"))
                    Catch ex As Exception
                        '
                    End Try
                End If
        End Select
    End Sub

29/12/2012, 11h25
jeremyvb11

wahou 8O;)

Si je maitrisai un peu + la chose j'aurai aussi mis que si la celulle est vide alors contenucellule= ""

Mais effectivement "il s'agit d'un ensemble de processus au service d'un TOUT" et j'avoue que c'est quand même sacrement compliqué pour une personne novice comme moi 8O

Celon ton exemple encore une fois tout fonctionne et étrangement, a mon grand bonheur le signe euros de ma colonne "Prix u" n'a pas disparu et est bien traité !

:merci::merci::merci: