IF + lien hypertexte

[copayo]

bonjour,

je voudrais modifier l'adresse d'un lien hypertexte avec une condition

j'ai comencé à frapper ca mais ca focntionne pas a chaque coup !!


merci de vos contrib


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)


If Worksheets("Feuil1").Range("A1") = 1 Then
Target.SubAddress = "Feuil1!A1"
Else
Target.SubAddress = "Feuil2!A1"
End If


End Sub

 

[tototiti2008]

Re : IF + lien hypertexte

Bonjour copayo,

si, ça fonctionne trés bien. Le problème est que ça s'applique après que le lien ait été suivi et donc ça ne marchera que pour la fois suivante...

En fait l'évènement Follow_Hyperlink décrit ce qui se passe APRES avoir suivi le lien hypertexte....

maintenant, une autre solution peut-être de travailler avec une formule basée sur la fonction LIEN_HYPERTEXTE

 

[copayo]

Re : IF + lien hypertexte

merci pour ta réponse

c pas top comme mode de fonctionnement d'attendre le coup suivant !!!


par le mode formule cela ne m'arrange pas car je souhaite récuperer la valeur de la cellule contenant le lien hypertexte par la procédure évenementielle ....mais avec une formule cela ne la déclenche pas !!

si vous avez une autre piste je suis preneur !!

merci par avance