condition avec lien

[Cruz]

bonjour tout le monde

j'ai une macro de ce style :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = '$A$1' Then Range('A2') = Range('A2') + 1
End Sub

Mais si j'insère dans le cellule A1 :
=SI(B3=3;'';LIEN_HYPERTEXTE(1.xls;B4))
La macro ne marche pas, elle ne marche que pour les vrais liens qui n'utilsent pas la fonction LIEN_HYPERTEXTE

Y auraut-il un moyen que cette macro s'active aussi avec les liens inserés dans une fonction ???

merci d'avance
a+
cruz

 

[JeanMarie]

Bonjour

Une suggestion, tu devrais utiliser l'évènement Change de la feuille.

@+Jean-Marie