Liens hypertextes

[Loulou1119]

Bonjour!
j'utilise en ce moment dans mes fichiers excell , des liens hypertexte, que je change régulièrement.
A chaque changement des données des liens , ils passent en bleu et souligné.
Est il possible que cela reste en noir et gras automatiquement?

Merci pour vos réponses.

 

[DoubleZero]

Re : Liens hypertextes

Bonjour, Loulou1119, le Forum,

Peut-être ainsi :

Option Explicit
Sub Liens()
    'Adaptation d'un code de Pierrot93 (Merci !)
    Dim h As Hyperlink, p As Range
    For Each h In ActiveSheet.Hyperlinks
        Set p = Union(IIf(p Is Nothing, h.Parent, p), h.Parent)
    Next h
    With p
        .Font.Bold = True
        .Font.ColorIndex = 1
        .Font.Underline = xlUnderlineStyleNone
    End With
End Sub

A bientôt 🙂

 

[Loulou1119]

Re : Liens hypertextes

Merci 00. Fonctionne bien, mais (pas encore trop grave) ne le fait pas automatiquement !Je ferai avec le raccourci !
Mais dommage, je viens de remarquer que TOUT change, même dans mes cellules avec hyperliens qui sont colorisés...
Merci quand même !

 

[DoubleZero]

Re : Liens hypertextes

Bonjour, Loulou1119, le Forum,

...Fonctionne bien, mais (pas encore trop grave) ne le fait pas automatiquement !Je ferai avec le raccourci !
Mais ... TOUT change, même dans mes cellules avec hyperliens qui sont colorisés...

Pourrait-on voir le fichier de travail, dépourvu de donnée confidentielle, avec les formats originaux et les formats souhaités ?

A bientôt 🙂