impression conditionnelle

[phil69]

bonjours a toutes et tous

je cherche une macro pour une impression conditionnelle

ex: imprimer un tableau que si une cellule (x) est a 1 et si cette cellule est vide ("") message "impossible d'imprimer"

merci a tous

phil 69

 

[ballmaster]

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.

 

[Staple1600]

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

 

[phil69]

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