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

berru76

XLDnaute Occasionnel
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
 

Pièces jointes

  • Afficher feuilles.xlsm
    86.1 KB · Affichages: 13
Solution
Sans.jpg

berru76

XLDnaute Occasionnel
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
 
Dernière édition:

berru76

XLDnaute Occasionnel
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
 
Dernière édition:

berru76

XLDnaute Occasionnel
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
 

Pièces jointes

  • 24.PNG
    24.PNG
    2.3 KB · Affichages: 14
  • 23.PNG
    23.PNG
    5.9 KB · Affichages: 13
Dernière édition:

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 709
Messages
2 081 754
Membres
101 812
dernier inscrit
trufu