DataGridView..SelectedRows(0).Cells(7).Value()
If PlusieursLignes = False Then Dim intCle As Integer intCle = DataGridView.SelectedRows(0).Cells(7).Value() End If
L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : index
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dt As New DataTable() dt.Columns.Add(New DataColumn("A")) dt.Columns.Add(New DataColumn("B")) dt.Columns.Add(New DataColumn("C")) dt.Columns.Add(New DataColumn("D")) dt.Columns.Add(New DataColumn("E")) dt.Columns.Add(New DataColumn("F")) dt.Columns.Add(New DataColumn("G")) dt.Columns.Add(New DataColumn("H")) dt.Rows.Add(dt.NewRow()) dt.Rows.Add(dt.NewRow()) dt.Rows.Add(dt.NewRow()) dt.Rows.Add(dt.NewRow()) DGView.AutoGenerateColumns = False DGView.SelectionMode = DataGridViewSelectionMode.FullRowSelect End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Object = DGView.SelectedRows(0).Cells(7).Value End Sub