Discussion :

[lenul78570]

Bonjour et merci de votre aide !

je suis sous excel 2007.

Sur une feuille de calcul j'ai un "bouton" qui avec "1 click" doit engendrer l'impression d'une "partie" d'une autre feuille située dans le même classeur.
Je sais créer le "bouton", je sais comment lui affecter la macro.
Ce que je n'arrive pas à écrire...C'est la macro !
Données de départ :
La zone d'impression à pour point de départ A62: BZ62, le nombre de lignes, après 62, est "variable".
Je veux écrire une macro qui détermine la zone d'impression de A62 à BZ xxx, en faisant un contrôle sur les cellules BZ qui contiennent du "texte" et quand cette zone est établie, lance l'impression de celle-ci.
Qui peut m'écrire cette macro ?

[PPz78]

L'instruction pour définir une zone d'impression est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "$A$1:$J$56"

Il te reste à adapter le range ("$A$1:$J$56") à tes besoins

[lenul78570]

Bonsoir PPz78,
Merci de ton intéret pour ma question.
Mais ta réponse ne m'aide pas ....
je sais que l'instruction pour définir une zone d'impresion est :
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$56"
Si tu reprends les données de mon probleme, avant de pouvoir écrire cette instruction, ma macro doit faire une recherche pour déterminer la zone d'impression.
Dans ton exemple la zone d'impression sera toujours A1:J56.

Or ma feuille de calcul peut contenir un nombre variable de lignes.

Ma macro doit donc chercher, à partir de ligne 62, la derniere cellule BZ contenant du texte (exemple BZ156), quand elle l'a trouvée elle doit determiner comme zone d'imprssion : $A62:$BZ$156
Ensuite elle doit lancer l'impression de la zone ($A62:$BZ$156), puis annuler cette zone.
J'ai essayé avec la procédure For...Next, mais je n'arrive pas à maitriser l'écriture des variables
Si tu sais comment faire, merci de m'ecrire le texte de la macro ...
A+
Lenul

[Godzestla]

Bonjour,

pour déterminer la denière cellulle utilisée de la colonne BZ puis marquer la zone d'impression en fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    lrow = Activesheet.Range("BZ65535").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$A$62:$BZ$" & lrow

NB : pas testé !!

[lenul78570]

Bonjour Godzestla,
Merci de ton aide, vu le peut de réponses je craignais une erreur de présentation de mon sujet.
Bon, depuis hier soir je me suis creusé un peu la tête, enfin ce qu'il en reste !
Jai trouvé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("a62").CurrentRegion.Address

(je ne sais pas comment faire apparaitre, ici, mon code de la même façon que Toi... )

Et merveille ! ça "marche" !

[PPz78]

IL suffit de sélectionner le code puis de cliquer sur le caractère # qui se trouve juste au dessus de la zone de saisie du texte.