[RÉSOLU] Masquer Démasquer des feuilles avec clic sur cellule

[un internaute]

Bonjour le forum,
J'ai ce code ci-dessous, comment pourrais-je afficher masquer en un clic sur cellule pour éviter bouton?
Merci pour vos éventuels retours
Cordialement

Option Explicit
Sub AfficherMasquerOnglets(Optional Affiche As Integer)
Dim Ws As Worksheet, Feuille As Worksheet, I As Integer
Dim LesFeuilles
 
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
 
  If Affiche = 0 Then
    Affiche = xlSheetVeryHidden
    For I = 1 To Sheets.Count
      If Sheets(I).Visible = xlSheetVeryHidden Then Affiche = True: Exit For
    Next I
  End If
 
  For Each Feuille In Sheets
    Select Case Feuille.Name
      Case "TOTO - TATA"
      Case Else
        With Feuille
          .Unprotect
          .Visible = Affiche
          .Protect
        End With
    End Select
  Next Feuille
End Sub

 

[un internaute]

Bonjour Lone-wolf
Oui TOTO - TATA c'est la même feuille
Il y a une feuille nommée LISTE_PRATICIENS
J'ai essayé de faire un fichier mais impossible c'est TOUT imbriqué Userform technique de soins ça se tient tout
Tu m'avais fait ça et ça fonctionne SUPER

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)       
  If R.Address = "$A$2" And R.Count = 1 Then Rows(3).Hidden = Not Rows(3).Hidden: R(1, 2).Select
  End Sub

Remplacer Rows par noms de feuilles (moi je ferais car je sais) pour l'instant j'en ai 7
Et "$A$2" par $D$3
Si tu peux y arriver ça va sinon ne t'acharne pas
C'est déjà énorme ce que tu fais ainsi que Ce lien n'existe plus
Bien cordialement à vous deux

 

[Staple1600]

Bonjour le fil, le forum, un internaute, Lone-Wolf

@un internaute
Pour infos
Il est très facile de joindre un fichier exemple
En l’occurrence, on ne joint jamais l fichier original, mais un classeur exemple créé spécialement pour illustrer la problématique rencontrée:il s'agit ici de masquer des feuilles sur un clic.

Donc on a juste besoin d'un classeur qui reproduit la structure de l'original (même nombre de feuilles, même noms de feuilles)
Et au niveau des données, on juste besoin de données bidons mais surtout que soit identifiées par une couleur les plages de cellules où doivent survenir les clics qui masqueront les feuilles.

 

[Lone-wolf]

Re

J'ai essaié de faire un fichier

Tu as lu mon précédent massage? Sinon voici un classeur exemple, double-clique sur un nom pour créer une feuille. Sur la feuille créée, double-clique sur le nom du médecin. Ensuite dis moi si c'est bien ce que tu veux.

EDIT: @Staple1600 : c'est ce que je lui ai dit dans mon précédent message.

 

[Staple1600]

Re

@Lone-wolf
Oui mais un homme averti en vaut deux
Mais deux avertissements valent-ils un homme?

J'attends juste le fichier fourni par le demandeur
(histoire de ne pas me fourvoyer sur une mauvaise piste mais surtout as usual pour le fol espoir que le demandeur mette les mains dans le cambouis et mouille la chemise )

 

[un internaute]

Bonjour le forum,
Voilà dans ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
  If R.Address = "$A$2" And R.Count = 1 Then AfficherMasquerOnglets: Range("A1").Select
End Sub

Merci à tous
Cordialement