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

  • Initiateur de la discussion Initiateur de la discussion berru76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Solution
Sans.jpg
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:
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:
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: 16
  • 23.PNG
    23.PNG
    5.9 KB · Affichages: 15
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
232
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
425
Réponses
7
Affichages
211
Réponses
10
Affichages
389
Réponses
4
Affichages
177
Réponses
0
Affichages
566
Retour