lien hypertexte non imprimables

Cousinhub

XLDnaute Barbatruc

• 22 Juillet 2008

• #2

Re : lien hypertexte non imprimables

Bonsoir Cathy,

une petite bidouille
Avant impression, police en blanc

dans le code de ThisWorkBook

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Feuil1").[A1].Font.ColorIndex = 2
End Sub

et pour remettre en couleur, dès que tu sélectionne une autre cellule :
dans le code de la feuille :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1].Font.ColorIndex = 41
End Sub

Pas trouvé mieux, désolé......

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 22 Juillet 2008

• #3

Re : lien hypertexte non imprimables

Bonjour chère C@thy, Salut bh²,

Bh², j'avais bien trouvé le truc avec "BeforePrint"
Mais je ne savais pas comment remettre la police normale 🙄

Et bien voilà, c'est fait, bravo pour l'idée 😀

A+

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 23 Juillet 2008

• #4

Re : lien hypertexte non imprimables

Merci pour l'astuce 😉
...l'ennui c'est que j'ai des liens un peu partout (55 environ), est-ce que je dois faire 55 instructions ou bien je peux faire [A1, A5, A10 etc...]?

Merciiiiiiiiiiiii

C@thy

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 23 Juillet 2008

• #5

Re : lien hypertexte non imprimables

Bonjour

Dans le mesure où les liens hypertexte sont mis en forme par les styles Lien et liens visités, quitte à faire du VBA, je modifierais les 2 styles dans le before print et les rétablirais ensuite.

Ainsi si tes liens n'ont pas subi de mise en forme particulière, cela marchera.
Au pire si tu n'as pas de contrainte de mise en forme différente entre tes liens, tu peux déjà adapter les deux styles à tes besoins.

Dommage que les styles Excel ne permettent pas le texte masqué comme Word, car cela aurait été la solution.

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 24 Juillet 2008

• #6

Re : lien hypertexte non imprimables

Merci Chris, tu as l'nstruction VBA sous la main?

Bises

C@thy

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Juillet 2008

• #7

Re : lien hypertexte non imprimables

Bonjour

Essaies

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveWorkbook.Styles("Hyperlink").Font.ColorIndex = 2
    ActiveWorkbook.Styles("Followed Hyperlink").Font.ColorIndex = 2
End Sub

 

Vote positif 0 Vote négatif