Ceci est un PETIT probl=E8me, mais si vous en avez la=20
solution ce serait le bienvenu.
Quand je cr=E9e un tableau d'une dizaine de colonnes (lettre=20
J par exemple), et quelques lignes (par ex 30), je demande=20
=E0 l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel s=E9lectionne inutilement +/- 4=20
ou 5 colonnes de plus vers la droite.
Ainsi, =E0 l'impression, mon tableau n'est pas centr=E9 et il=20
y a du blanc inutile =E0 droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas=20
de blanc ou de d=E9bordement d'un texte plus =E0 gauche, etc.).
Avez vous une explication?
Je m'en tire en pr=E9 s=E9lectionnant la partie que je veux=20
imprimer, mais ce n'est pas tr=E8s "=E9l=E9gant comme dit mon=20
patron.
Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
Merci d'avance
Ghislain .
Ghislain
Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux. Amicalement Ghislain
-----Message d'origine----- Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
Merci d'avance
Ghislain .
.
Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux.
Amicalement
Ghislain
-----Message d'origine-----
Bonjour, essaye cela
Sélectionne la zone que tu veux imprimer puis fichier
zone d'impression définir et voilà ta zone sera toujours
sélectionnée. A+
-----Message d'origine-----
Bonjour,
Ceci est un PETIT problème, mais si vous en avez la
solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes
(lettre
J par exemple), et quelques lignes (par ex 30), je
demande
à l'imprimer sur 1 seule page (Mise en page -> page ->
1).
Mais je constate qu'Excel sélectionne inutilement +/- 4
ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et
il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides
(pas
de blanc ou de débordement d'un texte plus à gauche,
etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux
imprimer, mais ce n'est pas très "élégant comme dit mon
patron.
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux. Amicalement Ghislain
-----Message d'origine----- Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
Merci d'avance
Ghislain .
.
Ricky [MVP]
Bonjour *Ghislain* (et tous les lecteurs) | Merci, | | Mais j'utilise ce "truc" (voir la fin de mon 1er message). | | Et j'essaie de trouver mieux. | Amicalement | Ghislain
Aperçu avant impression / Page / Marges / Centrer sur la page / Cocher Horizontalement et éventuellement Verticalement
Bonjour *Ghislain* (et tous les lecteurs)
| Merci,
|
| Mais j'utilise ce "truc" (voir la fin de mon 1er message).
|
| Et j'essaie de trouver mieux.
| Amicalement
| Ghislain
Aperçu avant impression / Page / Marges / Centrer sur la page / Cocher
Horizontalement et éventuellement Verticalement
Bonjour *Ghislain* (et tous les lecteurs) | Merci, | | Mais j'utilise ce "truc" (voir la fin de mon 1er message). | | Et j'essaie de trouver mieux. | Amicalement | Ghislain
Aperçu avant impression / Page / Marges / Centrer sur la page / Cocher Horizontalement et éventuellement Verticalement
Bonjour Ghislain, En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à appeler dans le beforeprint de la feuille :
Sub maplage_auto() ' MPFE le 01/01/2004 par Philippe Raulet 'sur la base fournie par Alain Vallon le 12/12/2003 Dim plaGfin As String 'l 'index de la dernière ligne renseignée : lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'l 'index de la dernière colonne renseignée : cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column plaGfin = Cells(lx, cx).Address MsgBox plaGfin 'Range("A1:" & Cells(lx, cx).Address).Select ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Ghislain" a écrit dans le message de news:00d501c3cf03$6b0ef620$ Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux. Amicalement Ghislain
-----Message d'origine----- Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
Merci d'avance
Ghislain .
.
Bonjour Ghislain,
En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à
appeler dans le beforeprint de la feuille :
Sub maplage_auto()
' MPFE le 01/01/2004 par Philippe Raulet
'sur la base fournie par Alain Vallon le 12/12/2003
Dim plaGfin As String
'l 'index de la dernière ligne renseignée :
lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'l 'index de la dernière colonne renseignée :
cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
plaGfin = Cells(lx, cx).Address
MsgBox plaGfin
'Range("A1:" & Cells(lx, cx).Address).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Ghislain" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:00d501c3cf03$6b0ef620$a401280a@phx.gbl...
Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux.
Amicalement
Ghislain
-----Message d'origine-----
Bonjour, essaye cela
Sélectionne la zone que tu veux imprimer puis fichier
zone d'impression définir et voilà ta zone sera toujours
sélectionnée. A+
-----Message d'origine-----
Bonjour,
Ceci est un PETIT problème, mais si vous en avez la
solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes
(lettre
J par exemple), et quelques lignes (par ex 30), je
demande
à l'imprimer sur 1 seule page (Mise en page -> page ->
1).
Mais je constate qu'Excel sélectionne inutilement +/- 4
ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et
il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides
(pas
de blanc ou de débordement d'un texte plus à gauche,
etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux
imprimer, mais ce n'est pas très "élégant comme dit mon
patron.
Bonjour Ghislain, En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à appeler dans le beforeprint de la feuille :
Sub maplage_auto() ' MPFE le 01/01/2004 par Philippe Raulet 'sur la base fournie par Alain Vallon le 12/12/2003 Dim plaGfin As String 'l 'index de la dernière ligne renseignée : lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'l 'index de la dernière colonne renseignée : cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column plaGfin = Cells(lx, cx).Address MsgBox plaGfin 'Range("A1:" & Cells(lx, cx).Address).Select ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Ghislain" a écrit dans le message de news:00d501c3cf03$6b0ef620$ Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux. Amicalement Ghislain
-----Message d'origine----- Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
Merci d'avance
Ghislain .
.
Philippe.R
Oups ! Petites corrections :
Bonjour Ghislain, En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à appeler dans le beforeprint DU CLASSEUR :
Sub maplage_auto() ' MPFE le 01/01/2004 par Philippe Raulet 'sur la base fournie par Alain Vallon le 12/12/2003 Dim plaGfin As String 'l 'index de la dernière ligne renseignée : lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'l 'index de la dernière colonne renseignée : cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column plaGfin = Cells(lx, cx).Address 'MsgBox plaGfin ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin End Sub
Oups !
Petites corrections :
Bonjour Ghislain,
En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à
appeler dans le beforeprint DU CLASSEUR :
Sub maplage_auto()
' MPFE le 01/01/2004 par Philippe Raulet
'sur la base fournie par Alain Vallon le 12/12/2003
Dim plaGfin As String
'l 'index de la dernière ligne renseignée :
lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'l 'index de la dernière colonne renseignée :
cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
plaGfin = Cells(lx, cx).Address
'MsgBox plaGfin
ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin
End Sub
Bonjour Ghislain, En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à appeler dans le beforeprint DU CLASSEUR :
Sub maplage_auto() ' MPFE le 01/01/2004 par Philippe Raulet 'sur la base fournie par Alain Vallon le 12/12/2003 Dim plaGfin As String 'l 'index de la dernière ligne renseignée : lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'l 'index de la dernière colonne renseignée : cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column plaGfin = Cells(lx, cx).Address 'MsgBox plaGfin ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin End Sub
Michel Gaboly
Bonjour,
Tu peux également essayer cette procédure de (Laurent Longre) pour qu'Excel mette à jour l'emplacement de la dernière cellule.
Sub MAJDerCellule() ActiveSheet.UsedRange End Sub
Il existe une variante à placer dans ThisWorkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ActiveSheet.UsedRange End Sub
ce qui permet d'automatiser la MAJ du UsedRange pour toutes les feuilles du classeur.
Bonjour Ghislain, En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à appeler dans le beforeprint de la feuille :
Sub maplage_auto() ' MPFE le 01/01/2004 par Philippe Raulet 'sur la base fournie par Alain Vallon le 12/12/2003 Dim plaGfin As String 'l 'index de la dernière ligne renseignée : lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'l 'index de la dernière colonne renseignée : cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column plaGfin = Cells(lx, cx).Address MsgBox plaGfin 'Range("A1:" & Cells(lx, cx).Address).Select ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Ghislain" a écrit dans le message de news:00d501c3cf03$6b0ef620$ Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux. Amicalement Ghislain
-----Message d'origine----- Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
Merci d'avance
Ghislain .
.
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Tu peux également essayer cette procédure de (Laurent Longre) pour qu'Excel
mette à jour l'emplacement de la dernière cellule.
Sub MAJDerCellule()
ActiveSheet.UsedRange
End Sub
Il existe une variante à placer dans ThisWorkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.UsedRange
End Sub
ce qui permet d'automatiser la MAJ du UsedRange pour toutes les feuilles du classeur.
Bonjour Ghislain,
En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à
appeler dans le beforeprint de la feuille :
Sub maplage_auto()
' MPFE le 01/01/2004 par Philippe Raulet
'sur la base fournie par Alain Vallon le 12/12/2003
Dim plaGfin As String
'l 'index de la dernière ligne renseignée :
lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'l 'index de la dernière colonne renseignée :
cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
plaGfin = Cells(lx, cx).Address
MsgBox plaGfin
'Range("A1:" & Cells(lx, cx).Address).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Ghislain" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:00d501c3cf03$6b0ef620$a401280a@phx.gbl...
Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux.
Amicalement
Ghislain
-----Message d'origine-----
Bonjour, essaye cela
Sélectionne la zone que tu veux imprimer puis fichier
zone d'impression définir et voilà ta zone sera toujours
sélectionnée. A+
-----Message d'origine-----
Bonjour,
Ceci est un PETIT problème, mais si vous en avez la
solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes
(lettre
J par exemple), et quelques lignes (par ex 30), je
demande
à l'imprimer sur 1 seule page (Mise en page -> page ->
1).
Mais je constate qu'Excel sélectionne inutilement +/- 4
ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et
il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides
(pas
de blanc ou de débordement d'un texte plus à gauche,
etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux
imprimer, mais ce n'est pas très "élégant comme dit mon
patron.
Tu peux également essayer cette procédure de (Laurent Longre) pour qu'Excel mette à jour l'emplacement de la dernière cellule.
Sub MAJDerCellule() ActiveSheet.UsedRange End Sub
Il existe une variante à placer dans ThisWorkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ActiveSheet.UsedRange End Sub
ce qui permet d'automatiser la MAJ du UsedRange pour toutes les feuilles du classeur.
Bonjour Ghislain, En espérant que ce sera assez élégant pour ton patron ; à coller dans un module, cette procédure à appeler dans le beforeprint de la feuille :
Sub maplage_auto() ' MPFE le 01/01/2004 par Philippe Raulet 'sur la base fournie par Alain Vallon le 12/12/2003 Dim plaGfin As String 'l 'index de la dernière ligne renseignée : lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'l 'index de la dernière colonne renseignée : cx = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column plaGfin = Cells(lx, cx).Address MsgBox plaGfin 'Range("A1:" & Cells(lx, cx).Address).Select ActiveSheet.PageSetup.PrintArea = "$A$1:" & plaGfin End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Ghislain" a écrit dans le message de news:00d501c3cf03$6b0ef620$ Merci,
Mais j'utilise ce "truc" (voir la fin de mon 1er message).
Et j'essaie de trouver mieux. Amicalement Ghislain
-----Message d'origine----- Bonjour, essaye cela Sélectionne la zone que tu veux imprimer puis fichier zone d'impression définir et voilà ta zone sera toujours sélectionnée. A+
-----Message d'origine----- Bonjour,
Ceci est un PETIT problème, mais si vous en avez la solution ce serait le bienvenu.
Quand je crée un tableau d'une dizaine de colonnes (lettre
J par exemple), et quelques lignes (par ex 30), je demande
à l'imprimer sur 1 seule page (Mise en page -> page -> 1).
Mais je constate qu'Excel sélectionne inutilement +/- 4 ou 5 colonnes de plus vers la droite.
Ainsi, à l'impression, mon tableau n'est pas centré et il
y a du blanc inutile à droite.
J'insiste bien: ces colonnes inutiles sont 100% vides (pas
de blanc ou de débordement d'un texte plus à gauche, etc.).
Avez vous une explication?
Je m'en tire en pré sélectionnant la partie que je veux imprimer, mais ce n'est pas très "élégant comme dit mon patron.
