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
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
Marsh Posté le 26-05-2014 à 07:55:43
merci ca marche nickel !
Make sure you enter the(*)required information where indicate.HTML code is not allowed
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