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

Fermé

Xavier - Modifié le 16 août 2021 à 10:12
Xavier - 12 août 2021 à 14:19

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:

Macro Combobox qui se lance à l'ouverture du fichier.
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 août 2021 à 17:40

Bonjour,

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

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

Réponse 2 / 3

Xavier
11 août 2021 à 17:55

Bonjour,

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

Cordialement

Xavier

Réponse 3 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 août 2021 à 18:31

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)

Xavier
12 août 2021 à 14:19

Bonjour,

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

Cordialement

Xavier

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

3 réponses

Discussions similaires

Newsletters