Formulaire base client erreur Le sujet est résolu

Forum pour toutes vos questions à propos d'Excel (avec ou sans macros) ...
fabguilb
Nouveau venu
Nouveau venu
Messages : 9
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é 4 fois
Avatar du membre
Valc
Membre fidèle
Membre fidèle
Messages : 206
Appréciations reçues : 15
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 : Tout sélectionner

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



:btres:
fabguilb
Nouveau venu
Nouveau venu
Messages : 9
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