Formulaire base client erreur
Bonjour,
je viens de créer un formulaire client prospect. Malheureusement, j'ai un bug dès la création du contact que je ne comprends pas alors que j'ai recopié exactement ce que j'ai trouvé sur un site internet et qui fonctionnait. Pourriez-vous m'aider sur l'erreur. Je vous joins mon fichier
et l'erreur se trouve sur la dernière ligne ci-dessous
Private Sub ToggleButton1_Click()
'Double click bouton ajouter'
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom/Prénom'"
Else
Dim Ligne As Integer
If MsgBox("Confirmer-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
Worksheets("Clients").Select
Ligne = Sheets("Clients").Range("A65536").End(x1Up).Row + 1
je vous en remercie par avance.
Bonjouir,
L'erreur est tout simple, erreur de frappe, ce n'est pas x1up, mais xlup, c'est la lettre "L" et non un le chiffre "1":
Ligne = Sheets("Clients").Range("A65536").End(xlUp).Row + 1Cdt