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

pascal21

XLDnaute Barbatruc

• 4 Décembre 2009

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 4 Décembre 2009

• #3

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)

 

Pièces jointes

• lien hypertext.xls

  17.5 KB · Affichages: 68
• lien hypertext.xls

  17.5 KB · Affichages: 71
• lien hypertext.xls

  17.5 KB · Affichages: 71

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 4 Décembre 2009

• #4

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

pour faire remonter

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Décembre 2009

• #5

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

Code:

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

Code:

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

End Sub

A+
kjin

 

Pièces jointes

• pascal.zip

  9.3 KB · Affichages: 36
• pascal.zip

  9.3 KB · Affichages: 36
• pascal.zip

  9.3 KB · Affichages: 37

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 4 Décembre 2009

• #6

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Décembre 2009

• #7

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 4 Décembre 2009

• #8

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 4 Décembre 2009

• #9

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

 

Vote positif 0 Vote négatif