zone impression

[Nicolas 65]

Bonjour,

Je recherche une solution pour définir une zone d'impression dans une macro. Je voudrais pouvoir imprimer de la ligne 1 à la dernière ligne contenant une valeur (colonne B) .

Quelqu'un auraiit-il une solution?

Grand Merci d'avance

 

[stany]

Salut,
essaies ça:

Exemple pour une zone de B2 à Z56
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Cells(2, 2).Address & ":" & ActiveSheet.Cells(56 , 26).Address

Pour imprimer la colonne B entière.
ActiveSheet.PageSetup.PrintArea ="B:B"

@+

 

[nicolas 65]

Merci je vais tester ce soir si c'est ce que je souhaitais

 

[Lo]

hello!

si ton numéro de dernière ligne n'est pas toujours le même dans ta colonne B, essaies ceci :

Range("B65536").End(xlUp).Select
dernièreligne = ActiveCell.Row

ActiveSheet.PageSetup.PrintArea = "$1:$" & dernièreligne

 

[Nicolas 65]

Bonsoir Lo,

Merci c'est ce que je voulais mais est-il possible de faire la même chose jusqu'à la colonne J uniquement

Merci

 

[Nicolas 65]

Bonsoir,
Au lieu de définir une zone d'impression peut on faire un tri?
Je souhaiterais trier par ordre croissant la colonne H comme premier critère et la colonne A pour deuxième critère
Merci