Liste déroulante non rafraichi

[Lex O'Mil]

Bonjour à toutes et à tous,

Mon petit souci j'ai une combobox1 sur ma feuille qui récupère le nom des différents onglets.

Le problème est qu'à l'ouverture du fichier impossible de visualiser la liste de nom des onglets.

Il faut d'abord que je clicque sur un des onglets et revenir à ma feuille de base alors, et seulement alors, tout fonctionne.

Private Sub Worksheet_Activate()

ComboBox1.Clear
Dim vFEuille As Worksheet

    For Each vFEuille In ActiveWorkbook.Sheets
        If Not vFEuille.Name = ActiveSheet.Name Then
                ComboBox1.AddItem vFEuille.Name
        End If
    Next
    
End Sub

Comment faire pour qu'a l'ouverture de mon fichier la liste soit immanquablement utilisable?

Merci à tous d'avance

 

[myDearFriend!]

Re : Liste déroulante non rafraichi

Bonjour Lex O'Mil, le Forum,

Dans ce cas, il conviendrait de placer ta procédure dans l'évènement Workbook_Open de l'objet ThisWorkbook :

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Workbook_[COLOR=navy]Open[/COLOR]()
[COLOR=navy]Dim [/COLOR]vFEuille[COLOR=navy] As [/COLOR]Worksheet
      [COLOR=navy]For Each[/COLOR] vFEuille[COLOR=navy] In [/COLOR]ActiveWorkbook.Sheets
            [COLOR=navy]If Not [/COLOR]vFEuille.Name = ActiveSheet.Name [COLOR=navy]Then[/COLOR]
                  [B]Sheets("Feuil1").[/B]ComboBox1.AddItem vFEuille.Name
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]Next
End[/COLOR] Sub[/SIZE]

Cordialement,

 

[Lex O'Mil]

Re : Liste déroulante non rafraichi

Merci beaucoup!!!!!

Lex