Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modifier macro pour indiquer abence d'une feuille cachée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion michir
  • 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 !

S'inscrire
M

michir

XLDnaute Occasionnel
Bonjour
Je reviens sur une question que je pensais avoir résolue (merci "camarchepas" pour ta contribution). En fait je n'avais pas été au bout du test
Je joins donc un extrait du fichier. La macro proposée affiche bien la feuille masquée puis le message d'absence de feuille
Je souhaite modifier la macro afin qu'elle affiche bien la feuille masquée si elle est présente ou affiche un message d'absence de feuille si cette feuille n'existe pas

Voici la macro
Sub Aller_Classement_par_RS()
Application.ScreenUpdating = False
Sheets("Sommaire").Select
Sheets("Classement par Région").Visible = True
Sheets("Classement par Région").Select
On Error Resume Next
Sheets("Classement").Activate
If Err.Number <> 0 Then MsgBox "Feuille Classement absente"
On Error GoTo 0
End Sub

Merci à tous et à "camarchepas" en particulier
 

Pièces jointes

Trier par date Trier par votes
Re : modifier macro pour indiquer abence d'une feuille cachée

Bonsoir,

Nouvel essai , peut être une transformation .....

Code: 
Sub Aller_Classement_par_RS()
Dim Onglet As String
Onglet = Sheets("SOMMAIRE").Range("B3")
On Error Resume Next
Sheets(Onglet).Select
'Ici , une premiere erreur est trouvée , mais l'on ne sais pas si la feuille n'existe pas ou est invisible
If Err.Number <> 0 Then
  'On rearme l'erreur
   Err.Clear
  'L'on rend visible la feuille , déclenche une erreur si inexistante
   Sheets(Onglet).Visible = xlSheetVisible
   Sheets(Onglet).Select
   If Err.Number <> 0 Then MsgBox "La feuille " & Onglet & " est absente"
End If
On Error GoTo 0
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : modifier macro pour indiquer abence d'une feuille cachée

Re
J'ai bien remplacé ma procédure par le tienne, mais elle affiche le message d'absence de feuille même si elle est présente
Sub Aller_Classement_par_RS()
Dim Onglet As String
Onglet = Sheets("SOMMAIRE").Range("B3")
On Error Resume Next
Sheets(Onglet).Select
'Ici , une premiere erreur est trouvée , mais l'on ne sais pas si la feuille n'existe pas ou est invisible
If Err.Number <> 0 Then
'On rearme l'erreur
Err.Clear
'L'on rend visible la feuille , déclenche une erreur si inexistante
Sheets(Onglet).Visible = xlSheetVisible
Sheets(Onglet).Select
If Err.Number <> 0 Then MsgBox "La feuille " & Onglet & " est absente"
End If
On Error GoTo 0
End Sub
Je pense qu'il ne manque pas grand chose , mais je ne trouve pas;..
Merci néanmoins
 
Vote positif 0 Vote négatif
Re : modifier macro pour indiquer abence d'une feuille cachée

Bonjour ,

Quelle valeur as tu mis dans la cellule B3 de la feuille Sommaire ?
en sécurité pour être sur que cette cellule soit remplie , tu peux ajouter derriere

Onglet = Sheets("SOMMAIRE").Range("B3")

la ligne suivante :

if onglet = "" then msgbox "Le nom de la Feuille cible non renseigné dans la la cellule B3 de la feuille Sommaire" : exit sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
360
MATLEA
M
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
509
sylvanu
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
665
fanch55
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
853
candido57
C
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
550
ManuEven
M
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
476
NONO14
N
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
637
Franc58
F
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
736
un internaute
U
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
590
Lu76Fer
V
  • Question Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
2 K
patricktoulon
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
719
Pimpon974
P
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
718
oguruma
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
677
Oneida
N
  • Résolu(e)
Microsoft 365 Copier une ligne d'une feuille vers une autre
Réponses
2
Affichages
740
netparty
N
D
  • Question Question
Microsoft 365 Optimisation boucle
Réponses
2
Affichages
802
Wayki
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
882
berru76
B
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
696
tactic6
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
653
Mika07
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…