For i As Integer = 0 To DataGridView1.RowCount - 1 If DataGridView1.Item(5, i).Selected = True Then '5 colonne où se trouvent les checkbox DataGridView1.Item(5, i).Value = False End If Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub DataGridView1SelectAll_CurrentCellDirtyStateChanged( ByVal sender As Object, ByVal e As EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged RemoveHandler DataGridView1.CurrentCellDirtyStateChanged, AddressOf DataGridView1SelectAll_CurrentCellDirtyStateChanged If TypeOf DataGridView1.CurrentCell Is DataGridViewCheckBoxCell Then DataGridView1.EndEdit() Dim Checked As Boolean = CType(DataGridView1.CurrentCell.Value, Boolean) If Checked Then Dim message As String = _ "Voulez vous décocher?" Dim caption As String = "Cocher-Décocher" Dim result = MessageBox.Show(message, caption, _ MessageBoxButtons.YesNo, _ MessageBoxIcon.Question) For i As Integer = 0 To DataGridView1.RowCount - 1 If DataGridView1.Item(5, i).Selected = True Then '5 colonne où se trouve la checkbox DataGridView1.Item(5, i).Value = False End If Next ' If the no button was pressed ... If (result = DialogResult.No) Then For i As Integer = 0 To DataGridView1.RowCount - 1 If DataGridView1.Item(5, i).Selected = True Then '5 colonne où se trouve la checkbox DataGridView1.Item(5, i).Value = True End If Next End If Else MessageBox.Show("vous avez décoché") End If End If AddHandler DataGridView1.CurrentCellDirtyStateChanged, AddressOf DataGridView1SelectAll_CurrentCellDirtyStateChanged End Sub
rowIndex = dgvFiche.CurrentCell.RowIndex