Macro Excel Imprimer avec condition

Résolu/Fermé

Impression

boblebug - 11 févr. 2011 à 17:00
Troopers87 Messages postés 8 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 27 octobre 2013 - 18 sept. 2012 à 16:09

Bonjour,
Je souhaiterais créer une macro excel pour imprimer avec condition.

Par exemple, pour simplifier, imaginons que sur une feuille de calcul j'ai défini une zone d'impression correspondant à 10 pages.
Je souhaite que l'utilisateur saisisse dans la cellule A1 (hors zone d'impression) le nombre de pages souhaitées puis clique sur un bouton "Imprimer". S'il a saisi 5, Excel lance l'impression des pages 1 à 5.

Ce genre de commandes est-il possible?

Concrètement, je dispose d'un fichier excel de gestion de personnes. Le fichier gère jusqu'à 40 personnes. J'ai besoin d'une page où imprimer un document par personne. Mais si je n'en ai que 10 à gérer, je souhaite qu'Excel ne m'imprime que 10 pages.

Merci d'avance.

A voir également:

Macro pour imprimer une feuille excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Feuille de score belote excel - Forum Excel
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Comment imprimer un tableau excel sur une seule page - Guide

3 réponses

Réponse 1 / 3

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
11 févr. 2011 à 21:18

Re,

exemple avant l'impression on masque la ligne 8 on imprime suivant la zone défini en A1 et on affiche la ligne 8

Sub Impression_factures()
[A8].EntireRow.Hidden = True
If [A1] = 1 Then [A10:A20].PrintOut
If [A1] = 2 Then [B10:B20].PrintOut
If [A1] = 3 Then [C10:C20].PrintOut
[A8].EntireRow.Hidden = False
End Sub

boblebug
11 févr. 2011 à 21:20

c pile ce que je voulais. merci!

troopers87
17 sept. 2012 à 11:46

Salut Mike-31,

ta macro est magique, mais elle le serait d'autant plus si elle acceptait du texte.

If [A1] = TEST Then [A10:A20].PrintOut

ne fonctionne malheureusement pas. Y'a-t-il une parade ?

Réponse 2 / 3

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
11 févr. 2011 à 18:04

Salut,

en vba presque tout est possible exemple pour commander l'impression de la Feuil1 depuis la Feuil3 il suffit de saisir Feuil3 cellule A1 le nombre de copie ex. 3

code à insérer dans le code

Sheets("Feuil1").PrintOut copies:=[A1]

boblebug
11 févr. 2011 à 20:58

Ca s'approche de ce que je voudrais...
Exemple plus clair que celui de tout à l'heure:
J'ai des données de A10 à A20, de B10 à B20, de C10 à C20,...
Une colonne = une largeur de feuille d'impression (je veux dire par là qu'on peut pas imprimer colonne A et B sur une même page, ça sort forcément en 2 pages).

On demande à l'utilisateur de saisir une valeur dans la cellule A1 puis de cliquer sur le bouton imprimer.
Si l'utilisateur a saisi 1, ça imprime la colonne A.
Si l'utilisateur a saisi 2, ça imprime les colonnes A et B.
Si l'utilisateur a saisi 3, ça imprime les colonnes A, B et C.
etc...

Ca doit être plus clair comme ça...
J'imagine que ça aussi c'est faisable...

Autre chose: si je veux qu'une ligne n'apparaisse pas à l'impression sans la supprimer, tu me confirme que si ma macro masque la ligne avant de lancer l'impression la ligne n'apparaîtra pas?

Ah! Vive le vba... :)

Discussions similaires

Canon MG 5150: problème d'impression

microsoft word ne répond pas

CANON MP800R n'imprime plus le texte noir

Imprimer pdf Protégé

Aperçu avant impression dans MS word 2010

DOCUMENT WORD DIFFERENT APERCU ET IMPRESSION