imprimer en couleur qu'une seule feuille

[pascal21]

Private Sub Workbook_BeforePrint(Cancel As Boolean)

On Error Resume Next 'au cas où la feuille active n'est pas une feuille calcul
ActiveSheet.Copy before:=ActiveSheet
Set F = ActiveSheet
Cells.Interior.ColorIndex = xlNone
Application.OnTime Now, "Supprime"
End Sub

et ceci dans un module

Sub Supprime()

Application.DisplayAlerts = False
On Error Resume Next
F.Delete
Set F = Nothing

End Sub

code de JOB75 que je remercie à nouveau

bonjour le forum
j'ai ce code qui me permet de ne pas imprimer les couleurs des cellules qui concerne uniquement une feuille nommée "tableau de bord")
mais j'ai une feuille "planing atelier" qui contient des couleurs que j'ai besoin d'imprimer
que faut-il modifier pour que cela fonctionne
merci

 

[pascal21]

Re : imprimer en couleur qu'une seule feuille

pour faire remonter
merci

 

[job75]

Re : imprimer en couleur qu'une seule feuille

Bonjour pascal21,

Il faudrait indiquer le fil, et mettre tout le code (manque la déclaration de F) :

https://www.excel-downloads.com/threads/imprimer-une-feuille-sans-la-mise-en-page.131306/

Pour imprimer sans couleur uniquement la feuille "tableau de bord" :

Dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[COLOR="Red"]If ActiveSheet.Name <> "tableau de bord" Then Exit Sub[/COLOR]
On Error Resume Next 'au cas où la feuille active n'est pas une feuille calcul
ActiveSheet.Copy Before:=ActiveSheet
Set F = ActiveSheet
Cells.Interior.ColorIndex = xlNone
Application.OnTime Now, "Supprime"
End Sub

Dans un Module :

Public F As Object 'mémorise la feuille

Sub Supprime()
Application.DisplayAlerts = False
On Error Resume Next
F.Delete
Set F = Nothing
End Sub

A+

 

[pascal21]

Re : imprimer en couleur qu'une seule feuille

bonjour et merci ça fonctionne parfaitement bien