Discussion :

[tamtam64]

Bonjour,

Je débute un peu dans les Userform, et je cherche à mettre à jour une combobox
Dans ma combobox j'affiche les workbook ouverts, je voudrais juste qu'il affiche les workbooks ouvert en temps reel
une sub evenementielle change est adapté? je voudrais que cela ce face au pire quand on clique .

Merci

[Theze]

Bonjour,

Sur l'évènement "DropButtonClick" du ComboBox (bouton avec la flèche vers le bas pour afficher la liste) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ComboBox1_DropButtonClick()
 
    Dim Cls As Workbook
 
    ComboBox1.Clear
 
    For Each Cls In Workbooks
 
        ComboBox1.AddItem Cls.Name
 
    Next Cls
 
End Sub

Hervé.

[tamtam64]

Parfait merci beaucoup c'est exactement ce que je recherchais