feuille masquer mais accessible??

[luisf]

bonjour
je cherche comment masquer des feuilles tout en restant accessible par des liens hypertexte et des boutons.

j'ai essayer la fonction masquer une feuille et avec le code vba suivant:
ActiveWorkbook.Sheets(2).Visible = false

dans les 2 cas la feuille est masquer mais elle n'est pas accessible. y a t'il une solution a ce problème???

 

[wilfried_42]

Re : feuille masquer mais accessible??

Bonjour

Toute feuille masquée, pour etre accessible doit redevenir visible, donc avant de l'activer, il faut la rendre visible (par macro)
sheets(2).visible = true

ensuite dans le code de la feuille, interruption desactivate tu peux à nouveau la masquer

 

[luisf]

Re : feuille masquer mais accessible??

ok merci.
c'est bien ce que je me disait vu que je trouvais rien d'autre
je vais faire comme sa.

 

[luisf]

Re : feuille masquer mais accessible??

une autre tite question

quand j'accède au feuille avec des bouton pas de problème j'arrive a activer et masquer
mon problème c'est lorsque je doit accéder à une feuille par un lien hypertexte. comment je peux lui rajoute afficher la feuille 3 par exemple???

 

[MJ13]

Re : feuille masquer mais accessible??

Bonjour,

A voir si dans l'évènement sur la feuille

FollowHyperlink sur la feuille ne pourrait pas t'aider.

Ou sur Thisworkbook

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
'Code
End Sub

 

[wilfried_42]

Re : feuille masquer mais accessible??

re:

je ne sais pas si c'est cela que tu cherches, (je n'utilise jamais les liens Hyperlink)

dans la feuille ou il y a le lien

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Sheets(2).Visible = True
    Sheets(2).Select
End Sub

maintenant, s'il y a plusieur lien, tester target qui correspond à la cellule

oups : Bonjour michel

exemple :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim a As String
    a = Left(Target.SubAddress, InStr(Target.SubAddress, "!") - 1)
    Sheets(a).Visible = True
    Sheets(a).Select
End Sub

 

[luisf]

Re : feuille masquer mais accessible??

en effet j'ai plusieurs liens sur la même feuille.
j'ai une quinzaine de liens qui renvoie chacun une feuille différente

comment faire avec target!?

 

[wilfried_42]

Re : feuille masquer mais accessible??

essaye cela

à mettre dans le code de la feuille

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim a As String
    a = Left(Target.SubAddress, InStr(Target.SubAddress, "!") - 1)
    Sheets(a).Visible = True
    Sheets(a).Select
End Sub

 

[luisf]

Re : feuille masquer mais accessible??

je ne comprend pas trop le:
a = Left(Target.SubAddress, InStr(Target.SubAddress, "!") - 1)

je ne vois pas ce que je doit faire pour adapter à mon cas et surtout comment faire pour y mettre mes 15liens?