ComboBox1 activeX chargement

Version imprimable

Bonjour au forum,

mon problème va vous paraitre simple à vos yeux (et sans doute problème répétitif), mais je n'arrive pas à remplir convenablement ma combobox1 (activeX) sur mal feuille1.

j'ai jonglé avec les événements et je pense que je gère mal ou comprends pas bien les événements. l'aide en ligne ou autre forum ne me donne pas la logique à tenir.

Dans mon cas je souhaite:
-> lorsque je clique sur ma combo, qu'il efface le contenu, remplit les onglets actuels (sauf feuille1)
En somme rafraichir la combobox en fonction des onglets supprimés ou ajouttés

j'ai ceci comme code mais ça fait pas du tout le job :). Je ne sais pas si ma demande est claire ?!
j'ai essayé avec les événements "enter" et/ou "Dropbuttonclick"

dans feuil1 j'ai mis ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub ComboBox1_Enter() Dim sh As Worksheet ThisWorkbook.Worksheets(1).ComboBox1.Clear With ThisWorkbook.Worksheets(1).ComboBox1 For Each sh In Worksheets If sh.Name <> "feuil1" Then .AddItem sh.Name Next sh End With End Sub 'Private Sub ComboBox1_DropButtonClick() 'Dim sh As Worksheet 'Combobox1.clear 'With ComboBox1 ' For Each sh In Worksheets ' If sh.Name <> "feuil1" Then .AddItem sh.Name ' Next sh ' End With 'End Sub

1 pièce(s) jointe(s)

Dans GotFocus ça semble marcher pas mal.

Edit, avec le seul code dans GotFocus, j'avais un petit bug d'affichage
Pièce jointe 640021

avec ce code, ça a l'air de fonctionner

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ComboBox1_DropButtonClick()
    ThisWorkbook.Sheets("Feuil1").ComboBox1.ListRows = 5
End Sub
 
Private Sub ComboBox1_GotFocus()
    Dim ws As Worksheet
    With ThisWorkbook.Sheets("Feuil1")
        .ComboBox1.Clear
        DoEvents
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> .Name Then .ComboBox1.AddItem ws.Name
        Next
 
    End With
 
    DoEvents
End Sub

14/06/2023, 07h19
esse2016

Bonjour Umfred, merci pour l'aide

j'ai effectué le ComboBox_Gotfocus j'obtiens le bon compromis, par contre je n'ai pas comme vous le bug affichage.
Par contre lorsque j'ai seletionné ma ligne et que je clique sur la feuille on voit que pendant une micro seconde l'affichage change, mais bon je mets sur le compte de EXcel (j'avais déjà des soucis aussi avec checkbox.color)

Ca fait le job en tout cas.

Bonjour,

Citation:

Dans mon cas je souhaite:
-> lorsque je clique sur ma combo, qu'il efface le contenu, remplit les onglets actuels (sauf feuille1)
En somme rafraichir la combobox en fonction des onglets supprimés ou ajouttés

Si j'ai bien compris votre problème, il y a moyen d'aborder le sujet sous un autre angle.

Sauf si vous supprimez et ajoutez vos feuilles par programmation, une solution simple en créant une procédure dont le job consiste à remplir l'ActiveX (CombobBox), que vous passez en paramètre, du nom de toutes les feuilles du classeur en omettant celui de la feuille active.
Procédure que vous pouvez invoquer au moment où vous sélectionnez la feuille en question.

Avantage, cette procédure peut être utilisée dans un autre contexte (n'importe quelle feuille et/ou un autre ComboBox)

Code à placer dans un module standard ou dans le module de la feuille
Code:

1 2 3 4 5 6 7 8 9 10 Function GetSheetsName(oList As MSForms.ComboBox) ' Charge le nom des feuilles du classeur à l'exception de la feuille active Dim sh As Worksheet With oList .Clear For Each sh In Worksheets If sh.Name <> ActiveSheet.Name Then .AddItem sh.Name Next sh End With End Function
Code de la procédure événementielle qui l'invoque
Code:

1 2 3 Private Sub Worksheet_Activate() GetSheetsName Me.ComboBox1 End Sub