imprimer toute feuille d un classeur si V54 > 0

  • Initiateur de la discussion Initiateur de la discussion mos98
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mos98

XLDnaute Junior
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
 

Pièces jointes

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....
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour