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

[michir]

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

 

[camarchepas]

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

Bonsoir,

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

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

 

[michir]

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

 

[camarchepas]

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