XL 2021 Ne pas imprimer une feuille si cellule de reference est égale a 0

[QUILES]

Bonjour

Je voudrais créer une macro qui me permet de ne pas imprimer une feuille Excel si la cellule de référence est égale à zero.

Merci.

 

[sylvanu]

Bonjour Quiles et bienvenu sur XLD,
Peut être avec ceci :

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
    If Not Intersect(Target, [C9]) Is Nothing Then
        If Target = 0 Then Sheets("A imprimer").PrintOut
    End If
Fin:
End Sub

Dans la PJ il suffit de mettre un 0 en C9 pour imprimer automatiquement la feuille "A imprimer"

 

[Phil69970]

Bonjour @QUILES
Edit
Bonjour Sylvain

Je te propose ceci

Sub Impress()
If Worksheets("Feuil1").Range("A1") <> 0 Then 'Nom de la feuille et de la cellule à adapter
    Worksheets("Feuil1").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False      'Lance l'impression
Else
    MsgBox "Pas d'impression A1 vide", vbCritical, "Pb !!!"
End If
End Sub

Merci de ton retour

 

[QUILES]

Bonjour Quiles et bienvenu sur XLD,
Peut être avec ceci :

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
    If Not Intersect(Target, [C9]) Is Nothing Then
        If Target = 0 Then Sheets("A imprimer").PrintOut
    End If
Fin:
End Sub

Dans la PJ il suffit de mettre un 0 en C9 pour imprimer automatiquement la feuille "A imprimer"

Bonjour et merci pour ta réponse

Mais je voudrais le contraire que quand la cellule de référence est égale à zero elle ne s'imprime pas.

Merci

 

[QUILES]

Bonjour @QUILES
Edit
Bonjour Sylvain

Je te propose ceci

Sub Impress()
If Worksheets("Feuil1").Range("A1") <> 0 Then 'Nom de la feuille et de la cellule à adapter
    Worksheets("Feuil1").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False      'Lance l'impression
Else
    MsgBox "Pas d'impression A1 vide", vbCritical, "Pb !!!"
End If
End Sub

Merci de ton retour

Merci, ça fonctionne.

Bonne journée

 

[sylvanu]

Re,

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
    If Not Intersect(Target, [C9]) Is Nothing Then
        If Target <> 0 Then Sheets("A imprimer").PrintOut
    End If
Fin:
End Sub

 

[job75]

Bonjour à tous,

@sylvanu perso j'écrirais plutôt :

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C9]) Is Nothing Then If [C9] <> 0 Then Sheets("A imprimer").PrintOut
End Sub

A+

 

[sylvanu]

Bonsoir Job,
Pourquoi ?
C'est moins lisible et moins structuré.
De plus, à chaque fois qu'il y a [C9] il y a lecture de la cible, alors qu'avec Target on ne lit qu'une fois.

 

[job75]

Bonsoir Job,
Pourquoi ?

Juste une question de logique : sélectionne par exemple la plage C8:C9 et entres-y la valeur 1.

Avec ton code il n'y a pas impression, avec le mien il y a impression.