VBA - Naviguer dans différents onglets en fonction de l'affichage d'une liste déroulante

Titou99

XLDnaute Junior
Bonjour à tous et toutes :),

Je vous sollicite aujourd'hui pour :

- Éventuellement m'éclairer sur un code vba qui permettrait de naviguer dans différents onglets en fonction de l'affichage d'une liste déroulante.

Par exemple, j'ai une feuille d'accueil où l'on choisi avec une liste déroulante le nom de la feuille où l'on veut se rendre automatiquement

Je vous joint un fichier exemple

Merci d'avance à ceux qui regarderont ce fil de discussion :D

Titou
 

Pièces jointes

  • Emploi du temps télétravail.xlsm
    43.1 KB · Affichages: 7
Solution
bonjour

Dans le fichier joint vous trouverez le code de cette macro dans le module de la feuille 'Accueil' (click-droit sur le nom d'onglet puis 'Visualiser le code') :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "C6" Then Exit Sub
    If Target <> "" And Target <> "…" Then
        On Error Resume Next
        ThisWorkbook.Sheets(Target.Text).Activate
        If Err.Number <> 0 Then
            MsgBox "Exécution interrompue : La feuille '" & Target.Text & "' semble ne pas exister dans ce classeur", vbExclamation, "Activer une feuille"
        End If
        On Error GoTo 0
    End If
End Sub

Cordialement

Hasco

XLDnaute Barbatruc
Repose en paix
bonjour

Dans le fichier joint vous trouverez le code de cette macro dans le module de la feuille 'Accueil' (click-droit sur le nom d'onglet puis 'Visualiser le code') :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "C6" Then Exit Sub
    If Target <> "" And Target <> "…" Then
        On Error Resume Next
        ThisWorkbook.Sheets(Target.Text).Activate
        If Err.Number <> 0 Then
            MsgBox "Exécution interrompue : La feuille '" & Target.Text & "' semble ne pas exister dans ce classeur", vbExclamation, "Activer une feuille"
        End If
        On Error GoTo 0
    End If
End Sub

Cordialement
 

Pièces jointes

  • Emploi du temps télétravail.xlsm
    52.3 KB · Affichages: 26

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG