CMB qui ne fonctionnent plus
Résolu
JCB40
Messages postés
3061
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3061 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3061 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
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
-
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)...
-
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
