Message si la feuille recherchée n'existe pas

Bonjour,

J'ai créé une macro qui me permet d'afficher une feuille existante dans mon classeur

Sub Modifier_Planning()

    Dim NomFeuille As String
    Dim FeuilleRecherchée As String
    NomFeuille = InputBox("Indiquez l'année du Planning à modifier")
    FeuilleRecherchée = "PLANNING " & NomFeuille

    If NomFeuille = "" Then
        Exit Sub

    Else

    Sheets(FeuilleRecherchée).Select

    End If

End Sub

Pas de soucis si la feuille existe...par contre si elle n'existe pas, j'ai le message d'erreur "l'indice n'appartient pas à la sélection".

Je sollicite donc votre aide pour que si la feuille n'existe pas dans le classeur une msgbox affiche "La feuille recherchée n'existe pas".

Merci d'avance pour votre aide

Bonjour,

essaie ainsi :

Sub Modifier_Planning()
Dim Feuille As Worksheet
Dim NomFeuille As String
Dim FeuilleRecherchée As String
    NomFeuille = InputBox("Indiquez l'année du Planning ? modifier")
    FeuilleRecherchée = "PLANNING " & NomFeuille
    If NomFeuille = "" Then
        Exit Sub
    Else
        FeuilleRecherchée = "PLANNING " & NomFeuille
        On Error Resume Next
        Set Feuille = Worksheets(FeuilleRecherchée)
        On Error GoTo 0
        If Feuille Is Nothing Then
            MsgBox "La feuille recherchée n'existe pas"
        Else
            Feuille.Activate
        End If
    End If
End Sub

Super!

Simple, rapide et efficace.

Merci pour ton aide Jean-Eric