Public Module Extensions <System.Runtime.CompilerServices.Extension()> _ Public Function CloneWithValues(ByVal row As DataGridViewRow) As DataGridViewRow 'Clone la ligne d'origine Dim newRow As DataGridViewRow = CType(row.Clone(), DataGridViewRow) 'Copie les valeurs For index As Integer = 0 To row.Cells.Count - 1 newRow.Cells(index).Value = row.Cells(index).Value Next Return newRow End Function End Module
Dim ligne As DataGridViewRow = DGV1.Rows(x).CloneWithValues() DGV2.Rows.Add(ligne)
Dim ligne As DataGridViewRow ligne = DGV1.Rows(x) DGV1.Rows.Remove(ligne) DGV2.Rows.Add(ligne)