[Excel 2007] macro et erreur de compilation [Résolu/Fermé]

Signaler
Messages postés
40823
Date d'inscription
samedi 3 mai 2008
Statut
Modérateur
Dernière intervention
19 octobre 2019
-
Messages postés
919
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
-
Bonjour,

J'ai suivi de tuto sur Excel: http://www.excel-online.net/index2.htm Le mien porte sur le suivi d'inscriptions à un site.

Seulement, au moment de le tester, j'ai eu un message d'erreur en cliquant sur mon bouton "Nouveau site" équivalent de "Nouveau Client" dans le tuto).

Le message d'erreur que j'ai est: "Erreur de compilation. sud ou Function non définie". Voici le code concerné (c'est la ligne "Private Sub SaisieInfoSit_Click()" qui est surlignée en jaune quand j'ai le message d'erreur):

Private Sub SaisieInfoSit_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With UserForm1
    .Debut.Text = ""
    .Site.Text = ""
    .PaysFR.Value = False
    .PaysLUX.Value = False
    .URL.Text = ""
    .InsOUI.Value = False
    .InsNON.Value = False
    .Identifiant.Text = ""
    .MotDePasse.Text = ""
    .Cvs.Text = ""
    .motivation.Text = ""
    .Alertes.Text = ""
EndWith
Range("G2") = False
UserForm1.Show
End Sub



Sauriez-vous me dire ce que je dois modifier ou vérifier pour que ça marche?
Merci!

2 réponses

Messages postés
919
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
281
Bonsoir,
C'est peut-être le mot Private qui te pose problème. Essaie de le supprimer.
Sinon, le mieux serait de nous donner le lien vers ton fichier (par cijoint.fr par exemple)
Messages postés
40823
Date d'inscription
samedi 3 mai 2008
Statut
Modérateur
Dernière intervention
19 octobre 2019
2 575
En fait le mot Private était mis expressément dans l'exemple du tuto. Si personne n'a d'idée, je tacherais de faire un lien vers mon doc demain.

En attendant j'ai vu que le lien ci dessus ne marchait pas donc voilà le lien direct vers la page du tuto concernée: http://www.excel-online.net/excel2003/userform5.html
Messages postés
40823
Date d'inscription
samedi 3 mai 2008
Statut
Modérateur
Dernière intervention
19 octobre 2019
2 575
Finalement c'était un problème de syntaxe (un espace manquant entre End et With et un signe = après key1:)
Messages postés
919
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
281
Ok. C'est vrai que le End With n'est pas correct. Normalement, il est mis en couleur mais les couleurs par défaut de VBA ne sautent pas aux yeux (bleu foncé vs noir), tu peux les modifier dans les options.

Bonne continuation