Imprimer un fichier selon certaines conditions

Gorfael à dit:

Salut Cydor007 et le forum
Jouer avec les couleurs n'est jamais sûr : un rouge à 255 et indiscernable d'un rouge à 254, mais Excel lui le reconnaît.
Un petit essai, vite vait. Macro dans le module ThisWorkBook :

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim F As Worksheet
Dim Cel As Range
For Each F In ActiveWindow.SelectedSheets
    For Each Cel In F.UsedRange
        If Cel.Interior.ColorIndex = 3 Then
            Cancel = True
            MsgBox "C'est loupé", , "Arrêt impression"
            Exit Sub
        End If
    Next Cel
Next F
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

A+

Cliquez pour agrandir...

Merci d'avoir répondu, mais comment fait-on pour activer cette private sub dans mon fichier.

Cliquez pour agrandir...

...Macro dans le module ThisWorkBook :

Cliquez pour agrandir...

Private Sub Workbook_[B]BeforePrint[/B](Cancel As Boolean)
[B][COLOR=Green]'...[/COLOR][/B]
End Sub

Dull à dit:

Salut Cydor007, Gorfael🙂, le Forum

Relis bien les lignes de Gorfael

Tu met la Macro de le dit-module

Code:

Private Sub Workbook_[B]BeforePrint[/B](Cancel As Boolean)
[B][COLOR=Green]'...[/COLOR][/B]
End Sub

Au click de l'icône Imprimer ou Fichier/Imprimer le code fonctionnera

Et cela à condition que les cellules en Rouge ne soit pas issues de Mise en Forme Conditionnelle sinon il faudra passer par les valeurs des cellules


Bonne Journée

Cliquez pour agrandir...