erreur

[justine]

bonsoir le forum
je m'adresse a vous car vraiment je me demande pourquoi j'ai cette erreur.
je m'explique
j'ai fait une petite application, ou se trouve une userform, quelques box a l'interieur.
quand l'initialisation se fait au chargement de la userform, je fais appel a quelques sub

et bien ce message d'erreur s'affiche a chaque fois et ce que je ne comprends pas, hier, tout marchais bien.

erreur de compilation:
seuls les commentaires peuvent etre apres les end sub....

j'ai tout revu en detail, tout est bien ecrit pour moi, j'en suis pas a ma premiere application.

les fonctions sont reconnues car elles sont ecrites en bleues.
je comprends plus.

justine

 

[malcy45]

Re : erreur

bonsoir justine,
un ti copier coller du code te plait
bises
rémi

 

[justine]

Re : erreur

re
voici le copier-coller du code


Private Sub OptionButton2_change()
If OptionButton2.Value = True Then
SpinButton1.Enabled = True
ComboBox2.Enabled = True
Else
ComboBox2 = ""
ComboBox2.Enabled = False
End If
End Sub

Private Sub ToggleButton3_Click()
If ToggleButton3.Value = False Then
ToggleButton3.Picture = LoadPicture("f:\a classer\icones\10067.ico")
Else
ToggleButton3.Picture = LoadPicture("f:\a classer\icones\10065.ico")
End If
End Sub

Private Sub UserForm_Initialize()
rempl_genre 'remplissage du genre des films
verif_pret ' verification si cd en pret
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
ComboBox2.Enabled = False
SpinButton1.Enabled = False
Frame1.Enabled = False
ToggleButton1.Enabled = False
CommandButton2.Enabled = False
ToggleButton4.Value = False
ToggleButton4.Enabled = True
ToggleButton3.Value = False
ToggleButton3.Enabled = False
CommandButton3.Visible = False
Frame3.Visible = False

End Sub
Sub rempl_genre()
Dim dern As Integer
Dim plage As String
dern = Sheets("param").Range("a2").End(xlDown).Row
plage = Sheets("param").Range("a2:a" & dern).Address
ComboBox1.RowSource = "param!" & plage
ComboBox2.RowSource = "param!" & plage

End Sub
Sub verif_pret()

End Sub


a chaque debut de sub, il mme met l'erreur
justine

 

[Kotov]

Re : erreur

Bonsoir,

J'ai pas tout étudié (passage en coup de vent) mais regardes déjà Ligne 6 : ComboBox2 = ""
Essaie plutôt avec ComboBox2.value = ""

Bye
Kotov

 

[justine]

Re : erreur

bonsoir le forum
j'ai beau chercher mon probleme mais rien a faire.
cette erreur apparait quand on clique sur sortir.
cette fois ci je vous joins mon fichier
merci
justine

 

[JCGL]

Re : erreur

Bonsoir à tous, Justine,

J'ai testé ton USF... et je n'ai pas d'erreur à la sortie.

Même après ajout d'Option Explicit et Compilation : tout baigne 🙂

Bonne soirée

 

[Kotov]

Re : erreur

Bonsoir Justine, JCGL, le Forum,

J'avais la même erreur que Justine et je pense avoir trouvé la solution :

J'ai remplacé dans tout le projet "Private Sub" par "Sub" (utilise la fonction Rechercher/Remplacer sur tout le projet = 5 occurences à changer)

En enlevant Private, la macro devient par défaut publique (= Public Sub)

Et chez moi ça fonctionne bien. Dites moi si ça marche chez vous.

Par ailleurs, félicitation Justine pour ton aplli, elle est chouette !

Bon week end
Kotov

 

[justine]

Re : erreur

bonsoir tout le monde
alors je dois avoir un probleme dans mon office car meme en enlevant 'private', j'ai le probleme.
j'ai testé des applications que j'ai fait auparavant, tout est ok sauf celle ci.
bon, je vais effacer celle ci et tout recommencer.
merci a vous.
justine

 

[Kotov]

Re : erreur

Bonjour Justine,
Tiens nous au courant, ton problème m'intrigue.
Si j'ai un moment dans la journée, je vais regarder de nouveau tes macros.
Bon dimanche
Kotov

 

[justine]

Re : erreur

bonsoir a tous
apres plus essais pour reoudre ce probleme, j'avoue que j'ai craqué et ecrasé lamentablement l'application.
selection du fichier/supprimer/oui/vider poubelle/oui
voila
je vais passer a une autre application.
comme je n'ai plus aucune trace de ce fichier, je me suis tentée de reouvrir le fichier zip de ce post, et bien figurez vous que le probleme persiste.
allez comprendre.
j'ai fais une autre application mais plus simplifié et dans le meme style que celui la et bien il marche.
pourquoi specialement celui la?
grrrrrrr
si quelqu'un a connu ce genre de probleme et qui a su resoudre, je suis a l'ecoute.
grand merci tout de meme a tous ceux qui se sont penchés sur mon probleme.
bonne fin de week end a tous
justine

 

[Kotov]

Re : erreur

Bonsoir Justine,

Tu sais que ton fichier Vidéothèque m'énerve !

Hier soir, il ne fonctionnait pas sur mon PC. Je remplace Private Sub, par Sub et tout marche (je suis surpris parcequ'à mon avis ça n'a pas de lien, j'ai fais de nombreuses applis en procédant comme toi sans aucun bug).
Bon ça marche même si je ne comprend pas pourquoi.
Ce matin, j'essaie vite fait et ça marche encore impec.

En fin d'après midi, j'essaie d'y voir plus clair et, surprise, ton fichier (modifié par mes soins) ne fonctionne plus !
Un message m'affirme que du texte est inscrit hors Sub.
Vérification sans succès mais impossible de refaire fonctionner ton fichier. Il bugue sur UserForm_Initialize.
Je vire tout et je charge de nouveau l'original de ton fichier.
J'apporte les mêmes corrections que précédement et là, tout marche !

Je voulais te joindre ton fichier avec ma correction mais je m'aperçois que je n'ai pas WinZip sur mon nouveau PC et le site n'accepte pas les fichiers > 48Ko.

Bonne soirée et ... regardes toi un bon film pour te détendre 😉
Kotov

 

[Pierrot93]

Re : erreur

Bonsoir Justine, Kotove, Jcgl

as tu essayé le code ci dessous pour le bouton "sortir" :

Private Sub CommandButton1_Click()
Unload Me
End Sub

A priori tu utiliseas la méthode "Hide" qui ne fait que masquer l'USF sans le décharger de la mémoire, je préfère utiliser l'instruction "unload" qui vide l'USF de la mémoire.

Ton problème viens peut être de là...

Bonne soirée
@+

 

[justine]

Re : erreur

salut le forum, tatiak, pierrot93, totov
les reponses font plaisir a lire et je vois que des personnes ne perdent pas espoir comme moi.
j'avais aussi essayé la fonction unload userform mais rien n'y faisait.
je vais recuperer le fichier grace au fichier zip joint et apporter les corrections et continuer l'application.
merci encore a tous
bisous
justine

 

[Kotov]

Re : erreur

Merci Tatiak,
pour avoir réglé le problème de Justine,
pour m'avoir signalé, le clic droit pour zipper un fichier.

J'ai tellement eu l'habitude d'avoir mon icône WinZip que son absence sur mon nouveau PC m'a perturbé.

Bonne soirée
Kotov