Macro Combobox qui se lance à l'ouverture du fichier.

Xavier -  
 Xavier -
Bonjour,

Je joins ma macro, celle ci fonctionne bien, en revanche elle se lance et plante à l'ouverture du fichier. Je ne comprends pas pourquoi.
Si quelqu’un à une idée je suis preneur.

Merci d'avance. 

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'SELECTION LISTE DEROULANTE VARIABLE

    Dim MesDonnees
    MesDonnees = Range("TABLE1").Address(0, 0)
    Me.ComboBox1.ListFillRange = MesDonnees
 
End Sub
Private Sub ComboBox1_Click()
' OUVERTURE DES ONGLETS PROMOS QUINZAINE

    Range("J1").Value = Me.ComboBox1.Value
    Sheets("ACCUEIL").Select
    Worksheets([J1].Text).Visible = True
    Worksheets("ACCUEIL").Calculate
    Worksheets([J1].Text).Select
    
End Sub


Configuration: Windows / Edge 92.0.902.55
A voir également:

3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ici les méthodes pour remplir une ComboBox à l'ouverture de l'UserForm:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F

0
Réponse 2 / 3
Xavier
 
Bonjour,

Merci mais je n'ai pas trouvé de quoi régler le problème

Cordialement

Xavier
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Essaie ceci: 

Private Sub UserForm_Initialize()
    Dim MesDonnees
MesDonnees = Range("TABLE1").Address(0, 0)
Me.ComboBox1.ListFillRange = MesDonnees
    ComboBox1.ListIndex = 0
End Sub


et supprime cette Sub: 

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
0
Xavier
 
Bonjour,

Merci de ta réponse, mais cela n'a pas permis de régler le problème.

Cordialement

Xavier
0