Macro pour definir une zone d impression

Résolu/Fermé

Impression

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024 - 23 oct. 2014 à 22:14
marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024 - 4 nov. 2014 à 19:17

bonjour

j ai un tableau de données de 16 colonnes et de x lignes.
les 12 premiers lignes sont des infos générales du tableau .les donnees commencent donc à partir de la ligne 13 jusquà x.

je souhaiterais par un bouton faire une mise en page ou j aurai au max 15 lignes de donnees sur une page ,si plus de 15 lignes impression sur une autre page etc.

si il y a impression d autres pages je souhaiterai que les lignes n°5 à 12 sont imprimes également en haut de chaque feuille.

es ce possible?

merci

Posez votre question

A voir également:

Excel vba imprimer zone d'impression
Spouleur d'impression - Guide
Zone telechargement - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Imprimer tableau excel sur une page - Guide

29 réponses

Réponse 1 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
23 oct. 2014 à 22:22

Bonjour,
Pourquoi ne pas utiliser directement l'outil [ZoneImpr] dans l'onglet [Mise en page].... !

Réponse 2 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
23 oct. 2014 à 22:48

bsr
pour eviter les manip et pour que ce fichier soit utiliser par plusieurs personnes

Réponse 3 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
23 oct. 2014 à 23:13

Bonjour,
Ce n'est pas une macro qui va éviter des manipulations par un autre utilisateur (que faite vous s'il modifie les colonnes .... ?).
Vous pouvez fixer la zone d'impression comme je l'ai proposé et le tour est joué il n'y a rien à faire par les utilisateurs si ce n'est d'imprimer la feuille.

Réponse 4 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
24 oct. 2014 à 06:21

bonjour

le nombre de colonne ne changera pas c est juste le nombre de lignes qui varie de disons 20 à x.

avec votre methode il faut definir la zone d impression à chaque fois avec des manips un peu compliqués pour un utilisateur fragile.

il ne faut pas que sur l impression il y ai un tableau avec des lignes vides d ou l idee de la macro zone impression.

bonne journee

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
24 oct. 2014 à 21:51

Bonjour,
Je mal compris votre problème. Vous pouvez le résoudre en fixant les marges de la feuille, voir exemple : https://www.cjoint.com/?3Jyv33102Hz

Réponse 6 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
28 oct. 2014 à 23:15

bonjour je ré explique:
bonjour

mon tableau possede 16 colonnes et de x de lignes.
les 12 premiers lignes sont des infos générales du tableau .les donnees commencent à partir de la ligne 13 jusquà x lignes.

je souhaiterais par un bouton pacé à coté du tableau faire une mise en page ou j aurai :
- sur la 1er page les 12 premiers lignes (infos générales ) + 15 lignes de données.
- sur la page 2 les lignes d infos de 5 à 12 + les lignes de données restantes.
- ....
si il y a impression d autres pages je souhaiterai que les lignes n°5 à 12 sont imprimes également en haut de chaque feuille.

possible?

merci

Réponse 7 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
28 oct. 2014 à 23:30

Bonjour,
L'exemple que j'ai proposé fait exactement ce que vous désiré sans macro, il faut juste adapter selon votre format de données.

Réponse 8 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
28 oct. 2014 à 23:35

bonsoir

je ne comprends votre fichier excel

cdt

Réponse 9 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
29 oct. 2014 à 10:45

Bonjour,
Avez-vous essayé de faire un aperçu avant impression ou imprimer la page et aussi en supprimant des lignes de données .... ?

Réponse 10 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
29 oct. 2014 à 17:41

bonjour

en supprimant les lignes cela fonctionne mais je ne veux pas que les personnes utilisant ce tableau supprime ou ajoute des lignes car certaines cellules contiennent des formules, des mises en forme conditionnelles ...

donc je souhaiterai qu une action simple fasse une mise en page et définisse une zone d impression , c est pour cela que je pensais à une macro mais peut etre qu il il y plus simple mais la je ne sais comment faire

merci de votre aide

Réponse 11 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
29 oct. 2014 à 17:49

Bonjour,
Eh bien dans ce cas, qu'elle est la structure de votre feuille et à quel endroit les utilisateurs sont autorisés à entrer des données.... ?

Réponse 12 / 29

Maurice
29 oct. 2014 à 18:46

Bonjour

Voila une macro pour le format Ligne & Colonne

Sub Macro2()
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$12" ' Choix Lignes
.PrintArea = "$B:$G" ' Choix Colonnes
End With
End Sub

A+
Maurice

Réponse 13 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
29 oct. 2014 à 20:17

bonsoir

comme je l ai dit les utiliseurs peuvent rentrer des donnees dans les lignes du tableau , ce nombre de lignes est tres variable d un jour à l autre il peut passer de 15 lignes à plus de 100

ce tableau est déjà dessiné et les cellules ont deja des formules

comprenez bien que je veux pas imprime un tableau avec des lignes vierges c est pour cela que la zone d impression doit etre defini à chaque fois

Réponse 14 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié par Le Pingou le 29/10/2014 à 21:24

Bonjour,
Eh bien là c'est plus clair, donc il faut prendre en compte uniquement les lignes que l'utilisateur aura entrées. J'imagine que la première colonne contient une formule .... Qu'elle est cette formule ... ?
Le format de la feuille : paysage ou portrait ?

Salutations.
Le Pingou

Réponse 15 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
29 oct. 2014 à 22:05

Bonjour,
Admis colonne 2 [B] est remplie par l'utilisateur et sert de référence pour la procédure ci après :

Sub DefinirZoneImpr()
' recherhe  dernière ligne colonne [B]
With ActiveSheet.PageSetup
    .PrintTitleRows = "$5:$12"
    .PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 2).End(xlUp).Row)
End With
End Sub

Réponse 16 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
29 oct. 2014 à 23:02

re

en mode paysage
la colonne 16 contient les calculs les donnees sont rentrees sur une ligne de la colonne 1 à 15

Réponse 17 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
29 oct. 2014 à 23:09

Bonjour,
Merci pour l'information. On utilise la colonne [A] pour détecter la plage à imprimer.
Voici la procédure à insérer dans un module :

Sub DefinirZoneImpr()
' recherhe  dernière ligne colonne [A:A]
With ActiveSheet.PageSetup
    .PrintTitleRows = "$5:$12"
    .PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 1).End(xlUp).Row)
End With
End Sub

Pour la déclencher mettre un bouton de commande sur la feuille et lui données la référence de la procédure.
L'ordre d'impression n'est pas compris dans le code.

Réponse 18 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
30 oct. 2014 à 17:37

bonjour

pour synthetiser que dois je ecrir dans la macro complete que je suis l esssayer

encore merci de votre aide

cordialement

Réponse 19 / 29

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié par Le Pingou le 30/10/2014 à 17:49

Bonjour,
Simplement l'instruction

ActiveSheet.PrintOut

Insérer entre [End With] et [End Sub]

Salutations.
Le Pingou

Réponse 20 / 29

marc41000 Messages postés 52 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 8 janvier 2024
30 oct. 2014 à 20:40

bsr

en resume je met cela?

Sub DefinirZoneImpr()
' recherhe dernière ligne colonne [B]
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$12"
.PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 2).End(xlUp).Row)
End With
ActiveSheet.PrintOut

End Sub

Posez votre question

Discussions similaires

Afficher les pointillés d'impression...

BrinXounet - 30 juin 2014 à 09:56
JSmithJ - 30 juin 2014 à 10:02

1 réponse

zone d'impression open office cal

bavella2 - 29 mars 2015 à 12:36
bavella2 - 29 mars 2015 à 17:46

3 réponses

comment enlever la ligne pointillée excel

barbie - 29 avril 2016 à 20:20
madmyke - 29 avril 2016 à 20:46

1 réponse

Problème de mise en page pour impression Excel

vanessa04 - 17 juin 2013 à 11:21
Patrice33740 - 17 juin 2013 à 16:25

6 réponses

Supprimer lignes pointillées

mj1974 - 15 mars 2018 à 21:31
mj1974 - 17 mars 2018 à 12:06

4 réponses

Impression impossible

Marielaure205 - 25 sept. 2020 à 12:59
Panth33ra - 25 sept. 2020 à 13:27

1 réponse

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire

Discussions similaires

Newsletters