Impression sélective dans un classeur
Bonjour,
Sur un classeur de 70 feuilles identiques avec des libellés différents, la première information concerne la cellule A9 de chaque feuille (c’est une date que je renseigne).
Il se peut que des feuilles ne soient pas renseignées car aucune opération.
Donc, en fin d’exercice, j’aimerai pouvoir imprimer toutes les feuilles du classeur qui comprennent un renseignement dans la cellule A9.
Bien entendu, je suis obligé d’avoir toutes les feuilles au départ de l’exercice d’autant que j’ai plusieurs utilisateurs qui peuvent avoir besoin de ces rubriques.
Avez-vous une solution à cette demande ?
J’ai cherché sur le Net sans trouver de solution ….. je fais appelle à vos connaissances
Merci par avance
Cordialement
Bonjour
Facile à dire, plus dur à faire compte tenu des inconnues.
Juste quelques lignes en Macro XL4 touches de raccourci Ctrl + i que je suis certain que les fans de VBA vont traduire pour le plaisir (quoique, pas très utile)
Feuille Macro
A1 ImprimerSi
A2=ECRAN(FAUX)
A3=LIRE.CLASSEUR(4;"SelectOnglets.xls") "Nom du classeur ?"
A4=SEL.CLASSEUR("Feuil1") "Nom de la première feuille du classeur ?"
A5=POUR("Compteur1";1;DEREF($A$3);1)
A6=SELECTIONNER("L9C1")
A7=SI(NON(ESTVIDE(CELLULE.ACTIVE()));ATTEINDRE($B$8);) "Vide? ou autre chose?"
A8=MASQUER.CLASSEUR()
A9=SUIVANT()
A10=ALERTE("Voulez-vous lancer l'impression?";1;)
A11=SI(DEREF($A$10)=VRAI;;ATTEINDRE($A$12))
A12:Paramétres d'impressions? à définir pour les inclures
A13=RETOUR()
et
B8=ACTIVER.SUIV("SelectOnglets.xls")
B9=ATTEINDRE($A$9)
Cette mini macro masque toutes les feuilles dans laquelle la cellule A9 est vide et peut lancer l'impression.
Sur le classeur joint (Feuille Macro Masquée) Ctrl+i lance la Macro et masque les 3 feuilles où A9 est vide.
Cordialement,
Amadéus
Amadéus a écrit :Bonjour
Facile à dire, plus dur à faire compte tenu des inconnues.
Juste quelques lignes en Macro XL4 touches de raccourci Ctrl + i que je suis certain que les fans de VBA vont traduire pour le plaisir (quoique, pas très utile)
Feuille Macro
A1 ImprimerSi
A2=ECRAN(FAUX)
A3=LIRE.CLASSEUR(4;"SelectOnglets.xls") "Nom du classeur ?"
A4=SEL.CLASSEUR("Feuil1") "Nom de la première feuille du classeur ?"
A5=POUR("Compteur1";1;DEREF($A$3);1)
A6=SELECTIONNER("L9C1")
A7=SI(NON(ESTVIDE(CELLULE.ACTIVE()));ATTEINDRE($B$8);) "Vide? ou autre chose?"
A8=MASQUER.CLASSEUR()
A9=SUIVANT()
A10=ALERTE("Voulez-vous lancer l'impression?";1;)
A11=SI(DEREF($A$10)=VRAI;;ATTEINDRE($A$12))
A12:Paramétres d'impressions? à définir pour les inclures
A13=RETOUR()
et
B8=ACTIVER.SUIV("SelectOnglets.xls")
B9=ATTEINDRE($A$9)
Cette mini macro masque toutes les feuilles dans laquelle la cellule A9 est vide et peut lancer l'impression.
Sur le classeur joint (Feuille Macro Masquée) Ctrl+i lance la Macro et masque les 3 feuilles où A9 est vide.
Cordialement,
Amadéus
Bonsoir,
Cette macro est type top pour mon besoin.
Je viens de découvrir ce site sur lequel j'ai posé 3 questions .... et 3
réponses dans la foulée.
Merci beaucoup
Cordialement