Définir zone imprssion vba

Fermé

benama34 - 27 oct. 2007 à 15:57
Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 - 27 oct. 2007 à 20:32

Bonjour,
Bonjour,

petit pb d'impression

grace a cette fonction je défint ma plage de cellule à imprimer
j = 1
Do
Cells(j, 1).Select
j = j + 1
Loop While Cells(j, 1) <> ""
j = j - 1
Range(Cells(1, 1), Cells(j, 3)).Select

'puis je défint la mise en page

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(j, 3))

biensur ca ne marche pas au niveau de print area. quelqu'un peut il m'aider
thanks

A voir également:

Activesheet.pagesetup.printarea
Zone telechargement - Guide
Définir google comme page d'accueil - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Appel data zone franche - Forum Consommation & Internet
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 59
27 oct. 2007 à 20:32

Bonjour benama34,

Corriges ton code comme suit :

j = 1 
Do 
Cells(j, 1).Select 
j = j + 1 
Loop While Cells(j, 1) <> "" 
j = j - 1 
Range(Cells(1, 1), Cells(j, 3)).Select 
ActiveSheet.PageSetup.PrintArea = Selection.Address

ou plus simplement :

j = 1 
Do 
Cells(j, 1).Select 
j = j + 1 
Loop While Cells(j, 1) <> "" 
j = j - 1 
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(j, 3)).Address

Ou encore plus simple :

j=Range("A65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(j, 3)).Address

A toi de choisir !

Cordialement.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Vidéo : comment changer sa zone géographique ?

VBA : Range avec références variables..

Qu'es-ce que SUR Android

VBA erreur 1004

Discussions similaires

Newsletters