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

Titou99 · 17 Mars 2020

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 · 17 Mars 2020

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 · 17 Mars 2020

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

Titou99 · 17 Mars 2020

Ca fonctionne parfaitement merci beaucoup

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

Titou99

XLDnaute Junior

Pièces jointes

Hasco

Hasco

XLDnaute Barbatruc

Pièces jointes

Titou99

XLDnaute Junior

Discussions similaires