'#################################################
'MODIFIER LE TABLEAU A PARTIR DES TEXTBOX bouton valider les modifications
'#################################################
'
Private Sub CommandButton2_Click()
'Déclarer les variables
Dim ligne As Long
Dim i As Long
Dim idx As Long
On Error Resume Next
With Sheets("BD1") 'feuille contenant les données
For i = 1 To 44 'besoin d'infos sur le 44, nombre de textbox??
.Cells(ligne, i) = Controls("Textbox" & i + 2) '
Next
End With
With LSVB 'avec la listview
.ListItems.Item(idx) = TB2 'l'index = la valeur dans la textbox TB2
For i = 1 To 41
.ListItems(idx).SubItems(i) = Controls("TextBox" & i + 2)
Next
End With
End Sub