Menu

Code vba qui fonctionne mal

-
Bonjour

j'ai un fichier qui me sert a faire mes comptes voici le code
erreur sur ligne For L et Userform1
si je met le 1 après userform je n'ai plus accés aux noms qui se trouvent dans Combobox
si je le retire j'ai le message pour For L (erreur de compilation Projet ou bibliothèque introuvable)
Comment supprimer ce problème
Je vous remercie de votre attention
Cordialement

Private Sub UserForm1_Activate()
' Combobox
   For L = 1 To F02.Range("A" & Rows.Count).End(xlUp).Row
      Cmb_Nom.AddItem F02.Range("A" & L)
   Next

   For L = 6 To F02.Range("N" & Rows.Count).End(xlUp).Row
      Cmb_Paiement.AddItem F02.Range("N" & L)
   Next
   TxtDate.Locked = True
End Sub

Private Sub Cmb_Nom_Change()

End Sub

Private Sub Cmb_Paiement_Change()

End Sub

Private Sub CmdDate_Click()
   U_Calandar.Show 1
End Sub

Private Sub CmdAjouter_Click()
'on vérifie que les champs sont bien remplis
   If Cmb_Nom.Text = "" Then
      MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
         Cmb_Nom.SetFocus
      Exit Sub
   End If
Nlig = F01.Range("B" & Rows.Count).End(xlUp).Row + 1
'    on remplit les données dans le tableau
   F01.Range("B" & Nlig).Value = DateValue(TxtDate.Text)
   F01.Range("C" & Nlig).Value = UCase(Cmb_Nom.Text)
   F01.Range("D" & Nlig).Value = UCase(Cmb_Paiement.Text)
   F01.Range("E" & Nlig).Value = TxtEntrée.Text
   F01.Range("F" & Nlig).Value = TxtSortie.Text
   F01.Range("M" & Nlig).Value = UCase(TxtCommentaire.Text)
' on efface le formulaire et on replace le curseur sur la case ( Nom )
   TxtDate.Text = ""
   Cmb_Nom.Text = ""
   Cmb_Paiement.Text = ""
   TxtEntrée.Text = ""
   TxtSortie.Text = ""
   TxtCommentaire.Text = ""
   TxtDate.SetFocus
End Sub

Private Sub Cmdfermer_Click()
   Unload Me
End Sub


Private Sub frmnouvellesaisie_Click()

End Sub

Private Sub TxtEntrée_Change()

End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
14183
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 avril 2019
1325
1
Merci
Bonjour,

si je met le 1 après userform
Plait-il !!!!!

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 41352 internautes nous ont dit merci ce mois-ci

Bonjour
Merci pour ton aide
Le 1 qui se trouve sur cette ligne ,1° ligne du code
Private Sub UserForm1_Activate()
Cordialement
Commenter la réponse de f894009
Messages postés
5971
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 avril 2019
418
1
Merci
Bonjour,


Private Sub UserForm1_Activate() 


cet événement ne s'écrit pas comme cela voir ci-dessous:


https://silkyroad.developpez.com/VBA/UserForm/#LIV


Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 41352 internautes nous ont dit merci ce mois-ci

merci pour ton aide
j'ai fait la modif mais rien ne change
par contre dans Ref VBA Project je viens de voir ceci:case cochée concernant Manquant:Ref Edit Control
peut-etre un rapport avec mon souci, je précise que je ne m'y connais pas trop en vba ,pour ce fichier
j'avais eu l'aide de Mick31
Crdlt
cs_Le Pivert
Messages postés
5971
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 avril 2019
418 -
Tu décoches la case cochée Manquante et ensuite tu fais défiler pour la sélectionner.

voir ceci:

https://ccm.net/faq/41715-excel-vba-refedit-control-excel-range-gui-control
J'ai trouvé comment faire.
Supprimer le module
Enregistré sans macro
Rouvert le fichier recréé le module et enregistrer avec macro
et ça fonctionne
Quelle galère
Merci pour ton aide cordialement
Commenter la réponse de cs_Le Pivert