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

Question

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

cs_Le Pivert · Answer

Bonjour,

voir ici les méthodes pour remplir une ComboBox à l'ouverture de l'UserForm:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F

Xavier · Answer

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

cs_Le Pivert · Answer

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)

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

3 réponses

Votre réponse