Problème de code

[Novice]

Bonjour, et meilleurs voeux a tous.

Dans le fichier joint j'ai une basse de donnée sur une gestion de prêts de matériel avec un USF pour l'entrée des données, et un bug avec mon code. merci de m'éclairer


Ps merci à vous tous et plus particulièrement à thierry pour ses démos et conseil que l'on peut lire sur les autres fil. [file name=ESSAIML2006.zip size=20080]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ESSAIML2006.zip[/file]

 

[JC de Lorient]

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

 

[dg62]

Bonjour Novice


une premiere erreur

L = Sheets('PRETS').Range('A65536').End(xlUp).Row + 1

tu avais noté x1UP au lieu de xlUp

 

[dg62]

re

une 2e erreur

.Range('F' & L).Value = [color=#FF0000]Texbox3[/color].Value

Textbox3

 

[dg62]

Salut JC

pas rafraichi

 

[Novice]

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