Liens hypertextes

Loulou1119 · 19 Novembre 2013

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 · 19 Novembre 2013

Re : Liens hypertextes

Bonjour, Loulou1119, le Forum,

Peut-être ainsi :

Code:

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 · 20 Novembre 2013

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 · 21 Novembre 2013

Re : Liens hypertextes

Bonjour, Loulou1119, le Forum,

Loulou1119 à dit:
...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 🙂

Liens hypertextes

Loulou1119

Guest

DoubleZero

XLDnaute Barbatruc

Loulou1119

Guest

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Liens hypertextes

Loulou1119

Guest

DoubleZero

XLDnaute Barbatruc

Loulou1119

Guest

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency