Macro et mise en forme conditionnelle

BONJOUR A TOUS

j ai une feuille de calculs avec plusieurs mise en forme conditionnelle de cellules ( couleurs en fonction de produits )

Cette feuille je dois la faxer , mais à cause des couleurs, le receptionnaire du fax ne vois que du noir

Donc je creer une macro qui :

• me selectionne la mise en page
• met toutes les cellules en blanc
• et j 'imprimme

Sauf que à la fin de la macro je perd toutes mes mise en forme conditionnelle?

Comment faire pour revenir à la presentation initiale de page ?

Bonjour

pacoflo13 a écrit :

Donc je creer une macro qui :

- me selectionne la mise en page

CouleurBlanche

-met toutes les cellules en blanc

-et j 'imprimme

RetablitPalette

A installer dans ta macro avant d'imprimer

Sub CouleurBlanche()
  Dim I As Integer

  With ActiveWorkbook
    For I = 1 To 56
      .Colors(I) = RGB(255, 255, 255)
    Next I
  End With
End Sub

Ensuite rétablir la palette

Sub RetablitPalette()
  ActiveWorkbook.ResetColors
End Sub

BON JE SUIS SUPER DEBUTANT EN MACRO

VOILA L EXEMPLE DE MA FEUILLE

JE SOUHAITE 3 BOUTONS AVEC IMPRESSION DES CELLULES EN BLANC ET RETOUR DE MES MISE EN FORME CONDITIONNELLE APRES IMPRESSION

banzai quand je copie tes lignes dans ma macro cela en crée 2 autres "imprimmer en blanc" & " retablir" ?

merci

Bonjour

Le fait d'écrire en majuscules veut dire "hurler"

pacoflo13 a écrit :

quand je copie tes lignes dans ma macro cela en crée 2 autres "imprimmer en blanc" & " retablir" ?

Fournit un fichier avec la macro

désolé pour MAJ

voilà exemple de la macro pour impression de la selection violet" 1 produit"

Sub imprimmer_rapport_produit_1()

'

' imprimmer_rapport_produit_1 Macro

'

'

ActiveWindow.SmallScroll Down:=-8

ActiveSheet.Range("$A$26:$I$41").AutoFilter Field:=9, Criteria1:="durant"

ActiveWindow.SmallScroll Down:=12

Range("A1:H72").Select

Range("H72").Activate

ActiveSheet.PageSetup.PrintArea = "$A$1:$H$72"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

voilà la feuille avec macro

pacoflo13 a écrit :

voilà la feuille avec macro

Fichiers joints

exemple.xlsx

(32.65 Kio) Pas encore téléchargé

Un fichier xlsx ne contient pas de macro, il doit être au format xlsm

re

Bonjour

Ce que je t'ai indiqué fonctionne mais (hé oui il y a un mais) la couleur de texte est initialisée en blanc aussi

Donc tes textes en couleurs disparaissent à l'impression

Une solution serait d'avoir des couleurs de texte différentes des couleurs de fond et de ne réinitialiser que les couleurs qui sont utilisées pour le fond

Solution indiquée ici

Sub imprimmer_rapport_produit_1()
'
' imprimmer_rapport_produit_1 Macro
'
    ActiveSheet.Range("$A$26:$I$41").AutoFilter Field:=9, Criteria1:="durant"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$72"
    CouleurBlanche
    ' Juste pour voir
    ActiveWindow.SelectedSheets.PrintPreview

    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    RetablitPalette
End Sub

Sub CouleurBlanche()
  Dim I As Integer

  Application.ScreenUpdating = False
  With ActiveWorkbook
    For I = 1 To 56
      If I <> 3 And I <> 5 Then  ' Rouge et Bleue
        .Colors(I) = RGB(255, 255, 255)
      End If
    Next I
  End With
End Sub

Sub RetablitPalette()
  ActiveWorkbook.ResetColors
End Sub

merci

super cela fonctionne, un grand merci à toi