feuille masquer mais accessible??

wilfried_42

XLDnaute Barbatruc

• 15 Avril 2008

• #2

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

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 15 Avril 2008

• #3

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.

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 15 Avril 2008

• #4

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???

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Avril 2008

• #5

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 15 Avril 2008

• #6

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

Code:

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 :

Code:

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

 

Dernière édition: 15 Avril 2008

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 15 Avril 2008

• #7

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!?

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 15 Avril 2008

• #8

Re : feuille masquer mais accessible??

essaye cela

à mettre dans le code de la feuille

Code:

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

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 15 Avril 2008

• #9

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?

 

Vote positif 0 Vote négatif