Discussion :

[Nathalie64]

Bonjour,

j'ai un petit souci, c'est pourtant une formule simple que je veux mettre en place.

J'ai crée une liste déroulante (à partir d'une plage de données), et j'ai crée un bouton. J'aimerai que quand je sélectionne dans la liste une donnée quand cliquant sur le bouton, ça envoie une macro qui m'affiche la feuille correspondant au nom sélectionné dans la liste.

J'ai essayé un simple sheets = range ("nomdelacelluledelaliste")
mais ça n'a pas fonctionné.

Est ce que c'est réalisable ? en sachant que la feuille comporte beaucoup beacoup d'onglets.

cordialement

[mercatog]

Une proposition à mettre dans l'évènement Change de la feuille. adapter l'adresse de la cellule contenant ta liste, pas besoin de bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sht As Worksheet
If Target.Address = "$A$5" Then 'liste en A5
    On Error Resume Next
    Set sht = Sheets(Target.Value)      'pour éviter l'erreur quand lnom de la feuille choisie est inexistant
    On Error Resume Next
    If Not sht Is Nothing Then
        sht.Activate
    Else
        MsgBox "aucune feuille portant le nom " & Target.Value
    End If
End If
End Sub

[JPierreM]

Bonsoir,

Je proposerai tout simplement d'utiliser la barre de commande des onglets en faisant un double clic sur n'importe quelle feuille


A mettre dans le module ThisWorkbook

Code :

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

1
2
3
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Application.CommandBars("Workbook tabs").ShowPopup '500, 200
End Sub

[Nathalie64]

Merci pour les formules, je vais les essayer. Par contre j'ai oublié de préciser que je ne peux pas faire un simple changement onglet, car la feuille comporte plus d'une cinquantaine d'onglets .

[Nathalie64]

Une proposition à mettre dans l'évènement Change de la feuille. adapter l'adresse de la cellule contenant ta liste, pas besoin de bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sht As Worksheet
If Target.Address = "$A$5" Then 'liste en A5
    On Error Resume Next
    Set sht = Sheets(Target.Value)      'pour éviter l'erreur quand lnom de la feuille choisie est inexistant
    On Error Resume Next
    If Not sht Is Nothing Then
        sht.Activate
    Else
        MsgBox "aucune feuille portant le nom " & Target.Value
    End If
End If
End Sub

J'ai testé ta formule, quand je l'a lance, un tableau apparait me proposant les macros que j'avais precedemment rentré. Je ne comprends pas trop le fonctionnement, ni comment l'a lancé depuis excel (hors mode création), c'est peut être un peu trop poussé pour que je comprennes ^^.

En tout cas merci pour le temps passé à me répondre .

[mercatog]

J'ai crée une liste déroulante (à partir d'une plage de données)

Tu as crée cette liste dans le cellule A5 de la feuille Nathalie (par exemple).
Tu ouvre l'éditeur vba
à gauche, tu double clique sur ta feuille Nathalie
tu y colle le code proposé précédemment.
C'est l'évènement Change de la feuille Nathalie.

Tu n'auras pas besoin de bouton pour lancer la macro, elle sera lancé automatiquement dès un changement des données de ta feuille Nathalie (cellule A5)