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

[Titou99]

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 😀

Titou

 

[Hasco]

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') :

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

 

[Titou99]

Ca fonctionne parfaitement merci beaucoup 😀