Discussion :

[jeremyvb11]

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 je ne retrouve aucun format monaitaire ni le symbole Euros.

J'ai essayer ceci sans succés :

Code :

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

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 :

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

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

[mdevaux62]

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 :

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

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

[jeremyvb11]

Comment puis-je intègrer ceci dans ma colonne 5 ?
Merci pour ta réponse

[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 ?

[mdevaux62]

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

Code :

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

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

[jeremyvb11]

bon ap !

mdevaux62, je n'ai aucun changement malheureusement

Voici mon code actuel :

Code :

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

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