XL 2016 * RESOLU MERCI :)* Impression personnalisée.

Agecanonix35400 · Mardi à 11:28

Bonjour à tous.

J'aurais besoin de vos lumières si vous le permettez.
En effet je vous ai mis mon fichier de facturation en exemple.
Lorsque je veux imprimer, je voudrais imprimer avec les filtres présents colonnes "A" et "H"
En revanche lorsque j'imprime cela me sort la liste complète
Ce que je voudrais c'est 1 jour par feuille
Par exemple
feuille 1 le 1er janvier.
feuille 2 le 02 janvier recto/verso
feuille 3 le 03 janvier.

Actuellement je dois sélectionner ma date et imprimer et refaire la même chose pour les autres jours.
Cela prend un temps fou car j'ai 3 fichiers gros comme celui-ci à imprimer.

Merci de me dire s'il y a un moyen d'imprimer en selectionnant le mois complet et que ca imprime 1 feuille par date ou bien une autre manière de faire.

Agecanonix35400 · Mercredi à 16:13

gosselien à dit:
re,

j'y suis allé de ma petite bafouille comme ceci:
les dates / mois sont scindées et mises avec le titre dans un nouvel onglet 'export" et ensuite une code permet d'imprimer ça dans un répertoire à modifier ( voir le code)
C'est ce que j'ai fait avec ce que j'ai compris 🙂
Pas parfait encore mais à vérifier si ça te convient 🙂

Merci beaucoup mais la façon dont s'est fait je n'y arrive pas comme cela.
J'ai cliqué sur imprimé sur le 1er onglet mais je n'ai qu'une page à imprimer.
Sur le 2ème onglet je n'ai qu'un seul jour à imprimer, après faut que je selectionne le tout 1 par 1
Sur le 3ème onglet je n'ai rien à imprimer.

Le 1er code de TooFatBoy fonctionnait super bien sauf qu'il ne fonctionnait pas
Dans mon deuxième fichier exemple ci joint j'ai mis toute l'année. Le code y est mais ne fonctionne pas.
Le 1er était bien car on voyait tout et je pouvais selectionner ce que je voulais. Car je suis amené à n'imprimer qu'un seul jour s'il y a des modifications à faire

Agecanonix35400 · Mercredi à 17:00

D'après ce que j'ai compris dans vos posts et ce qui me conviendrait c'est juste qu'il soit inséré un saut de page quand on change de jour.
Ce qui me permettrait de sélectionner les jours ou les mois correspondant.
Dans ce cas ne serait-il pas possible de faire une macro dans ce sens?

Bonne fin de journée

gosselien · Mercredi à 17:11

Voilà ce que ça donne chez moi dans un onglet ( à créer) EXPORT
Après , il y a des erreurs car le classeur a des liens avec d'autres.
Je ne saurais pas faire mieux pour diverses raisons, je dois arrêter (médicales entre autres) de m'y consacrer mais je suivrai le fil...

TooFatBoy · Mercredi à 18:25

Agecanonix35400 à dit:
Peux-tu me guider stp.*
...
Je fais insertion module.

D'où le problème. 😉

Le nom de la macro est Workbook_BeforePrint donc ça se met dans le module de ThisWorkbook.

Tu prends la macro que j'ai postée, et tu la mets au même endroit que je l'ai mise dans mon classeur c'est-à-dire dans le module de ThisWorkbook.

TooFatBoy · Mercredi à 18:31

Agecanonix35400 à dit:
D'après ce que j'ai compris dans vos posts et ce qui me conviendrait c'est juste qu'il soit inséré un saut de page quand on change de jour.
Ce qui me permettrait de sélectionner les jours ou les mois correspondant.
Dans ce cas ne serait-il pas possible de faire une macro dans ce sens?

Est-ce que ce n'est pas déjà ce que fait la macro de #8 et la macro corrigée de #12 ???
Plus précisément, elle insère un saut de page quand le jour change, et que la ligne est visible.

Agecanonix35400 à dit:
Effectivement la prévisualisation ne montre pas ce qui va être imprimé.

On doit pouvoir y remédier en ajoutant un bouton, par exemple nommé "Imprimer", sur la feuille.

Attention : la macro cette fois-ci doit être dans un module standard.
C'est la même macro, mais j'ai ajouté ActiveSheet.PrintPreview à la fin pour afficher la prévisualisation.

Agecanonix35400 · Hier à 08:11

TooFatBoy à dit:
Est-ce que ce n'est pas déjà ce que fait la macro de #8 et la macro corrigée de #12 ???
Plus précisément, elle insère un saut de page quand le jour change, et que la ligne est visible.

On doit pouvoir y remédier en ajoutant un bouton, par exemple nommé "Imprimer", sur la feuille.

Attention : la macro cette fois-ci doit être dans un module standard.
C'est la même macro, mais j'ai ajouté ActiveSheet.PrintPreview à la fin pour afficher la prévisualisation.

Bonjour,

Oui c'est ce que tu as fait, je résumai juste dans me petit cerveau ce qu'il fallait faire pour que cela fonctionne 😉

Agecanonix35400 · Hier à 09:18

TooFatBoy à dit:
Est-ce que ce n'est pas déjà ce que fait la macro de #8 et la macro corrigée de #12 ???
Plus précisément, elle insère un saut de page quand le jour change, et que la ligne est visible.

On doit pouvoir y remédier en ajoutant un bouton, par exemple nommé "Imprimer", sur la feuille.

Attention : la macro cette fois-ci doit être dans un module standard.
C'est la même macro, mais j'ai ajouté ActiveSheet.PrintPreview à la fin pour afficher la prévisualisation.

Je te remercie cela fonctionne... presque 🙂
Je t'ai fait des captures d'écran:

Les impressions avec les dates qui se chevauchent
Mon tableau pour voir comment il est foutu

Sur l'impression cela me mélange les dates.
Peut-être que c'est juste la macro à modifier 🙂
Encore merci c'est top! cela me fera gagner énormément de temps

TooFatBoy · Hier à 11:23

Agecanonix35400 à dit:
Les impressions avec les dates qui se chevauchent

Ca doit venir d'un potentiel problème auquel j'ai pensé hier. Mais je croyais que tu ne le rencontrerais pas... 😅

Hier je me suis dit que ma façon de procéder ne fonctionne que si tu filtres uniquement sur les dates. Mais si tu ajoutes un autre filtre sur une autre colonne, alors il y a peut-être bien un risque de ne pas obtenir le bon résultat.
Le problème doit venir du fait que je compare la cellule visible avec la cellule du dessus dans le tableau, alors qu'il faudrait comparer avec la première cellule au-dessus visible.

Agecanonix35400 · Hier à 11:45

TooFatBoy à dit:
Ca doit venir d'un potentiel problème auquel j'ai pensé hier. Mais je croyais que tu ne le rencontrerais pas... 😅

Hier je me suis dit que ma façon de procéder ne fonctionne que si tu filtres uniquement sur les dates. Mais si tu ajoutes un autre filtre sur une autre colonne, alors il y a peut-être bien un risque de ne pas obtenir le bon résultat.
Le problème doit venir du fait que je compare la cellule visible avec la cellule du dessus dans le tableau, alors qu'il faudrait comparer avec la première cellule au-dessus visible.

Oui effectivement.
Je fais 3 filtres
1 pour les dates, 1 pour les missions qui ont été acceptées et 1 pour mon numéro de contrat colonne "A"
Ce numéro de contrat est différent sur mes autres tableaux.
En effet je gère 3 centres différents, bientôt regroupés dans un nouveau logiciel mais pas avant mi 2026, voir fin 2026.
Donc mon tableau est filtré de la manière suivante:

Le numéro de contrat, ici 11 mais j'ai 2 autres numéros différents pour mes autres centres. Je pourrais le modifier pour qu'il colle avec les autres centres.
La date pour n'imprimer que ce dont j'ai besoin, vu que je peux imprimer 1 ou plusieurs dates. En général le mois complet, mais si modifs faites, réimprimer que ce dont j'ai besoin.
L'état colonne "H" car j'ai des missions "Acceptées" ou "Annulées" car non faites, mais je n'ai besoin que des missions "Acceptées"

Encore merci,

TooFatBoy · Hier à 13:38

Oui oui, on avait bien compris la première fois. 😉

Je pense qu'il faut que je réécrive complètement la macro.
Pas sûr que j'arrive à faire ce que tu désires. 🙁

Agecanonix35400 · Hier à 14:17

TooFatBoy à dit:
Oui oui, on avait bien compris la première fois. 😉

Je pense qu'il faut que je réécrive complètement la macro.
Pas sûr que j'arrive à faire ce que tu désires. 🙁

Pas grave je te remercie en tous les cas 🙂

gosselien · Hier à 15:01

Je ne fais que passer 2 min puisque je ne sais pas plus mais il me semble que mon code scindait tes données dans un onglet export et une seconde macro imprimait pour chaque date ou groupe de date...
Tu peux me dire ce qui n'allait pas avec ça ? Merci

TooFatBoy · Hier à 15:26

J'ai peut-être réussi... à faire ce que je voulais.
Peux-tu tester, stp ?

VB:

Sub Impression()
' Exemple d'ajout d'un saut de page : ActiveSheet.HPageBreaks.Add Before:=Range("A3")
Dim TS As Object
Dim MesDates As Range, NewCel As Range, OldCel As Range

    ' Si la feuille active au moment d'imprimer ne s'appelle pas "Feuille pour factu", alors on abandonne la macro
    If ActiveSheet.Name <> "Feuille pour factu" Then Exit Sub

    ' Assignation de TS : tableau complet (sans les en-têtes)
    Set TS = ActiveSheet.ListObjects(1)
    ' Assignation de MesDates : toutes les cellules visibles de la deuxième colonne du tableau
    Set MesDates = TS.ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible)

    ' Supprime tous les sauts de page de la feuille active
    ActiveSheet.ResetAllPageBreaks

    ' Assignation de Debut à True
    Debut = True

    ' Pour chaque cellule visible de la deuxième colonne du tableau
    For Each NewCel In MesDates
        ' Si Debut = True alors...
        If Debut Then
            ' Assignation de OldCel
            Set OldCel = NewCel
            ' Assignation de Debut à False, pour ne pas repasser dans cette partie du For...Next
            Debut = False
        Else
            ' Si la valeur de la cellule visible n'est pas identique à celle de la cellule visible au-dessus...
            If NewCel <> OldCel Then
                ' on ajoute un saut de page
                ActiveSheet.HPageBreaks.Add Before:=NewCel
            ' Fin de Si
            End If
            ' Assignation de OldCel
            Set OldCel = NewCel
        ' Fin de Si
        End If
    ' Passage à la cellule suivante
    Next

    ' Configuration pour imprimer l'en-tête sur chaque page
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = TS.HeaderRowRange.Address
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True

    ActiveSheet.PrintPreview

End Sub

Agecanonix35400 · Aujourd'hui à 08:07

Super,

Tu es un chef!
Ca fonctionne impeccable

Encore un grand merci.
Ca me fait gagner un temps fou.

Merci beaucoup.

TooFatBoy · Aujourd'hui à 09:48

Agecanonix35400 à dit:
Ca fonctionne impeccable

Content pour toi si ton problème est résolu. 🤗

Pour marquer ton problème comme étant résolu :

Avez vous vu...? Publié dans la discussion 'marquer comme résolu'

18 Février 2023

Bonjour,

Pour marquer un fil de discussion, que l'on a ouvert, comme étant résolu, il faut cliquer sur la coche dans un cercle (normalement situé sur la droite) du message que l'on considère comme étant le "meilleur" par rapport à la résolution de la question posée.

Pour clore son fil de discussion, cliquer sur la coche de la meilleure réponse :

Après avoir cliqué sur la coche, ça donne ça :

Remarque : après avoir clos le fil de discussion on peut en plus, si on le désire, le signaler clairement en éditant son...

XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.

XLDnaute Junior

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Avez vous vu...? Publié dans la discussion 'marquer comme résolu'

Discussions similaires

Privacy & Transparency

Privacy & Transparency

XL 2016 * RESOLU MERCI :)* Impression personnalisée.