problème impression

problème impression - VB/VBA/VBS - Programmation

Marsh Posté le 23-05-2014 à 15:51:03    

bonjour,
je me suis lancé dans une formule pas simple pour moi ..
 
je veux faire la mise en page (avec l'icone définir) mais la sélection se trouve avec la formule suivante (donc aléatoire ) :
 
Columns("A:B" ).Find("*", [B1000], , , , xlPrevious).Select
Range("A1:B" & ActiveCell.Row).Select
 
je ne peux donc  pas faire :
ActiveSheet.PageSetup.PrintArea = "A1:B12"  
 
 
quelqu'un à la solution ?
 
merci d'avance

Reply

Marsh Posté le 23-05-2014 à 15:51:03   

Reply

Marsh Posté le 23-05-2014 à 22:52:09    

Essayer :

Columns("A:B" ).Find("*", [B1000], , , , xlPrevious).Select  
numero_activerow = ActiveCell.Row
Range("A1:B" & numero_activerow).Select  
ActiveSheet.PageSetup.PrintArea = "A1:B" & numero_activerow  

Reply

Marsh Posté le 26-05-2014 à 07:55:43    

merci ca marche nickel !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed