XL 2019 Modifier une macro aller a la feuille pour éviter erreur 9 si la feuille demandé n' existe pas

[berru76]

Bonjour je voudrais de l' aide pour modifier une macro dans module 1
Afin d'éviter erreur 9 si la feuille n'existe pas ( dans cette exemple la 96 )
Pouvoir indiquer ce genre de message MsgBox "La Feuille '96' n'existe pas!"

ci-joint un exemple du fichier
Merci a vous

Sub Cadre1_Cliquer()
Call MasquerFeuilles
Dim ws As Worksheet
a = Range("G5")
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Inscriptions" Or ws.Name = "Mode d'emploi" Or ws.Name = "Noms" Or ws.Name = "" & a & "" Then
ws.Visible = xlSheetVisible
End If
Next ws
Sheets("" & a & "").Activate
End Sub

Sub MasquerFeuilles()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub

Sub FeuilVisibles()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
Sheets(sh.Name).Visible = True
Next sh
End Sub

 

[Paf]

Bonjour,

Vous pouvez adapter ce genre de code :

If IsError(Evaluate("='" & a & "'!A1")) Then
    MsgBox "La feuille " & a & " n'existe pas"
    Exit Sub
End If

A+

 

[berru76]

merci je vais essayé

 

[berru76]

J'ai essayé de mettre ces lignes soit avant ou fin
cela me donne erreur de compilation
merci de votre aide

 

[berru76]

J'ai réussi merci


Sub Cadre1_Cliquer()
Call MasquerFeuilles
Dim ws As Worksheet
a = Range("G5")
If IsError(Evaluate("='" & a & "'!A1")) Then
MsgBox "La feuille " & a & " n'existe pas"
Exit Sub
End If
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Inscriptions" Or ws.Name = "Mode d'emploi" Or ws.Name = "Noms" Or ws.Name = "" & a & "" Then
ws.Visible = xlSheetVisible
End If
Next ws
Sheets("" & a & "").Activate
End Sub

 

[Paf]

Impec !

 

[berru76]

Bonjour
Un petit souci malgré tout lorsque j' inscrit un nombre de joueurs incorrect EX 23 le message s'affiche bien
mais je perd la feuille noms en affichage
qui ne reviens que si je remplis un nombre correct EX 24

Avez-vous une idée pour éviter cette perte de l'affichage de la feuille noms

Merci a vous

 

[Paf]

Dans la Sub Cadre1_Cliquer() commencer par tester l'existence de la feuille, avant de modifier l'affichage des feuilles ???

 

[berru76]

Bonjour
mon souci est que si l'on demande un nombre ou il n'y a pas de feuilles exemple 23
sur la page principale le feuillet noms n'apparait plus en affichage a coter de inscriptions et mode d'emploi
mais si je redemande une feuille Ex 24 qui existe le feuillet noms réapparait
Jai déplacer "tester l'existence de la feuille" mais je ne trouve pas l'erreur
Si vous avez une idée
Merci

 

[Paf]

 

[berru76]

C'était bien ça j'ai testé sur le prog initial
excusez moi pas très bon en VBA
Merci a vous