selection de plage

[julien974]

Bonjour,

je souhaite selectionner une plage de cellules afin d'imprimer celle-ci.

J'arrive a selectionner une cellule en abscisse et une en ordonnée comme ceci

Sub IMPRIMIR2()

Sheets("HOJA DE IMPRECION").Select

Range("A65000").End(xlUp).Name = hihi

Range("Z1").End(xlLeft).Name = haha

End Sub

Par contre j n'arrive pas a selectionner l'intersection de ces deux cellules puis selectionner la plage entre A1 et cette même intersection.

Merci de votre aide,

Julien974

 

[tototiti2008]

Re : selection de plage

Bonjour Julien,

essaye :

[COLOR=#000000][COLOR=#0000bb][FONT=Courier New]Sub IMPRIMIR2[/FONT][/COLOR][FONT=Courier New][COLOR=#007700]() 

[/COLOR][COLOR=#0000bb]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"HOJA DE IMPRECION"[/COLOR][COLOR=#007700]).[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Select 

activesheet.range(cells(1,1),cells(activesheet.Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"A65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]xlUp[/COLOR][COLOR=#007700]).row,[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb] activesheet.Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"Z1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]xlToLeft[/COLOR][COLOR=#007700]).Column)).select[/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]

End Sub  [/FONT]
[/COLOR][/COLOR]

 

[SergiO]

Re : selection de plage

Bonjour Julien

Essaie ceci:

Sub IMPRIMIR2()
Sheets("HOJA DE IMPRECION").Select
hihi = Range("A65000").End(xlUp).Row
haha = Range("Z1").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(hihi, haha)).Address
End Sub

@+

Edit: Bonjour tototiti2008 !

 

[julien974]

Re : selection de plage

Merci,

Ca fonctionne tres bien.

Julie974