Problème de code

Bonjour
quelques erreurs d'orthographe dans le code

Private Sub cmdajouter_Click()
Dim L As Integer
L = Sheets('PRETS').Range('A65536').End(xlUp).Row + 1
With Sheets('PRETS')
.Range('A' & L).Value = Dateprêt.Value
.Range('B' & L).Value = ComboBox2.Value
.Range('C' & L).Value = TextBox2.Value
.Range('D' & L).Value = ComboBox1.Value
.Range('E' & L).Value = ComboBox3.Value
.Range('F' & L).Value = TextBox3.Value
End With
Dateprêt.Value = ''
ComboBox2.Value = ''
TextBox2.Value = ''
ComboBox1.Value = ''
ComboBox3.Value = ''
TextBox3.Value = ''
Dateprêt.SetFocus
End Sub

pour le reste a voir

JC

Bonjour Novice


une premiere erreur



tu avais noté x1UP au lieu de xlUp

re

une 2e erreur


Textbox3

Salut JC

pas rafraichi

Merci, a vous deux pour cette aide.

Je débute et recopie les codes sans faire de copier collé, ca m'aide à mieux comprendre, donc je ferait plus attention à l'orthographe, je vois que ca y est important.

Merci Bras