Formulaire base client erreur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 6 décembre 2018, 15:51

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.
Fichiers joints
BASEclient.xlsm
(22.66 Kio) Téléchargé 9 fois
Avatar du membre
Valc
Membre fidèle
Membre fidèle
Messages : 220
Appréciations reçues : 16
Inscrit le : 19 juillet 2018
Version d'Excel : 2016

Message par Valc » 6 décembre 2018, 16:05

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":

Code : Sélectionner et copier le code

Ligne = Sheets("Clients").Range("A65536").End(xlUp).Row + 1
Cdt
Bonne continuation,



:btres:
fabguilb
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 6 décembre 2018
Version d'Excel : 365

Message par fabguilb » 6 décembre 2018, 16:36

Ok merci...
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message