Bonjour Crapulas, le Forum
2 macros pour tes 2 demandes.
La 1ère te renvoie dans un MsgBox les onglets nommés 20xx-20yy
Tu l'adapteras pour la mettre dans une liste.
La 2ème determine si l'onglet existe ou pas
Sub RechercheOnglet()
Dim Liste As String
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets.Count
If Left(Sheets(i).Name, 2) & Mid(Sheets(i).Name, 6, 2) = "2020" Then
Liste = Liste & Sheets(i).Name & Chr(10)
End If
Next i
MsgBox Liste
End Sub
Sub PageExiste()
Dim NomPage As String
Dim Valor As String
NomPage = InputBox("Entrer le nom de la page", "")
On Error GoTo GestErreur
Valor = Sheets(NomPage).Range("A1")
MsgBox "La page existe"
Exit Sub
GestErreur:
MsgBox "La page n'existe pas"
End Sub
Bonne journée
PhiBou