impression conditionnelle

Re : impression conditionnelle

bonjour,

une macro du type :
Sub Macro1()

If [a1] = 1 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Else MsgBox ("Rien à imprimer")

End Sub

Après soit tu lances la macro manuellement, sinon tu peux appeler une macro évènementielle lors de la fermeture du classeur par exemple.

Re : impression conditionnelle

Bonjour

Tu peux aussi mettre ta macro
dans ThisWorkBook

(pas dans un module sandard

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'ici ta macro
'car je n'ai pas pu tester les lignes ci-dessous (pas d'imprimante)
If IsEmpty(ActiveSheet.[A1]) Then
Exit sub
Else
If ActiveSheet.[A1]=1 Then ActiveSheet.PrintOut
End If
End sub

End Sub

Re : impression conditionnelle

merci à vous 2 , la macro de Ballmaster a marche du premier coup,mais j'essairai celle de Staple 1600 plus tard


Bonne soirée à toutes et tous