Private Sub CommandButton5_Click()
With ListView1.SelectedItem
'modification de la listview
.Text = DESIGNATION.Value
.ListSubItems(2).Text = TextBox11.Value
.ListSubItems(3).Text = TextBox4.Value
.ListSubItems(4).Text = TextBox9.Value
'on récupère le N° de ligne dans la listview:
lig = CLng(.ListSubItems(6).Text)
With rWs
'modification de la base de données
's'il s'agit de la famille peinture:
.Cells(lig, 1).Value = DESIGNATION.Value
.Cells(lig, 3).Value = TextBox11.Value
.Cells(lig, 4).Value = TextBox4.Value
.Cells(lig, 5).Value = TextBox9.Value
End With
End With
End Sub