Autres masquer des feuilles en vba

[MMEE]

Bonsoir,
j'aimerai masquer ma feuille "IJ" et revenir sur la feuille "ARBORESCENCE GLOBALE".
Aussi j'aimerai appliquer cette operation avec toutes les autres feuilles de mon classeur en revenant tjs sur "ARBORESCENCE GLOBALE".

Voici la code que j'ai fait qui ne fonctionne uniquement pour ma feuille "DEPENDANCE" mais pas les autres

If Sheets("DEPENDANCE").Activate Then
Sheets("DEPENDANCE").Visible = False
Sheets("ARBORESCENCE GLOBALE").Select
Range("A1").Select

ElseIf Sheets("IJ").Activate Then
Sheets("IJ").Visible = False
Sheets("ARBORESCENCE GLOBALE").Select
Range("A1").Select

Else: Sheets("+ TERRITORIAL").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("ARBORESCENCE GLOBALE").Select
Range("A1").Select

End If

je vous remercie beaucoup pour votre aide.

Cordialement

 

[sylvanu]

Bonjour MMEE, et bienvenu(e) sur XLD,
Cela revient à tout masquer sauf la feuille "ARBORESCENCE GLOBALE" ?
Si oui, voir PJ

Sub Essai()
Sheets("ARBORESCENCE GLOBALE").Select
Range("A1").Select
For Each F In Worksheets
    If F.Name <> "ARBORESCENCE GLOBALE" Then Sheets(F.Name).Visible = False
Next F
End Sub

Si non, donnez nous un fichier test avec plus de précision.

NB: Pour le code utilisez la balise </> à droite de l'icone GIF, c'est plus lisible.