Macro Combobox qui se lance à l'ouverture du fichier.
Xavier
-
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.
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
3 réponses
-
Bonjour,
voir ici les méthodes pour remplir une ComboBox à l'ouverture de l'UserForm:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
-
-
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)
