Recuperer la zone d'impression sur Excel
Résolu
icion
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
PierreR Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
PierreR Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille en Visual Basic sur Excel et je voudrais savoir comment récupérer les "coordonnées" de la zone d'impression créée automatiquement par Excel (après "Aperçu avant impression" par exemple).
Je m'explique : en fait j'ai une liste de matériel avec des prix et je voudrais écrire un sous-total à la fin de chaque page qui sera imprimée.
J'ai trouvé comment définir la zone d'impression :
ActiveSheet.PageSetup.PrintArea = "a1:b2"
par exemple, mais PrintArea n'a pas de propriété .Address, et je voudrais savoir comment récupérer la zone d'impression, car même si je l'impose, si ça ne rentre pas dans la zone qui sera véritablement imprimée, ça ne servira à rien.
Merci d'avance pour votre aide.
Je travaille en Visual Basic sur Excel et je voudrais savoir comment récupérer les "coordonnées" de la zone d'impression créée automatiquement par Excel (après "Aperçu avant impression" par exemple).
Je m'explique : en fait j'ai une liste de matériel avec des prix et je voudrais écrire un sous-total à la fin de chaque page qui sera imprimée.
J'ai trouvé comment définir la zone d'impression :
ActiveSheet.PageSetup.PrintArea = "a1:b2"
par exemple, mais PrintArea n'a pas de propriété .Address, et je voudrais savoir comment récupérer la zone d'impression, car même si je l'impose, si ça ne rentre pas dans la zone qui sera véritablement imprimée, ça ne servira à rien.
Merci d'avance pour votre aide.
A voir également:
- Recuperer la zone d'impression sur Excel
- Spouleur d'impression - Guide
- Alternative zone telechargement - Accueil - Outils
- Liste déroulante excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
17 réponses
bonjour
Si tu veux imprimer un sous-total, il faut le mettre sur ta feuille car tu n'auras pas la possibilité de l'envoyer à l'imprimante entre 2 pages et ce n'est pas en connaissant la plage à imprimer que tu vas pouvoir déterminer la fin d'une page papier.
Si tu veux imprimer un sous-total, il faut le mettre sur ta feuille car tu n'auras pas la possibilité de l'envoyer à l'imprimante entre 2 pages et ce n'est pas en connaissant la plage à imprimer que tu vas pouvoir déterminer la fin d'une page papier.
Justement, je voudrais éviter d'avoir à le faire à la main. Il n'y a pas moyen qu'une instruction dans une macro place le somme au bon endroit ?
Du style : je récupère l'adresse ("Z52" au pif) de la cellule inférieure droite au bord de la zone à imprimer et la macro place "=sum(blabla)" juste au dessus/dans la cellule ?
Du style : je récupère l'adresse ("Z52" au pif) de la cellule inférieure droite au bord de la zone à imprimer et la macro place "=sum(blabla)" juste au dessus/dans la cellule ?
bonjour
Bien sûr c'est réalisable, mais si tu trouves l'algorithme qui calcule le bas de chaque page imprimée en tenant compte de tous les paramètres de mise en page cela pourrait intéresser quelques lecteurs...
Bien sûr c'est réalisable, mais si tu trouves l'algorithme qui calcule le bas de chaque page imprimée en tenant compte de tous les paramètres de mise en page cela pourrait intéresser quelques lecteurs...
Il n'y a pas de fonction qui le fasse déjà ?
Justement ce serait l'algorithme que je cherche, mais je ne vois pas comment faire. Sauf si quelqu'un sait comment récuperer les coordonnées des limites de la zone d'impression...
Sinon je pensais faire autrement : en récupérant le numéro de page de la cellule. Il me semble qu'il y a la methode/attribut qui existe déja mais je ne le trouve pas. Quelqu'un sait ?
Justement ce serait l'algorithme que je cherche, mais je ne vois pas comment faire. Sauf si quelqu'un sait comment récuperer les coordonnées des limites de la zone d'impression...
Sinon je pensais faire autrement : en récupérant le numéro de page de la cellule. Il me semble qu'il y a la methode/attribut qui existe déja mais je ne le trouve pas. Quelqu'un sait ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
réponse à ta 1ère question,
Pour connaître la zone d'impression suffit de renverser la fonction...
Mais s'il y a plusieurs pages j'ai pas trouvé les limitations des pages.
A+
réponse à ta 1ère question,
Pour connaître la zone d'impression suffit de renverser la fonction...
LaPlage = ActiveSheet.PageSetup.PrintArea
Mais s'il y a plusieurs pages j'ai pas trouvé les limitations des pages.
A+
Merci mais perso ça ne marche pas. :s
C'est quoi comme type la variable "LaPlage" ? J'ai essayé avec Range et il n'en veut pas.
LaPlage.Address = ActiveSheet.PageSetup.PrintArea ne marche pas non plus.
Avec un type string ça n'affiche rien.
C'est quoi comme type la variable "LaPlage" ? J'ai essayé avec Range et il n'en veut pas.
LaPlage.Address = ActiveSheet.PageSetup.PrintArea ne marche pas non plus.
Avec un type string ça n'affiche rien.
C'est bizarre, moi il y a LaPlage = "" quand je fais la macro en mode pas à pas et que je me met au dessus de LaPlage (LaPlage n'étant pas déclarée, sans "Option Explicit").
C'est quoi comme type ?
C'est quoi comme type ?
C'est du type String, mais il faut que la plage d'impression soit déjà définie !!!
Sinon, comment renvoyer une plage qui n'existe pas encore.
Sinon, comment renvoyer une plage qui n'existe pas encore.
Ok, ça fonctionne si on définit une plage avant :
ActiveSheet.PageSetup.PrintArea = "a1:b6"
LaPlage = ActiveSheet.PageSetup.PrintArea
Mais où est l'interet de récuperer l'adresse si je l'ai déja entrée ? :p
La plage d'impression semble être définie quand on clique sur "Apercu avant impression" mais là macro ne fonctionne plus avec (LaPlage renvoie ""), et c'est avec cela que je voudrais que ça fonctionne :s
ActiveSheet.PageSetup.PrintArea = "a1:b6"
LaPlage = ActiveSheet.PageSetup.PrintArea
Mais où est l'interet de récuperer l'adresse si je l'ai déja entrée ? :p
La plage d'impression semble être définie quand on clique sur "Apercu avant impression" mais là macro ne fonctionne plus avec (LaPlage renvoie ""), et c'est avec cela que je voudrais que ça fonctionne :s
Bon, faudrait savoir ce que tu veux et voir ce que tu dit...!!!
Je travaille en Visual Basic sur Excel et je voudrais savoir comment récupérer les "coordonnées" de la zone d'impression créée automatiquement par Excel (après "Aperçu avant impression" par exemple).
Je travaille en Visual Basic sur Excel et je voudrais savoir comment récupérer les "coordonnées" de la zone d'impression créée automatiquement par Excel (après "Aperçu avant impression" par exemple).
Oui, je ne vois pas de contradiction avec ce que j'ai dit...
Si je fais "aperçu avant impression" et la macro :
LaPlage = ActiveSheet.PageSetup.PrintArea
LaPlage ne renvoie rien. Et c'est uniquement la zone créée par "aperçu avant impression" que je veux récuperer. (or ça ne fonctionne pas (et je ne vois pas l'intérêt de récupérer une adresse qu'on vient de taper...))
Si je fais "aperçu avant impression" et la macro :
LaPlage = ActiveSheet.PageSetup.PrintArea
LaPlage ne renvoie rien. Et c'est uniquement la zone créée par "aperçu avant impression" que je veux récuperer. (or ça ne fonctionne pas (et je ne vois pas l'intérêt de récupérer une adresse qu'on vient de taper...))
Ca fonctionne effectivement pas avec print previous, mais avec la commande plage>> définir ça fonctionne.
Désolé, je vois pas d'autre solution pour le moment.
Désolé, je vois pas d'autre solution pour le moment.
Oui, ça m'énerve que les développeurs d'Excel n'aient pas prévu ça :(
Tant pis, on remplira à la main je crois...
Merci quand même pour tes réponses.
Tant pis, on remplira à la main je crois...
Merci quand même pour tes réponses.
J'ai trouvé sur un site une fonction qui renvoie le numéro de la page sur lequel se trouve la cellule.
Cela suffit à regler mon probleme. Je vous en fait donc profiter :D
------------------------
Cette fonction (adaptation de Frédéric Sigonneau) renvoie le
numéro de la page de la cellule où elle est appelée :
Function NumPage() As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet, Cellule As Range
Dim Col As Integer, Ligne As Long
Application.Volatile
Set Cellule = Application.Caller
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Ensuite, en A25 par exemple :
=NumPage()
------------------------
C'est une fonction très lourde (elle met plus de 2 min pour une 100aine de ligne (je ne l'ai testée que pour une 10aine de lignes) et certains disent qu'elle ne fonctionne pas.
Sinon j'ai aussi beaucoup plus simple, mais qui renvoie le nombre total de page (donc il faut un classeur vide et faire en macro une boucle avec ajout de ligne et cette fonction pour avoir la page de la cellule active).
ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
(il faut +1 sinon il manque 1... je ne sais pas pourquoi ^^)
exemple : macro qui écrit le numéro de page dans la colonne A sur 200 lignes
Sub Page()
Dim i As Integer
For i = 1 To 200
Cells(i, 1) = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
Next i
End Sub
Voila j'espère aider un maximum de personnes (en plus de moi).
Bonne fin de journée !! :)
Cela suffit à regler mon probleme. Je vous en fait donc profiter :D
------------------------
Cette fonction (adaptation de Frédéric Sigonneau) renvoie le
numéro de la page de la cellule où elle est appelée :
Function NumPage() As Integer
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Wksht As Worksheet, Cellule As Range
Dim Col As Integer, Ligne As Long
Application.Volatile
Set Cellule = Application.Caller
Set Wksht = Cellule.Worksheet
Ligne = Cellule.Row
Col = Cellule.Column
If Wksht.PageSetup.Order = xlDownThenOver Then
HPC = Wksht.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Wksht.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In Wksht.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In Wksht.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumPage = NumPage + VPC
Next HPB
End Function
Ensuite, en A25 par exemple :
=NumPage()
------------------------
C'est une fonction très lourde (elle met plus de 2 min pour une 100aine de ligne (je ne l'ai testée que pour une 10aine de lignes) et certains disent qu'elle ne fonctionne pas.
Sinon j'ai aussi beaucoup plus simple, mais qui renvoie le nombre total de page (donc il faut un classeur vide et faire en macro une boucle avec ajout de ligne et cette fonction pour avoir la page de la cellule active).
ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
(il faut +1 sinon il manque 1... je ne sais pas pourquoi ^^)
exemple : macro qui écrit le numéro de page dans la colonne A sur 200 lignes
Sub Page()
Dim i As Integer
For i = 1 To 200
Cells(i, 1) = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
Next i
End Sub
Voila j'espère aider un maximum de personnes (en plus de moi).
Bonne fin de journée !! :)
bonjour icion,
Un grand merci à toi car tu as trouvé la question et la solution !
Merci d'en faire profiter tout le monde : c'est le but du forum.
Effectivement en utilisant les propriétés de la zone d'édition ce doit être faisable et il y a certainement moyen de simplifier cette fonction pour ton problème spécifique et je vais regarder cela si j'ai un peu de temps.
Un grand merci à toi car tu as trouvé la question et la solution !
Merci d'en faire profiter tout le monde : c'est le but du forum.
Effectivement en utilisant les propriétés de la zone d'édition ce doit être faisable et il y a certainement moyen de simplifier cette fonction pour ton problème spécifique et je vais regarder cela si j'ai un peu de temps.