Macro Excel Imprimer avec condition

Résolu
boblebug -  
Troopers87 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
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.

3 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
3
boblebug
 
c pile ce que je voulais. merci!
0
troopers87
 
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 ?
0