XL 2013 Afficher ou masquer des onglets selon valeur d’une cellule par VBA

[FifiSt]

bonjour,

je viens vous demander de l'aide désespérément

Je souhaite masquer des feuilles par code VBA :

Sur l’onglet « INDEX » sur la cellule « E1 » je sélectionne un nom
En « F11 », à l’aide d’une formule il apparaît une référence dossier

Je souhaiterais pouvoir en cliquant sur un bouton :
afficher les feuilles dont la référence dossier en « A1 » correspond à celle indiqué en « F11 »
Masquer les onglets avec une autre référence dossier
Et laisser apparent les onglets « mode d’emploi « «responsable », »salarié » et « INDEX »

merci beaucoup pour votre aide

 

[Lolote83]

Bonjour FIFIST,
Voici ton fichier en retour
Cordialement
@+ Lolote83

 

[patty58]

Bonjour à tous

Vois cela
Bon courage

 

[FifiSt]

Bonjour FIFIST,
Voici ton fichier en retour
Cordialement
@+ Lolote83

Merci beaucoup pour ton aide
Cordialement fifi

 

[FifiSt]

Bonjour à tous

Vois cela
Bon courage

Bonjour
Merci beaucoup mais cela ne correspond malheureusement pas à ce que je souhaite

Je désire afficher tous les onglets qui ont en A1
La référence recherchée :
l’onglet qui porte son nom
Mais aussi les onglets des salariés qui correspondent

Cordialement
Fifi

 

[patty58]

Excuse j'avais mal lu
Mais si lolote t'a donné la solution, c'est bon
Bonne fin de journée

 

[job75]

Bonjour FifiSt, Lolote83,patty58,

Une autre solution avec le classeur protégé pour éviter que l'ordre des feuilles soit modifié :

Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, [E11]) Is Nothing Then Exit Sub
Dim x$, i%, w As Worksheet
x = UCase(CStr([F11]))
ThisWorkbook.Unprotect "FifiSt" 'ôte la protection du classeur
For i = 5 To Worksheets.Count
    Set w = Worksheets(i)
    w.Visible = IIf(UCase(w.Cells(1)) = x, xlSheetVisible, xlSheetHidden) 'ou xlSheetVeryHidden
Next
ThisWorkbook.Protect "FifiSt" 'rétablit la protection du classeur
End Sub

A+