Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…