Problème sur LIEN_HYPERTEXTE

[Claude Azoulai]

Bonjour à vous

En auto-formation, j'essaie d'utiliser les HypersLiens.
Dans une cellule de 'Feuil1', je mets la formule suivante : =LIEN_HYPERTEXTE('http://www.google.fr';'Google')
Dans l'évenement FollowHyperlink de 'Feuil1', je mets ce qui suit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim titi
titi = 1
End Sub
et je mets un point d'arrêt sur titi=1.

Quand je clique sur la cellule considérée, je me connecte bien sur Google, mais je ne passe jamais sur mon point d'arrêt.
j'ai du oublier quelque chose quelque part.
Quelqu'un peut-il m'aider SVP
Merci de votre réponse
Claude Azoulai

 

[MichelXld]

bonjour Claude

je ne suis pas sur que l'evenement Worksheet_FollowHyperlink détecte le lancement d'un lien depuis la fonction LIEN_HYPERTEXTE

il me semble que cela fonctionne uniquement à partir d'un lien créé directement dans la feuille
Menu Insertion
Lien hypertexte
...


par contre tu pourrais utiliser l'evenement Worksheet_SelectionChange

et verifier si la cellule sélectionnée contient un lien hypertexte : If Not Target.Hyperlinks.Count = 0 Then


ce qui donnerait

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Titi As Byte

If Not Target.Hyperlinks.Count = 0 Then
Titi = 1
End If
End Sub


bon week end
MichelXld

Message édité par: michelxld, à: 05/05/2006 17:35

Message édité par: michelxld, à: 05/05/2006 17:36

 

[Claude Azoulai]

Merci à Michel

Cela marche comme tu me l'a dit.
Je ne connaissais pas cette méthode pour créer un lien hypertexte, en fait je n'en connaissais aucune.
Merci pour ton aide qui m'a bien aidé.

Claude Azoulai