Comment je peux faire pour que lors de l'impression d'une feuille de calcul
contenant entre autres des liens hypertext les cellules contenant ces liens
sont imprimées en blanc (vides)?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each link In ActiveSheet.Hyperlinks
link.Range.Font.Color = link.Range.Interior.Color
Next link
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
Merci, ça marche sauf que àprès l'impression, les links dans ma feuille ne sont plus visibles.
Comment faire pour que les links réapparaissent à l'écran après impression?
Merci d'avance,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
A insérer dans ThisWorkBook.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico a écrit dans le message de news:
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul contenant entre autres des liens hypertext les cellules contenant ces liens sont imprimées en blanc (vides)?
Merci d'avance de votre précieuse aide
Rai,
Merci, ça marche sauf que àprès l'impression, les links dans ma feuille ne
sont plus visibles.
Comment faire pour que les links réapparaissent à l'écran après impression?
Merci d'avance,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each link In ActiveSheet.Hyperlinks
link.Range.Font.Color = link.Range.Interior.Color
Next link
End Sub
A insérer dans ThisWorkBook.
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico Iannizzi@discussions.microsoft.com> a écrit dans le message de news: CE9B5838-6B2E-4D38-9765-FFB644F2B825@microsoft.com...
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul
contenant entre autres des liens hypertext les cellules contenant ces liens
sont imprimées en blanc (vides)?
Merci, ça marche sauf que àprès l'impression, les links dans ma feuille ne sont plus visibles.
Comment faire pour que les links réapparaissent à l'écran après impression?
Merci d'avance,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
A insérer dans ThisWorkBook.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico a écrit dans le message de news:
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul contenant entre autres des liens hypertext les cellules contenant ces liens sont imprimées en blanc (vides)?
Merci d'avance de votre précieuse aide
Nico Iannizzi
Rai,
Je crois avoir trouvé maintenant par moi-même:
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link
Application.OnTime Now + TimeValue("00:00:01"), "réafficherlinkssurécran"
End Sub
Sub réafficherlinkssurécran() For Each link In ActiveSheet.Hyperlinks link.Range.Font.ColorIndex = 5 Next link End Sub
Merci encore une fois pour m'avoir dirigé sur la bonne "piste".
Salutations,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
A insérer dans ThisWorkBook.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico a écrit dans le message de news:
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul contenant entre autres des liens hypertext les cellules contenant ces liens sont imprimées en blanc (vides)?
Merci d'avance de votre précieuse aide
"Nico Iannizzi" wrote:
Rai,
Merci, ça marche sauf que àprès l'impression, les links dans ma feuille ne sont plus visibles.
Comment faire pour que les links réapparaissent à l'écran après impression?
Merci d'avance,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
A insérer dans ThisWorkBook.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico a écrit dans le message de news:
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul contenant entre autres des liens hypertext les cellules contenant ces liens sont imprimées en blanc (vides)?
Merci d'avance de votre précieuse aide
Rai,
Je crois avoir trouvé maintenant par moi-même:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each link In ActiveSheet.Hyperlinks
link.Range.Font.Color = link.Range.Interior.Color
Next link
Application.OnTime Now + TimeValue("00:00:01"), "réafficherlinkssurécran"
End Sub
Sub réafficherlinkssurécran()
For Each link In ActiveSheet.Hyperlinks
link.Range.Font.ColorIndex = 5
Next link
End Sub
Merci encore une fois pour m'avoir dirigé sur la bonne "piste".
Salutations,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each link In ActiveSheet.Hyperlinks
link.Range.Font.Color = link.Range.Interior.Color
Next link
End Sub
A insérer dans ThisWorkBook.
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico Iannizzi@discussions.microsoft.com> a écrit dans le message de news: CE9B5838-6B2E-4D38-9765-FFB644F2B825@microsoft.com...
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul
contenant entre autres des liens hypertext les cellules contenant ces liens
sont imprimées en blanc (vides)?
Merci d'avance de votre précieuse aide
"Nico Iannizzi" wrote:
Rai,
Merci, ça marche sauf que àprès l'impression, les links dans ma feuille ne
sont plus visibles.
Comment faire pour que les links réapparaissent à l'écran après impression?
Merci d'avance,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each link In ActiveSheet.Hyperlinks
link.Range.Font.Color = link.Range.Interior.Color
Next link
End Sub
A insérer dans ThisWorkBook.
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico Iannizzi@discussions.microsoft.com> a écrit dans le message de news: CE9B5838-6B2E-4D38-9765-FFB644F2B825@microsoft.com...
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul
contenant entre autres des liens hypertext les cellules contenant ces liens
sont imprimées en blanc (vides)?
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link
Application.OnTime Now + TimeValue("00:00:01"), "réafficherlinkssurécran"
End Sub
Sub réafficherlinkssurécran() For Each link In ActiveSheet.Hyperlinks link.Range.Font.ColorIndex = 5 Next link End Sub
Merci encore une fois pour m'avoir dirigé sur la bonne "piste".
Salutations,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
A insérer dans ThisWorkBook.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico a écrit dans le message de news:
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul contenant entre autres des liens hypertext les cellules contenant ces liens sont imprimées en blanc (vides)?
Merci d'avance de votre précieuse aide
"Nico Iannizzi" wrote:
Rai,
Merci, ça marche sauf que àprès l'impression, les links dans ma feuille ne sont plus visibles.
Comment faire pour que les links réapparaissent à l'écran après impression?
Merci d'avance,
Nico
"Rai" wrote:
Bonjour,
Une piste :
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each link In ActiveSheet.Hyperlinks link.Range.Font.Color = link.Range.Interior.Color Next link End Sub
A insérer dans ThisWorkBook.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
"Nico Iannizzi" <Nico a écrit dans le message de news:
Bonjour à toutes et à tous,
Comment je peux faire pour que lors de l'impression d'une feuille de calcul contenant entre autres des liens hypertext les cellules contenant ces liens sont imprimées en blanc (vides)?
