Création macros pour tri et impression

Bonjour a tous,

Après moulte recherche sur divers forums, je n'arrive toujours pas a solutionner mon problème...

Je travail pour une entreprise de production bois. Nous disposons d'un tableau excel regroupant toutes les opérations d'usinage à réaliser.

Toutes les semaines, nous communiquons aux opérateurs la liste des pièces à produire.

Une fois ma liste triée (par tache), j'obtiens ceci:
Pièce jointe 189460

A partir de ceci, j'aimerai créer une marco permettant de lancer une impression feuille par feuille de chaque tache.
je ne connais pas le cheminiement pour y parvenir, peut être que la création d'une feuille excel pour chaque tache permettera de facilité l'impression...

Dans l'exemple ci-dessus, 3 feuilles doivent sortir...

Vous trouvez un extrait de ce tableau. A noté que l'ensemble des pièces représente environ 2000 lignes

Etant donné que mes connaissance dans ce domaine reste très limité, je solicite votre aide pour m'aiguiller dans la création de cette macro.

J'espère que mon message est clair, n'hésitez pas à me poser des questions pour plus d'informations...

Merci d'avance,

Bonjour !

Tout d'abord, pourquoi souhaites tu mettre certaines tâches sur la même feuille alors que tu souhaites aussi imprimer une feuille pour chaque tâche ?
(exemple : feuille 2 : tâche 1303 et tâche 1305)

Comme piste de réflexion, je te propose un compteur qui calculera le nombre de tâches identiques consécutives. Il suffira ensuite d'imprimer la plage en conséquence.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Compter()   Dim compteur As Integer Dim Limbasse As Integer   compteur = 1 Limbasse = Columns(4).End(xlDown)   For i = 2 To Limbasse If Range("D" & i).Value = Range("D" & i).Offset(1, 0) Then compteur = compteur + 1 Else: MsgBox compteur compteur = 1 End If Next     End Sub

---

La MsgBox te donne à chaque fois le nombre de tâches identiques consécutives.

Et voilà pour la solution complète ;) !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Imprimer()   Dim compteur As Integer Dim Limbasse As Integer   compteur = 1 Limbasse = Columns(4).End(xlDown)   For i = 2 To Limbasse If Range("D" & i).Value = Range("D" & i).Offset(1, 0) Then compteur = compteur + 1 Else: Dim dif As Integer dif = i - compteur + 1 Set Plage = Range("A" & dif & ": G" & i) Plage.PrintOut compteur = 1 End If Next     End Sub

---

Il faut également que tu ailles dans Fichier --> Mise en Page --> Onglet "Feuille" et sélectionner la première ligne pour que celle-ci soit imprimée à chaque fois avec le reste des données correspondant à chaque tâche.

N'hésite pas si tu as des questions !

Bonjour Quentin !

Tout d'abord merci pour ton aide.

Ta solution me convient parfaitement, je viens de tester la marcos avec le fichier global de gestion, tout marche à la perfection.

J'avais belle et bien fait une erreur sur ma capture, c'est bien une tache par feuille...

Pour ce qui est de la première ligne j'avais déja défini une impression auto
Etant donné que je suis un peu perdu dans ce domaine :oops:, je te remercie pour le temps que tu m'as accordé.

Pour info j'ai trouver également une autre solution: La création d'un macro qui effectue un saut de page à chaque changement de numéro.

Merci encore, et à bientot.
Joris LEMONDE

Super ! Je suis heureux que ça puisse te servir :D !

Peux-tu passer le sujet en "Résolu" pour que tout le monde sache que la solution a été trouvée ?

Bonjour,
Ce code permet de définir une zone d’impression, de définir la ligne devant servir comme entête de colonne sur chaque pages imprimé ! D’effectué un saut da page à chaque changement de tâche ! Et d’imprimer la totalité due document en une seule passe !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Test() Dim r As Range, T As String, I As Integer 'Supprime la mise en page actuelle (Zone d’impression, sauts de pages) ! Sheets("Feuil1").PageSetup.PrintArea = "" Sheets("Feuil1").ResetAllPageBreaks '.............................................................................................................. Set r = Sheets("Feuil1").UsedRange 'Défini les cellules de la page ! ZoneImpression Sheets("Feuil1"), r ZoneTitre Sheets("Feuil1"), "1" For I = 2 To r.Rows.Count If T = "" Then T = UCase(r(I, 4)) 'Permet l'insertion de ligne aux changement de tâche ! If T <> UCase(r(I, 4)) Then SautLigne Sheets("Feuil1"), r(I, 1): T = UCase(r(I, 4)) Next r.PrintOut End Sub Sub SautLigne(Feuille As Worksheet, r As Range) Feuille.HPageBreaks.Add Before:=r 'Perme de définir les sauts de ligne ! End Sub Sub ZoneTitre(Feuille As Worksheet, Adresse As String) Feuille.PageSetup.PrintTitleRows = Adresse & ":" & Adresse 'Permet de répéter la zone de titre sur toutes les pages End Sub Sub ZoneImpression(Feuille As Worksheet, r As Range) Feuille.PageSetup.PrintArea = r.Address 'Permet de définir la zone d'impression d'une feuille Excel ! End Sub

---

J'ai finalement opté pour cette solution avec la création de saut de page.

Je voudrais savoir s'il est possible de faire apparaitre la somme d'une colonne propre à chaque page qui vont être imprimée.

Par exemple pour la première tache, la durée prévue est de 1h, la deuxième 4h etc. Je voudrais faire apparaitre cette valeur dans l'entête de chaque feuille.

Merci encore pour votre aide.