* Bonjour *,

J'ai lu cette discussion.

Je cherche a faire comme cela mais avec un document de 4 pages.

Ma macro se promène de page en page et elle imprime 1 copie de la page selon l'ordre que je lui ai écrit.
ex:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Sheets("Dépôt").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
Pour ma page Dépot, j'ai placé une condition pour que la calcul me retourne la valeur 0,00$ si mon calcul est a zéro.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 =SI((I20+I22)<0,1;"0,00$";(I20+I22))
Je cherche a ajouter une condition afin de ne pas faire imprimer ma feuille si le résultat du calcul de la cellule A21 est a zéro(par conséquent égal à 0,00$).

j'ai essayé avec ces lignes mais le résultat n'est pas très fiable car si le montant de mon calcul est de 0,01$ et plus je dois la faire imprimer. je n'arrive pas à écrire cette condition car dès que j’écris un nombre avec une virgule j'obtiens toujours un erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 If ActiveSheet.Range("i24").Value < 1 Then
       ActiveWindow.SelectedSheets.PrintOut Copies:=1
Merci pour votre aide