Code vba qui fonctionne mal [Fermé]

Signaler
-
 nicos -
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.

2 réponses

Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Bonjour,

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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62506 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
Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
Bonjour,


Private Sub UserForm1_Activate() 


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


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


1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62506 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
Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
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