lien hypertexte non imprimables

[C@thy]

Bonsouarrrrr,


est-il possible de rendre les liens hypertexte non imprimables, comme on fait pour les boutons?
(je précise : on doit pouvoir les voir pour cliquer dessus, mais je ne veux pas imprimer "Retour page Accueil", c pa bô!!!!)

Merciiiiiiiiii

C@thy

 

[Cousinhub]

Re : lien hypertexte non imprimables

Bonsoir Cathy,

une petite bidouille
Avant impression, police en blanc

dans le code de ThisWorkBook

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 :

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

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

 

[Compte Supprimé 979]

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+

 

[C@thy]

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

 

[chris]

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.

 

[C@thy]

Re : lien hypertexte non imprimables

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

Bises

C@thy

 

[PascalXLD]

Re : lien hypertexte non imprimables

Bonjour

Essaies

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