rendre visible une feuille cachée au clic de souris dans zone de cellules

[pascal21]

bonjour
quel code permet de rendre visible une feuille cachée ("consommables") en cliquant sur une zone de cellules ("d5:d35") de la feuille ("tableau de bord")
j'ai dans cette zonne de cellule un lien hypertext pointant vers la feuille cachée et il me faut la rendre visible pour avoir accès vers cette feuille ("consommables")
merci
voir fichier joint et demande complémentaire plus bas

 

[pascal21]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

re
j'ai trouvé ça mais j'ai une erreur

If Intersect(Target, Range("d5:d35")) Is Nothing Then Exit Sub
Sheets("consommables").Visible = True

 

[pascal21]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

je vous joint un fichier joint très simplifié avec les explications
en gros,
le clic sur les cellules contenant un lien rend visible la feuille cachée (feuil1)
ensuite le lien pointe feuil1 sur la colonne choisie et sur la ligne contenant la date du jour (ça c'est une demande nouvelle)

 

[pascal21]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

pour faire remonter

 

[kjin]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

Bonjour,
Sur double click, à adapter
dans le module de la feuil2

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set plg = Range("D5:D" & Range("D65000").End(xlUp).Row)
If Not Intersect(Target, plg) Is Nothing And Target <> "" Then
    Cancel = True
    i = Target.Row - 3
    With Sheets("Feuil1")
        Set c = .Columns(1).Find(Date)
        If Not c Is Nothing Then
            .Visible = True
            .Activate
            .Cells(c.Row, i).Activate
        End If
    End With
End If

End Sub

Et dans le module de la feuil1

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden '=False si tu souhaites pouvoir la réafficher par le menu

End Sub

A+
kjin

 

[pascal21]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

bonjour kjin
alors là je ne comprends plus j'ai recopié le code dans le classeur joint et ça marche ensuite j'ai changé les cellules, adapté le code en fonction et ça marche
je le mets ensuite dans mon classeur définitif et là ça fonctionne pas
en fait le lien hypertext prends la main avant le code
si je supprime le lien ça fonctionne pas non ple
je l'ai collé le code sur un évennement clic droit pareil , ça fonctionne pas non plus

 

[kjin]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

Re,
Peux tu m'expliquer à quoi servent tes liens hypertextes si la macro te permet déjà d'atteindre les cellules de ton tableau SANS ?! 😡
A+
kjin

 

[pascal21]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

re
au départ ils me servaient à aller à la feuil1 ou feuil ("consommables") sur mon fichier
mais je les ai supprimés depuis
d'ailleurs sur le classeur 'lien hypertext" les lien étaient valides et ça fonctionnait

 

[jeanpierre]

Re : rendre visible une feuille cachée au clic de souris dans zone de cellules

Bonjour Pascal, Re kjin,

C'est l'empêcheur de tourner en rond à l'appareil....

Pourquoi cacher une feuille si un simple clic la démasque... ?

Pour ta dernière question, il y a plusieurs réponses sur le forum, dont des récentes

Question.

Bon après-midi.

Jean-Pierre