imprimer toute feuille d un classeur si V54 > 0

[mos98]

voila je cherche a faire une macro qui m'imprimerai toutes les feuilles dont la cellule v54 serai superieur a 0 mais sans imprimer la feuille des entrees [file name=FACTUR_20060409223802.zip size=38878]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FACTUR_20060409223802.zip[/file]

MErci a Toussss

 

[Robert]

Bonsoir Mos, bonsoir le forum,

Ce code pourrait convenir :

Sub Macro1()
Dim sh As Worksheet

For Each sh In Sheets
If sh.Name DIFFÉRENT_DE 'entrées' Or sh.Name DIFFÉRENT_DE 'indexmois' Then
If sh.Range('V54') > 0 Then sh.PrintOut Copies:=1, Collate:=True
End If
Next sh

End Sub

Remplace DIFFÉRENT_DE par les deux symboles consécutifs Inférieur, Suppérieur qui ne passent pas dans ce forum....

 

[mos98]

merci beaucoup le code marche nikel...

seulement j arrive pas a l inclure ds l userform que j'ai modifier pour mon truc..j ai rajoute un bouton ds l userform mais j arrive pas a lui dire que quand je clic sur se bouton il m execute la macro..commen j peux faire ? [file name=FACTU.zip size=44376]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FACTU.zip[/file]


deuxieme probleme j aimerais imprimer les facture suivant un ordre de numero de facture...j ai mis une case ds la feuille d entree numero de facture et j aimerai que apres il mettend ds la liste un ordre qui sui se numero sans compter les lignes qui ne contienne aucune donnees ds la colonne total..

encore merci a touss