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

QUILES · Dimanche à 14:13

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.

Phil69970 · Dimanche à 14:28

Bonjour @QUILES
Edit
Bonjour Sylvain

Je te propose ceci

VB:

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

sylvanu · Dimanche à 14:23

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

VB:

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 · Dimanche à 14:28

Bonjour @QUILES
Edit
Bonjour Sylvain

Je te propose ceci

VB:

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 · Dimanche à 14:31

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

VB:

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 · Dimanche à 14:40

Phil69970 à dit:

Bonjour @QUILES
Edit
Bonjour Sylvain

Je te propose ceci

VB:

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 · Dimanche à 15:01

Re,

VB:

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 · Dimanche à 15:14

Bonjour à tous,

@sylvanu perso j'écrirais plutôt :

VB:

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 · Dimanche à 16:07

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 · Dimanche à 17:01

sylvanu à dit:
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.

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

QUILES

XLDnaute Nouveau

Phil69970

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

QUILES

XLDnaute Nouveau

QUILES

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency