re impression conditionnelle

phil69

XLDnaute Occasionnel
re bonsoir a toutes et tous

suite a ma question imprission conditionnelle suite au contenu d'une cellule la macro suivante fonctionne tres bien
If [a1] = 1 Then ActiveWindow.SelectedSheets.PrintOut Copies:= 1, Collate:=True Else MsgBox ("Rien à imprimer")
End Sub
mais maintenant je devien gourmand car je voudrai le conditionnel sur le contenu de 2 cellules exp : si a1>0 et si b3>0 alors impression sinon message

merci et bonne soirée

Phil69
 

Spitnolan08

XLDnaute Barbatruc
Re : re impression conditionnelle

Bonjour,

Tu aurais du rester sur le même fil... puisque c'est sa suite...


Code:
 If Range("A1") >0 and Range("B3")>0 Then ActiveWindow.SelectedSheets.PrintOut Copies:= 1, Collate:=True Else MsgBox ("Rien à imprimer")
Cordialement
 

Statistiques des forums

Discussions
312 097
Messages
2 085 261
Membres
102 844
dernier inscrit
atori2