Je dois intégrer à du code VBA existant une routine qui crée, pour chaque
feuille du classeur, une zone d'impression qui commence en A1 et se
termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à
l'avance combien de lignes et colonnes vont être renseignées dans les
feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY"
où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie : ActiveSheet.PageSetup.PrintArea = _ ActiveSheet.UsedRange.Address Cordialement. Daniel "JMD" a écrit dans le message de news:
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Merci !!!
Bonjour.
Essaie :
ActiveSheet.PageSetup.PrintArea = _
ActiveSheet.UsedRange.Address
Cordialement.
Daniel
"JMD" <pas@demail.fr> a écrit dans le message de news:
uPi9vEI9HHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque
feuille du classeur, une zone d'impression qui commence en A1 et se
termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas
à l'avance combien de lignes et colonnes vont être renseignées dans les
feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY"
où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Bonjour. Essaie : ActiveSheet.PageSetup.PrintArea = _ ActiveSheet.UsedRange.Address Cordialement. Daniel "JMD" a écrit dans le message de news:
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Merci !!!
JMD
Merci Daniel.
Je crains que ton idée ne puisse s'appliquer dans mon cas, car les cellules des feuilles ont des formats de bordures, même les vides.
Avec ta méthode, j'ai de nombreuses lignes vides sélectionnés, car elles sont "encadrées".
Désolé, mais merci encore pour cette idée.
"Daniel.C" a écrit dans le message de news:
Bonjour. Essaie : ActiveSheet.PageSetup.PrintArea = _ ActiveSheet.UsedRange.Address Cordialement. Daniel "JMD" a écrit dans le message de news:
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Merci !!!
Merci Daniel.
Je crains que ton idée ne puisse s'appliquer dans mon cas, car les cellules
des feuilles ont des formats de bordures, même les vides.
Avec ta méthode, j'ai de nombreuses lignes vides sélectionnés, car elles
sont "encadrées".
Désolé, mais merci encore pour cette idée.
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eHNljMI9HHA.1900@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
ActiveSheet.PageSetup.PrintArea = _
ActiveSheet.UsedRange.Address
Cordialement.
Daniel
"JMD" <pas@demail.fr> a écrit dans le message de news:
uPi9vEI9HHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque
feuille du classeur, une zone d'impression qui commence en A1 et se
termine... dans la dernière cellule non vide. Bien entendu, on ne sait
pas à l'avance combien de lignes et colonnes vont être renseignées dans
les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea =
"$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Je crains que ton idée ne puisse s'appliquer dans mon cas, car les cellules des feuilles ont des formats de bordures, même les vides.
Avec ta méthode, j'ai de nombreuses lignes vides sélectionnés, car elles sont "encadrées".
Désolé, mais merci encore pour cette idée.
"Daniel.C" a écrit dans le message de news:
Bonjour. Essaie : ActiveSheet.PageSetup.PrintArea = _ ActiveSheet.UsedRange.Address Cordialement. Daniel "JMD" a écrit dans le message de news:
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Merci !!!
isabelle
bonjour JMD,
Sub MaPlagePrint() ligDer = Cells.Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row colDer = Cells.Find("*", LookIn:=xlValues, _ SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ActiveSheet.PageSetup.PrintArea = Range("A1:" & Cells(ligDer, colDer).Address) End Sub
isabelle
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Merci !!!
bonjour JMD,
Sub MaPlagePrint()
ligDer = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
colDer = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ActiveSheet.PageSetup.PrintArea = Range("A1:" & Cells(ligDer, colDer).Address)
End Sub
isabelle
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque
feuille du classeur, une zone d'impression qui commence en A1 et se
termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à
l'avance combien de lignes et colonnes vont être renseignées dans les
feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY"
où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Sub MaPlagePrint() ligDer = Cells.Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row colDer = Cells.Find("*", LookIn:=xlValues, _ SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ActiveSheet.PageSetup.PrintArea = Range("A1:" & Cells(ligDer, colDer).Address) End Sub
isabelle
Bonjour.
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$ X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque
feuille du classeur, une zone d'impression qui commence en A1 et se
termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à
l'avance combien de lignes et colonnes vont être renseignées dans les
feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$ X$YY"
où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$ X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Merci !!!
Merci à vous !
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189523861.047106.57560@19g2000hsx.googlegroups.com...
Bonour,
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque
feuille du classeur, une zone d'impression qui commence en A1 et se
termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas
à
l'avance combien de lignes et colonnes vont être renseignées dans les
feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY"
où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?
Je dois intégrer à du code VBA existant une routine qui crée, pour chaque feuille du classeur, une zone d'impression qui commence en A1 et se termine... dans la dernière cellule non vide. Bien entendu, on ne sait pas à l'avance combien de lignes et colonnes vont être renseignées dans les feuilles.
Je cherche donc à faire un ActiveSheet.PageSetup.PrintArea = "$A$1:$X$YY" où $X$YY serait la dernière cellule non vide.
Je rame un peu (beaucoup). Puis-je solliciter votre aide ?