Creer liste defilante

mimin -  
Bonjour,

je veux creer une liste deroulante en userform avec dessus mes noms de feuilles.
comme ca des que je choisis un nom , il me selectionne automatiquement la feuille que je ve .

Qqun peut il m'aider svp , je sais pas quoi mettre dans le code

3 réponses

  1. michel_m Contributeur
    Bonjour 

    Option Explicit

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Activate
Unload UserForm1
End Sub


Private Sub UserForm_Initialize()
Dim cptr As Byte
For cptr = 1 To ThisWorkbook.Sheets.Count
    ComboBox1.AddItem Sheets(cptr).Name
Next
End Sub
    0
    1. mimin
      Bonjour,

      merci pour ta reponse.

      J'ai un autre souci , pour faire appel a mon userform1, je dois a chaque fois fa&ire Alt+F8 et executer ma macro qui ance mon userforme.

      Comment faire pour faire apparaitre mon userforme sur ma feuille excel des que j'ouvre mon fichier.

      Merci d'avance
      0
      1. michel_m Contributeur
        Dans l'éditeur VBE- explorateur de projet (Ctrl+R) module thisworkbook 

        Private Sub Workbook_Open() 
UserForm1.Show 
End Sub

        Michel
        0