Liste déroulante non rafraichi

Lex O'Mil · 19 Août 2006

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.

Code:

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! · 19 Août 2006

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 :

Code:

[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 · 19 Août 2006

Re : Liste déroulante non rafraichi

Merci beaucoup!!!!!

Lex

Liste déroulante non rafraichi

Lex O'Mil

Guest

myDearFriend!

XLDnaute Barbatruc

Lex O'Mil

Guest

Discussions similaires

Liste déroulante non rafraichi

Lex O'Mil

Guest

myDearFriend!

XLDnaute Barbatruc

Lex O'Mil

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency