stephane.79
XLDnaute Nouveau
Bonjour à tous,
J'ai un bug sur 2 codes VBA pourtant simple.
Le 1er ci-dessous fonction lorsqu'il est sur une seule feuille. Dès qu'il se trouve sur plusieurs feuilles, il ne fonctionne pas ? Avez-vous une idée :
Range("A1048576").End(xlUp).End(xlToRight).Select
Range(Selection, Range("A1")).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
Range("A1").Select
De plus, je n'arrive pas à trouver la syntaxe pour réaliser 2 " .End(xlToRight).Select " sur la commande ci-dessous :
Range("A1048576").End(xlUp).End(xlToRight).End(xlToRight).Select => ceci ne fonctionne pas
Il s'agit peut-être d'un problème de priorité, de parenthèses ?
Un grand merci pour votre aide
Stephane.79
J'ai un bug sur 2 codes VBA pourtant simple.
Le 1er ci-dessous fonction lorsqu'il est sur une seule feuille. Dès qu'il se trouve sur plusieurs feuilles, il ne fonctionne pas ? Avez-vous une idée :
Range("A1048576").End(xlUp).End(xlToRight).Select
Range(Selection, Range("A1")).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
Range("A1").Select
De plus, je n'arrive pas à trouver la syntaxe pour réaliser 2 " .End(xlToRight).Select " sur la commande ci-dessous :
Range("A1048576").End(xlUp).End(xlToRight).End(xlToRight).Select => ceci ne fonctionne pas
Il s'agit peut-être d'un problème de priorité, de parenthèses ?
Un grand merci pour votre aide
Stephane.79