IF + lien hypertexte

copayo · 18 Novembre 2008

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 · 18 Novembre 2008

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 · 18 Novembre 2008

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

IF + lien hypertexte

copayo

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

copayo

XLDnaute Occasionnel

Discussions similaires

IF + lien hypertexte

copayo

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

copayo

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency