CMB qui ne fonctionnent plus

Résolu
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   -  
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Après un crash de mon pc j'ai des problèmes avec un userform surtout avec les cmb,je n'arrive plus
à aller chercher les noms qui se trouvent sur une autre feuille.
Il s'agit de mes comptes personnels
Je vous mets le code VBA "ce code avait était créé par Mike 31 que je salue"
Pouvez-vous svp me dire ce qui cloche
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




Configuration: Windows / Firefox 65.0

2 réponses

ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonjour JCB, bonjour le forum,

Difficile de pouvoir t'aider si tu ne nous fournis pas plus d'éléments !...
Pouvez-vous svp me dire ce qui cloche
Commence par vous dire où ça cloche (quelle ligne du code plante) et quel est le message d'erreur...
Sinon tu utilises une variable F02 pour désigner un onglet. Dans le bout de code que tu daignes montrer, cette variable n'a ni été déclarée (ça n'empêche pas le code de fonctionner) ni initialisée (ça oui, ça fait planter)...
0
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour

Merci pour ton aide
J'ai trouvé avec le crash,je ne sais pas pourquoi mais un 1 est venu s'incruster dans ce bout de code
Private Sub UserForm1_Activate() que fait ce 1 mystère
Maintenant cela refonctionne
Cordialement
0