Bonjour a tous
Je suis sur Excel 2019 j'ai un peu de souci avec mon code besoin d'un coup de main
merci
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Data")
ws.ListObjects(1).DataBodyRange(Me.RowId, 3) = CDate(Me.TextBox2.Value)
ws.ListObjects(1).DataBodyRange(Me.RowId, 6) = Me.ComboBox1.Value
ws.ListObjects(1).DataBodyRange(Me.RowId, 16) = Me.TextBox10.Value
End Sub