Modifier automatiquement une zone d'impression

**graphikris** · 08/04/2013, 17h46

Bonjour,

Je dispose d'un tableau allant de A1 à G2000, dans lequel les données sont saisies journellement.
Je cherche le moyen de n'imprimer le tableau mais uniquement que jusqu'à la derniére ligne saisie tout en sachant qu'il y a des formules dans 5 colonnes.

Ex: aujourdhui, j'ai saisi jusqu'à la ligne 52 dont ne doit etre imprime le tableau de A1 à G52.

Demain, je continue mes saisies et je m'arrête à la ligne 73 donc l'impression devra aller de A1 à G73.

Cordialement,
______ Graphikris

**BenjGe** · 08/04/2013, 18h13

vous vous placez sur la dernière cellule saisie puis au clavier: CTRL+SHIFT+HOME
ensuite cliquer sur imprimer et dans la boîte de dialogue d'impression (ou dans l'onglet backstage) choisir imprimer uniquement la sélection)

**graphikris** · 08/04/2013, 18h27

Envoyé par Benjîle

vous vous placez sur la dernière cellule saisie puis au clavier: CTRL+SHIFT+HOME
ensuite cliquer sur imprimer et dans la boîte de dialogue d'impression (ou dans l'onglet backstage) choisir imprimer uniquement la sélection)

Bonsoir et merci pour l'info mais à quoi correspond la touche HOME, je dispose d'un mini clavier et je ne trouve pas cette touche.

J'aurais voulu adapté ceci en macro dans WORKBOOK BeforePrint mais je ne sais pas comment faire.

Cordialement

**BenjGe** · 08/04/2013, 19h30

c'est une touche à côté de Inser. Dessus est écrit Home ou alors il y a une flèche orienté vers le haut et la gauche.

Si vous ne trouvez pas je ferai une capture

pour créer une macro sur le sujet vos explications ne sont malheureusement pas suffisantes. Il faudrait au moins un exemple de classeur

**graphikris** · 08/04/2013, 20h24

Envoyé par Benjîle

c'est une touche à côté de Inser. Dessus est écrit Home ou alors il y a une flèche orienté vers le haut et la gauche.

Si vous ne trouvez pas je ferai une capture

pour créer une macro sur le sujet vos explications ne sont malheureusement pas suffisantes. Il faudrait au moins un exemple de classeur

Désolé mais mon clavier ne dispose pas de cette touche.
Ci joint un classeur allant jusqu'à la ligne 50 mais obliger excel a n'imprimer que de A1:G10
Et si je complete le tableau jusqu'à par exemple ligne 13 alors la macro imprimera de A1:G13

Cordialement

**vieuxmonsieur** · 09/04/2013, 09h25

Bonjour,
Dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Sh.Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Sh.Rows(DernLig + 1).Copy Sh.Range("A" & DernLig + 2)
Else
Sh.Rows(DernLig + 2).Delete
End If
End Sub

**Marc-L** · 09/04/2013, 11h37

Bonjour.

Juste pour la ligne n°4 : éviter d'indiquer en dur le n° de ligne de la dernière cellule car il varie selon la version d'Excel !

Exemple pour toute version :

DernLig = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row

Edit : correction, désolé !

**BenjGe** · 09/04/2013, 13h24

je vous propose cette macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Imprimezone()
[A1].CurrentRegion.PrintOut
 
End Sub

**graphikris** · 09/04/2013, 19h12

Envoyé par Marc-L

Bonjour.

Juste pour la ligne n°4 : éviter d'indiquer en dur le n° de ligne de la dernière cellule car il varie selon la version d'Excel !

Exemple pour toute version :

DernLig = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row

Edit : correction, désolé !

Merci pour la correction mais est ce vraiment dans Worbook avec SheetChange et non pas plutot avec BeforePrint ?

Cordialement

**graphikris** · 09/04/2013, 19h12

Envoyé par vieuxmonsieur

Bonjour,
Dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Sh.Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Sh.Rows(DernLig + 1).Copy Sh.Range("A" & DernLig + 2)
Else
Sh.Rows(DernLig + 2).Delete
End If
End Sub

est ce vraiment dans Worbook avec SheetChange et non pas plutot avec BeforePrint ?

**Marc-L** · 09/04/2013, 20h10

Effectivement, ce serait logique dans l'évènement BeforePrint et d'indiquer alors la zone d'impression …

Du coup j'ai du mal aussi avec le code proposé, mais laissons-le réagir …

Je n'étais intervenu juste à propos de l'adresse de la dernière cellule en dur, mais j'avais commis une "boulette", d'où mon Edit,
sans vraiment prêter attention au sujet ni aux réponses …

**vieuxmonsieur** · 09/04/2013, 23h47

Bonsoir,
Oui, le code proposé se met bien dans ThisWorkbook
en fait, il ajoute les lignes au fur et a mesure de la saisie dès qu'il n'y a plus 2 lignes vides.
Autrement, le code proposé par Benjîle répond à ta demande.

**graphikris** · 10/04/2013, 17h52

Bonjour et merci à tous ceux qui ont contribué à ma demande mais le problème, c'est que aucune ne marche.

En effet, etant donné que certaines colonnes possédent des formules, alors Excel considére qu'elles contiennent quelque chose et meme si aucune info n'est visible a l'ecran, excel m'imprime le tableau en entier soit de A1 : G2000

Cordialement

**patricktoulon** · 10/04/2013, 18h12

Bonjour
uniquement les cellules utilisées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
    .PageSetup.PrintArea = .UsedRange.Address
'addresse = .UsedRange.Address
End With
End Sub

tu dis je te cite

En effet, etant donné que certaines colonnes possédent des formules, alors Excel considére qu'elles contiennent quelque chose et meme si aucune info n'est visible a l'ecran, excel m'imprime le tableau en entier soit de A1 : G2000

moi je te repond que excel ne devine pas

Au plaisir

**graphikris** · 10/04/2013, 18h30

Bonjour Patrick,

Ok j'essaie demain au taf

Merci

**BenjGe** · 10/04/2013, 18h59

le problème est que dans votre fichier exemple il n'y a pas de formules contrairement au cas réel (je m'en doutais un peu). Vous nous avez donc lancé sur une mauvaise piste. Le code que je vous ai fourni marche sur l'exemple que vous avez donné.

La réponse de M. patricktoulon sera frappée du même problème que la mienne puisque la plage usedrange inclut les currentregion.

Pour en revenir à la première solution (sélection astucieuse avec le clavier) je n'ai jamais vu un clavier sans cette touche, mais sur les petits claviers elle est souvent doublée.
Cordialement

**Pierre Fauconnier** · 10/04/2013, 20h22

Salut.

Peut-être une solution sans macro, en fonction notamment de la configuration de la feuille.

En supposant les données commençant en A1 et sans rupture entre A1 et la dernière ligne utilisée en A, on pourrait modifier la référence de la plage nommée Zone_d_impression en utilisant DECALER.

Si la plage s'y prête, elle pourrait être convertie en liste (données>Listes>Créer...). On pourrait alors nommer la liste et la plage deviendrait dynamique sans avoir besoin de DECALER()

C'est évidemment un exemple à adapter.

Cela étant dit, vu ta configuration, tu aurais intérêt à utiliser la liste et à définir A:G comme zone d'impression, car je suppose que ton classeur est bien conçu et qu'il n'y a rien en dessous de la dernière ligne de saisie

. Si tu définis les colonnes entières A:G, Excel saura qu'il doit s'arrêter après la dernière ligne saisie.

**graphikris** · 11/04/2013, 18h09

Envoyé par Benjîle

vous vous placez sur la dernière cellule saisie puis au clavier: CTRL+SHIFT+HOME
ensuite cliquer sur imprimer et dans la boîte de dialogue d'impression (ou dans l'onglet backstage) choisir imprimer uniquement la sélection)

J'ai trouvé la touche HOME, elle s'appelle "DEBUT" sur mon clavier :LOGITECH K340 French.

**graphikris** · 11/04/2013, 18h16

Bonjour,

Je crois avoir trouvé une solution mais j'aurais besoin de votre aide car il faut (en Vba) que je sélectionne en colonne A, la derniére cellule non vide (ex: A15) et que de ce fait excel selectionne la cellule Q correspondante (donc Q15), Q étant la dernière colonne de mon tableau.

Cordialement,

**Marc-L** · 11/04/2013, 18h25

Bonjour.

Il y a déjà un peu plus haut le code pour la dernière cellule …

Pour la cellule en colonne Q, ajouter un .Offset(, 15) et le tour est joué !

Modifier automatiquement une zone d'impression [XL-2003]

Excel

Discussions similaires

Partager

Partager