Checkbox en DataGridView état Checked (True)

**ahmedfa71** · 15/06/2020, 11h20

Bonjour,
J'ai un DataGridView avec en colonne de type checkbox. Je souhaiterai que lorsque je coche le checkbox
des cells reviens reviens 0.00

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
19
20
21
22
23
24
 Private Sub DView_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DView.CellClick
 
For Each row As DataGridViewRow In DView.Rows
            Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("checkBoxColumn").Value)
            If isSelected Then
                For i As Integer = 0 To Me.DView.Rows.Count - 1
                    Dim total As Integer = 0
                    Me.DView(5, i).Value = Format(Me.DView(5, i).Value * total, "0.00")
                    Me.DView(7, i).Value = Format(Me.DView(7, i).Value * total, "0.00")
                    Me.DView(8, i).Value = Format(Me.DView(8, i).Value * total, "0.00")
                    Me.DView(9, i).Value = Format(Me.DView(9, i).Value * total, "0.00")
                    Me.DView(10, i).Value = Format(Me.DView(10, i).Value * total, "0.00")
                    Me.DView(11, i).Value = Format(Me.DView(11, i).Value * total, "0.00")
                    Me.DView(12, i).Value = Format(Me.DView(12, i).Value * total, "0.00")
                    Me.DView(12, i).Value = Format(Me.DView(12, i).Value * total, "0.00")
                    Me.DView(13, i).Value = Format(Me.DView(13, i).Value * total, "0.00")
                    Me.DView(14, i).Value = Format(Me.DView(14, i).Value * total, "0.00")
                    Me.DView(15, i).Value = Format(Me.DView(15, i).Value * total, "0.00")
                    Me.DView(16, i).Value = Format(Me.DView(16, i).Value * total, "0.00")
                Next
 
            End If
        Next
    End Sub

Merci beaucoup et bonne journée.

**MABROUKI** · 15/06/2020, 21h53

bonjour

code exemple .vb:

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
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
 
Public Class Form2
    Private Produits As DataTable
    Private rnd As New Random
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Produits = GetTable()
        DGV.DataSource = Produits
        Me.DGV.Columns("PrixHT").DefaultCellStyle.Format = "F2" 'format virgule fixe 2 decimales
 
    End Sub
    Private Function GetTable() As DataTable
 
        Dim dt As New DataTable("produits")
        dt.Columns.Add("Quantite", GetType(Integer))
        dt.Columns.Add("PrixUnitaire", GetType(Double))
        dt.Columns.Add("PrixHT", GetType(Double))
        dt.Columns.Add("Verifier", GetType(Boolean))
        Dim dr As DataRow = dt.NewRow()
        For n As Integer = 1 To 10
 
            dr(0) = rnd.Next(10, 20)
            dr(1) = Math.Round(rnd.NextDouble() * 100, 2)
            dr(2) = dr(0) * dr(1) 'PrixHT=Quantite*PrixUnitaire
            dr(3) = False
            dt.Rows.Add(dr)
            dr = dt.NewRow()
        Next
        Return dt
    End Function
 
    Private Sub DGV_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick
        If (e.RowIndex < 0 Or e.ColumnIndex < 0) Then Return
        Dim row As DataGridViewRow = DGV.Rows(e.RowIndex)
        Dim currRow As Integer = e.RowIndex
        Dim currCol As Integer = e.ColumnIndex
        Dim isSelected As Boolean = row.Cells("Verifier").Selected
        If isSelected Then
            Dim total As Integer = 0
            ClearChecked(total, currCol)
        End If
    End Sub
    Private Sub ClearChecked(tot As Double, col As Integer)
        For irow As Integer = 0 To DGV.Rows.Count - 1
            Me.DGV(col - 1, irow).Value = Format(Me.DGV(col - 1, irow).Value * tot, "F2")
 
        Next
 
    End Sub
End Class

bon code..
..

**ahmedfa71** · 16/06/2020, 11h15

Bonjour, et merci mabrouki
dans la cellule précise dans la ligne cocher seulement dans le ligne sélectionnée et pas dans toute la colonne.
Par exemple cellule N 2 de la ligne cocher.
J'ai changé le code mais il na pas marché.

Code :

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

1
2
3
4
5
6
 Private Sub ClearChecked(ByVal tot As Double, ByVal col As Integer)
        For irow As Integer = 0 To DView.Rows.Count - 1
            ' Me.DView(col - 1, irow).Value = Format(Me.DView(col - 1, irow).Value * tot, "F2")
            Me.DView(2, irow).Value = Format(Me.DView(2, irow).Value * tot, "f2")
        Next
    End Sub

**MABROUKI** · 16/06/2020, 15h39

Il faudrait savoir d'abord ce que tu veux exactement car le premier code posté "balaie" toutes les lignes du DGV et non la ligne en cours.....

**ahmedfa71** · 16/06/2020, 16h40

bonsoir mabrouki,
je veux exactement que code du DGV marche avec des cellule précises dans la ligne en cours (la ligne cocher du chekbox)
par ex dans la ligne sectionne (cheked=true) la valeur du cellule 2, 3 ... devient 0.00 quelque cellules et pas toute la ligne si c'est possible
merci

**MABROUKI** · 16/06/2020, 21h40

1/ ce code au début abrège les "souffrances" concernant le format des cellules:

Code :

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

1
2
3
 
   Me.DGV.Columns("PrixHT").DefaultCellStyle.Format = "F2" 'format virgule fixe 2 decimales
        Me.DGV.Columns("PrixTVA").DefaultCellStyle.Format = "F2" 'format virgule fixe 2 decimales

2/ l'indexation des Cells cibles par le nom des colonnes fait le même boulot.
3/ dans le cas que tu cherches à résoudre ,e.RowIndex (ligne en cours) est ton ami.

code .vb revu qui fera ton bonheur:

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
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
 
Public Class Form3
    Private Produits As DataTable
    Private rnd As New Random
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Produits = GetTable()
        DGV.DataSource = Produits
        Me.DGV.Columns("PrixHT").DefaultCellStyle.Format = "F2" 'format virgule fixe 2 decimales
        Me.DGV.Columns("PrixTVA").DefaultCellStyle.Format = "F2" 'format virgule fixe 2 decimales
 
    End Sub
    Private Function GetTable() As DataTable
 
        Dim dt As New DataTable("produits")
        dt.Columns.Add("Quantite", GetType(Integer))
        dt.Columns.Add("PrixUnitaire", GetType(Double))
        dt.Columns.Add("PrixHT", GetType(Double))
        dt.Columns.Add("TauxTVA", GetType(Double))
        dt.Columns.Add("PrixTVA", GetType(Double))
        dt.Columns.Add("Verifier", GetType(Boolean))
        Dim dr As DataRow = dt.NewRow()
        Dim tauxTVA As Double = 15 'pourcentage
        For n As Integer = 1 To 10
 
            dr("Quantite") = rnd.Next(10, 20)
            dr("PrixUnitaire") = Math.Round(rnd.NextDouble() * 100, 2)
            dr("PrixHT") = dr("Quantite") * dr("PrixUnitaire") 'PrixHT=Quantite*PrixUnitaire
            dr("TauxTVA") = tauxTVA
            dr("PrixTVA") = Math.Round(dr("PrixHT") + dr("PrixHT") * dr("TauxTVA") / 100.0, 2) 'PrixTVA=PrixHT+PrixHT*TauxTVA/100.0
            dr("Verifier") = False
 
            dt.Rows.Add(dr)
            dr = dt.NewRow()
        Next
        Return dt
    End Function
 
    Private Sub DGV_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick
        If (e.RowIndex < 0 Or e.ColumnIndex < 0) Then Return
        Dim row As DataGridViewRow = DGV.Rows(e.RowIndex)
        Dim isSelected As Boolean = row.Cells("Verifier").Selected
        If isSelected Then
            Dim total As Integer = 0
            ClearChecked(total, e.RowIndex)
        End If
    End Sub
    Private Sub ClearChecked(tot As Double, irow As Integer)
        Me.DGV.Rows(irow).Cells("PrixHT").Value = 0.0
        Me.DGV.Rows(irow).Cells("PrixTVA").Value = 0.0
 
 
    End Sub
End Class

bon code....

**ahmedfa71** · 17/06/2020, 09h58

merci mabrouki pour ta réponse rapide,
et pour le complément d'informations
ce code marche très bien

est ce que en peut appliquer la meme chose d'un table lie d'une base de donne access

**MABROUKI** · 17/06/2020, 17h20

le datagridview peut afficher tout type de DataTable quel que soit la BD.

**ahmedfa71** · 17/06/2020, 18h41

j'arrive pas à appliquer le code avec une datagridview lie avec une bd
et merci bq mabrouki

**ahmedfa71** · 18/06/2020, 10h23

j'ai résolu le problème
j'ai seulement ajouter un checkbox a ma datagridview lie A une table

Code :

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

1
2
3
4
5
Dim ColumncheckBox As New DataGridViewCheckBoxColumn()
        ColumncheckBox.HeaderText = "Etat"
        ColumncheckBox.Width = 30
        ColumncheckBox.Name = "ColumncheckBox"
        DView.Columns.Insert(18, ColumncheckBox)

merci beaucoup MABROUKI pour ton aide.

**MABROUKI** · 18/06/2020, 13h00

Envoyé par ahmedfa71

j'ai résolu le problème
j'ai seulement ajouter un checkbox a ma datagridview lie A une table

Code :

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

1
2
3
4
5
Dim ColumncheckBox As New DataGridViewCheckBoxColumn()
        ColumncheckBox.HeaderText = "Etat"
        ColumncheckBox.Width = 30
        ColumncheckBox.Name = "ColumncheckBox"
        DView.Columns.Insert(18, ColumncheckBox)

merci beaucoup MABROUKI pour ton aide.

ATTENTION:
l' event CellClick est inefficient pour ce que tu cherches à obtenir .
Voici ce qu'en dit la doc MSDN Lib Fr alas:

Si vous souhaitez répondre immédiatement au clic des utilisateurs sur une cellule de case à cocher, vous pouvez gérer l'événement DataGridView.CellClick, mais cet événement se produit avant la mise à jour de la valeur de la cellule. (Si vous avez besoin de la nouvelle valeur lors du clic, une option consiste à calculer la valeur attendue d'après la valeur actuelle mais c'est du blablah). Une autre approche consiste à valider immédiatement la modification et à gérer l'événement DataGridView.CellValueChanged pour y répondre. Pour valider la modification lorsque l'utilisateur clique sur la cellule, vous devez gérer l'événement DataGridView.CurrentCellDirtyStateChanged. Dans le gestionnaire, si la cellule active est une cellule de case à cocher, appelez la méthode DataGridView.CommitEdit et passez la valeur Commit.

C'est donc l'event CellValueChanged qui il faut utiliser (au lieu de CellClick) dans le code exemple deja communiqué couplé à l'event CurrentCellDirtyStateChanged.
Le code deja communiqué est donc à revoir comme suit:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
 ' A virer
 ' Sub DGV_CellClick(sender As Object, e As 'System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick
        'event inefficient
 '   End Sub
 
 ' code de substitution 
 Private Sub DGV_CurrentCellDirtyStateChanged(sender As Object, e As System.EventArgs) Handles DGV.CurrentCellDirtyStateChanged
        If TypeOf Me.DGV.CurrentCell Is DataGridViewCheckBoxCell Then
            Me.DGV.CommitEdit(DataGridViewDataErrorContexts.Commit)
        End If
    End Sub
Private Sub DGV_CellValueChanged(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellValueChanged
 
        If (e.RowIndex < 0 Or e.ColumnIndex < 0) Then Return
        Dim row As DataGridViewRow = DGV.Rows(e.RowIndex)
 
        Dim chk As DataGridViewCheckBoxCell = row.Cells("Verifier")
        Dim isSelected As Boolean = chk.Value
        If isSelected Then
            Dim total As Integer = 0
            ClearColumnChecked(total, e.RowIndex)
 
        End If
    End Sub
    Private Sub ClearColumnChecked(tot As Double, irow As Integer)
        Me.DGV.Rows(irow).Cells("PrixHT").Value = tot
        Me.DGV.Rows(irow).Cells("PrixTVA").Value = tot
 
    End Sub

bon code...

**ahmedfa71** · 18/06/2020, 15h08

bonjour MABROUKI,
j'ai changer comme tu l'a dit
merci beaucoup.

Checkbox en DataGridView état Checked (True)

VB.NET

Discussions similaires

Partager

Partager