Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

selection de plage

  • Initiateur de la discussion Initiateur de la discussion julien974
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

julien974

XLDnaute Occasionnel
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
PHP:
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
 
Re : selection de plage

Bonjour Julien,

essaye :

Code:
[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]
 
Re : selection de plage

Bonjour Julien

Essaie ceci:

Code:
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 !
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
509
Réponses
4
Affichages
522
Réponses
14
Affichages
484
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…