Associer à un bouton une Macro : redirection vers onglets en fonction d'une liste déroulante

-3

Bonjour tout le monde,

J'ai une liste déroulante avec plusieurs choix : 1 couche, 2 couches, 3 couches....

Je voudrais créer un bouton et lui associer une macro qui, en fonction du choix dans la liste déroulante me renvoie vers l'onglet qui lui est associé. J'ai déjà créer les onglets "1 couches", "2 couches"... La macro du bouton me permettrait alors de rediriger vers l'onglet.

Merci d'avance.

Posté le 12 novembre 2014, 13:50

signaler

Répondre

Ajouter un commentaire

Voici comment faire :

Aller dans l'onglet Développeur > Insérer, et ajouter 2 champs (Contrôles ActiveX) à la feuille de calcul (par exemple "Feuil1") :
- Zone de liste déroulante (en la nommant listeFeuilles, dans les propriétés)
- Bouton de commande (en le nommant GoButton)

Dans l'éditeur Visual Basic, dans ThisWorkbook, écrire ce code :

Private Sub Workbook_Open()
    Dim oSheet As Excel.Worksheet
    Dim oList As MSForms.ComboBox
    Set oList = ActiveWorkbook.Sheets(1).listeFeuilles
    oList.Clear
    For Each oSheet In ActiveWorkbook.Sheets
        oList.AddItem oSheet.Name
    Next oSheet
End Sub

Dans le code de la feuille qui contient les 2 champs (c'est-à-dire Feuil1), écrire ce code :
```
Private Sub GoButton_Click()
    ActiveWorkbook.Sheets(listeFeuilles.Value).Activate
End Sub
```