Détection modification cellule après insertion lien hypertexte
Bonjour,
Si dans la cellule active, je récupère un lien hypertexte, le contenu de la cellule "change" mais je n'arrive pas à le détecter !
Code:
1 2 3 4 5 6
| If Not Intersect(Target, Range("hypertexte")) Is Nothing Then
With ActiveCell.Font
.Size = 8
.Name = "arial"
End With
End If |
Le problème est qu'à l'introduction d'un lien hypertexte, la police passe en taille 10 et je n'arrive pas à la faire repasser en taille 8 (dans la mise en forme conditionnelle, il semble qu'il ne soit pas possible de modifier le nom de la police de caractère ni sa taille d'où ce bout de code)
Merci pour vos lumières,
Cordialement,
jpma75