Zone d'impression variable [RESOLU]

[jsl72]

Bonjour à tous,

Pour faire des restitutions sur papier de données je suis amené à définir une zone d'impression dans des fichiers.xls
Problématique:
Les fichiers.xls à traiter changent de taille d'une fois à l'autre et par voie de conséquence la zone d'impression aussi.

J'ai enregistré un code que voici.

Sub zone_impression()
Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A$12:$D$30"
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Cependant "$A$12:$D$30" pour un fichier peut devenir "$A$12:$D$45" pour un autre fichier.

J'ai essayé --> ActiveSheet.PageSetup.PrintArea = ""

Cela me sélectionne toutes les données de la feuille active, ce n'est pas le but.

Merci à qui prendra un peu de son temps pour m'aider.

En pièce jointe, type de fichier d'où je fais des restitutions.

Bonne soirée.

Joël

 

[fenec]

Re : Zone d'impression

Bonsoir jsl72

Une idée avec un code que m'a soumis un xld

Bonne soirée

 

[jsl72]

Re : Zone d'impression variable

Bonjour fenec,

Merci pour ton aide.

Cependant ma problématique reste entière.

Problématique:
Les fichiers.xls à traiter changent de taille d'une fois à l'autre et par voie de conséquence la zone d'impression aussi.

Cordialement.

Joël

 

[BOISGONTIER]

Re : Zone d'impression variable

Bonjour,

Champ dynamique sans VBA
Champ dynamique avec VBA

JB

 

[jsl72]

Re : Zone d'impression variable

Bonjour Jacques,

Tes liens sont très intéressants, j'y ai trouvé mon bonheur.

En utilisant le code suivant :

Sub ImpressionDynamique()
  ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
  ActiveWindow.SelectedSheets.PrintPreview
End Sub

Dans mon fichier j'ai été obligé, au préalable, comme me l'avait l'indiqué fenec dans sa réponse, de remplir les cellules vides entre A1 et A10 par des caractères de couleur blanche (invisible à l'impression).

Merci Jacques, merci Fenec
Grâce à votre aide, vos réponses conjuguées n'ont permis d'avancer d'un grand pas.
C'est super.

Bonne soirée.

 

[jsl72]

Re : Zone d'impression

Bonsoir fenec,

Ta solution n'était pas ma priorité au prime abord.
Pourtant elle a eu une importance capitale au moment d'utiliser le code de Jacques.

Sub ImpressionDynamique()
  ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
  ActiveWindow.SelectedSheets.PrintPreview
End Sub

Dans mon fichier j'ai été obligé, au préalable, de remplir les cellules vides entre A1 et A10 par des caractères de couleur blanche (invisible à l'impression).

Merci Jacques, merci Fenec
Grâce à votre aide, vos réponses conjuguées n'ont permis d'avancer d'un grand pas.
C'est super.

Bonne soirée.

 

[fenec]

Re : Zone d'impression variable

Bonsoir jsl72

Pour ne pas à avoir à écrire dans les cellules suffisait de changer la cellule de départ

.PrintArea = "A12:D" & DLigColD

par

.PrintArea = "A1:D" & DLigColD

j'ai aussi rajouter

Range("D30").Value = "xxx"
 Range("D30").Select

pour ne pas avoir besoin d'écrire en blanc dans la cellule "D30"

A+

 

[jsl72]

Re : Zone d'impression variable

Re

Trés bien, ça marche.
Merci encore

Bonne soirée.

 

[couverchel christophe]

CE post m'a été très utile pour déterminer ma plage variable du tableau pour impression, merci Boisgontier