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 : Sélectionner tout - Visualiser dans une fenêtre à part
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