Oui c'est une bonne idée de pouvoir modifier les texbox de 1à 5 au cas ou les données changeraient mais se serait des cas isolés.
En y repensant ce n'est peut être pas une bonne idée à ce stade. Au tout au moins, il faudrait peut être penser à cette possibilité au travers d'un bouton Modifier par exemple. (A voir plus tard)
Faites donc ceci :
1. Ouverture userform : Remplacez le code Private Sub Userform_Initialize() par celui ci-dessous. Cela évite d'aller modifier la combotri et les textbox 1 à 5.
Private Sub Userform_Initialize()
With Sheets("INVENTAIRE")
ComboTri.List = .ListObjects("Tableau15").ListColumns(1).DataBodyRange.Value
ComboTri.Style = fmStyleDropDownList
For i = 1 To 5
Me.Controls("Textbox" & i).Locked = True
Next i
End With
End Sub
2. Bouton Enregistrer : Ajoutez le code ci-dessous pour le bouton Enregistrer
Private Sub ButtonEnregistrer_Click()
With Sheets("INVENTAIRE").ListObjects("Tableau15")
On Error Resume Next
lig = .ListColumns(1).DataBodyRange.Find(ComboTri.Value, LookIn:=xlValues, lookat:=xlWhole).Row - 15
With .DataBodyRange
.Item(lig, 5).Value = TextBox6.Value
.Item(lig, 6) = TextBox7.Value
.Item(lig, 7) = TextBox8.Value
.Item(lig, 8) = TextBox9.Value
.Item(lig, 9) = TextBox10.Value
.Item(lig, 10) = TextBox11.Value
.Item(lig, 11) = TextBox12.Value
.Item(lig, 12) = TextBox13.Value
.Item(lig, 13) = TextBox14.Value
.Item(lig, 14) = TextBox15.Value
End With
End With
End Sub
Dites moi si ok.
Cordialement