XL 2016 Pouvoir apporter des modifications sur une BD depuis une listbox

fanch55 à dit:

Bonjour,
Ne pas autoriser le changement du n° de l'entreprise et en ce cas ;

VB:

Private Sub CommandButton2_Click()
Dim RowNo As Integer
With ThisWorkbook.Sheets("BDD_Ent_TR")
    Set R = .Cells.Find(TextBox8, lookat:=xlWhole)
    If Not R Is Nothing Then
        RowNo = R.Row
        .Range("B" & RowNo).Value = Me.TextBox9.Value
        .Range("C" & RowNo).Value = Me.TextBox10.Value
        .Range("D" & RowNo).Value = Me.TextBox11.Value
        .Range("E" & RowNo).Value = Me.TextBox12.Value
        .Range("F" & RowNo).Value = Me.TextBox13.Value
       . Range("G" & RowNo).Value = Me.TextBox14.Value
        Set R = Nothing
   End If
End With
End Sub

Cliquez pour agrandir...