lien hypertexte

bonjour

si tu
en supposant que tu prévois un moyen de repasser ta feuille en mode très caché, tu dois pouvoir afficher la feuille en cliquant sur un hypertexte.

il faut que tu cherches, mais voilà des pistes.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count = 1 And Target.Hyperlinks.Count Then


If InStr(1, Target.Hyperlinks(1).SubAddress, "!", vbBinaryCompare) > 0 Then

nomfeuille = Mid(Target.Hyperlinks(1).SubAddress, 1, InStr(1, Target.Hyperlinks(1).SubAddress, "!", vbBinaryCompare) - 1)

If Sheets(nomfeuille).Visible = xlVeryHidden Then
Sheets(nomfeuille).Visible = Visible
End If

DoEvents
Application.Goto Sheets(nomfeuille).Range(Target.Hyperlinks(1).SubAddress), True

End If
End If
End Sub
'tu pourrais recacher cette feuille dans son évènement deactivate

il y a aussi un évènement workbook_sheetfollowhyperlink.

cf <http://xlbysteph.free.fr/aideinformatique/web/htm>
bye
stephane

Bonsoir Mraoua, Salut STéphane

J'espère que STéphane a enfin résolu ton problème d'hyperLInk sur feuille véryhidden...

Et as-tu recu mon long email explicatif au fait ?

...
Bonne Nuit
@+Thierry

Oups Mohamed,

Je viens de faire un checking de mes Email and I got your reply !!
Thx,

Bye bye
@+Thierry

Bonjour Stéphane, Bonjour @+Thierry,
J'ai lu ton message thierry et j avoue que j ai pas compris grand chose de ce que tu m as ecrit..
je t ai envoye quand meme un fichier excel sur ton Email pour que tu vois le probleme de pres
Mohammed
@+

Errata
CE message est destiné a STEPHANE
cIAO
@+

bonjour

voilà une démo.
je me faisais avoir par la cellule fusionnée dans la première fueille

bye
stephane

bonjour

voilà une autre démo que j'ai faite hier.

le code dans l'évènement selection_change marche pour toutes les versions d'excel >=XL97

regarder également le code qui figure dans le module du classeur, cela ne marche pas sur toutes les versions d'excel

bye
stephane

evenement à une range

bonjour, je voudrais savoir si c'est possible de lier un evenement keypressed ou keydown ou autre à une range ou à une celle pour lancer un procedure dans une feuille excel2000
merci d'avance