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 : Sélectionner tout - Visualiser dans une fenêtre à part
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