Impression bouton ligne par ligne

[Brudy]

Bonjour à tous !

Bonne année et bonne santé !


J'ai besoin de votre aide pour finaliser un projet, j'ai un tableau avec des données. Elles mêmes sont répartis par semaine de l'année, c'est mon critère de tri.

Cela me permet de sortir la semaine 51 par exemple. Et après, j'aimerais confectionner une macro bouton permettant de déclencher l'impression à la suite des infos triées. (Par OR, recherche dans la base ensuite)

J'ai donc 3 feuilles : La base, le tri et le modèle

Le tri prend dans la base les infos et les envois ligne par ligne dans le modèle pour impression.

C'était l'idée que j'en avais, mais si vous avez mieux aucun problème !

Je me permet de joindre mon fichier,

Il est composé de multiple macro, un bon nombre ont été réalisée ici

Merci d'avance à ceux qui passeront ici

Brudy

 

[Lone-wolf]

Bonjour Brudy et bonne année à toi aussi.

Je ne sais pas si le fichier correspond à ce que tu demande. Efface seulement la colonnes des quantités choisi ce que tu veux puis clique sur imprimer.

 

[Brudy]

Merci de ta réponse Lone,

J'ai bien regardé ton fichier mais il me semble mal adapté à ma demande,

Imagine que sur la base de ton fichier tu es en plus, une colonne date et une colonne Numéro de commande.
J'aimerais qu'après avoir sélectionner avec macro les N° de commande d'une semaine en particulier, je puisse lancer une impression Ligne par Ligne.
Ici l'impression est global sur l'ensemble des références contenant une information quantité en C.

Donc : Impression ligne par ligne des informations.

Mais je te remercie de ta contribution ! ça me permet de réfléchir à des idées plus adéquate de mon côté

 

[Brudy]

Je poste ici la macro que j'imaginais, je l'ai simplement enregistrée via excel

Mais je ne sais pas insérer à ça les conditions de Fin, Si C="" alors stop l'impression et fin de la macro

Sub MacroImpr()
'
' MacroImpr Macro
'

'
    Range("C13").Select
    Selection.Copy
    Sheets("Récap OR").Select
    Range("A7").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
    Sheets("Récap OR ").Select
    Range("C14").Select
    Selection.Copy
    Sheets("Récap OR").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Récap OR ").Select
    Range("C15").Select
    Selection.Copy
    Sheets("Récap OR").Select
    Range("A7").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Récap OR ").Select
    Range("C16").Select
    Selection.Copy
    Sheets("Récap OR").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[Lone-wolf]

Bonsoir Brudy

Comment veut-tu avoir la feuille exacte imprimée, si les deux feuilles ont le même nom???

J'ai modifier le nom de la dernière feuille par Impression OR, j'y travaille dessus.

Encore une chose. Si j'ai bien compris, tu prend la ligne C13 et tu imprime - stop, tu prend la ligne C14 et tu imprime - stop. et ainsi de suite??? Si c'est comme ça, tu crée une liste déroulante pour les numéros OR et tu fait un autofilter critère numéro Or. Et il y a la formule en H8 à corriger, le résultat est erroné, regarde bien.

 

[Lone-wolf]

Bonjour Brudy, le Forum

N'ayant pas eu de nouvelles, j'ai fait à ma façon. J'ai changé les formules de la feuille impression en mettant un nom aux cellules F8 et H8 et j'y ai fait référence dans la feuille Impression OR; supprimer la formule en H8 et mis une macro à la place. La macro pour l'impression est dans le module 3. Regarde si ça joue.

 

[Brudy]

Bonjour Lone,

J'ai réétudié mon projet pour établir mon but final, des informations sont venu s'ajouter

Vis à vis de ce que tu me propose il y'a un soucis majeur, les lignes que tu vois peuvent être démultiplier et la sélection ligne par ligne me semble trop contraignante, il faudrait que la macro considère que les données affichées dans le Ré cap OR soit des informations à imprimer, ligne après ligne jusqu’à une ligne blanche.

Je te remerci pour la macro en H8 ^^

 

[Lone-wolf]

Re

Si tu as 4 ligne avec 45629 par exemple, l'autofilter que j'ai mis va prende en considération toutes les lignes correpondante. Pour test, enregistre le fichier sous un autre nom, fais plusieures fois un copier coller des lignes, ensuite exécute la macro. Mais avant il faut que tu modifie la feuille d'impression.Comme tu la mise en forme pour 1 ligne seulement, comment veux-tu qu'elle en affiche 10???

 

[Brudy]

Euh, si j'ai bien compris ta remarque :

le Numéro d'OR est unique. Quand j'évoquait le "démultipliage" des lignes c'est surtout qu'à l'impression ça peut être des centaines de lignes à imprimer dans Impression OR.
Donc l'idée c'était que la macro bouton réalise une impression en +1 jusqu'a ce que la ligne de donnée en Récap OR soit vide.
B13 Si pleine alors copier coller dans impression OR et impression
B14 si pleine alors copier coller dans impression OR et impression
B15 si vide alors stop.

 

[Lone-wolf]

Rudy tu fais exprès ou quoi.

Regarde le fichier joint. Je t'ai dit que j'ai mis un autofilter, mais pas comme tu la mis.

 

[Brudy]

Effectivement j'avais mal compris ta remarque, je suis bloqué sur l'image que j'ai du résultat,
Seulement, ta proposition ne peu s'appliquer a mon besoin : Le numéro d'OR est associé à une facture et doit être envoyé avec celle ci.
C'est pour ça que le récap OR dans la feuille Impression OR comporte une seule ligne

Je précise : l'impression doit être ligne par ligne, je ne peux pas grouper les informations,

1 OR = 1 récap = 1 impression

 

[Brudy]

Quelqu'un sait seulement comment modifier ma macro pour que l'installation de mon fichier actuel imprime ligne par ligne à partir d'une certaine ligne, et s'arrête dès que la case d'après est Blanche ?

B13 Si pleine alors copier coller dans impression OR et impression
B14 si pleine alors copier coller dans impression OR et impression
B15 si vide alors stop.

 

[Brudy]

Up. Bonjour à tous,

Mon problème n'a toujours pas trouvé de solution, peut être quelqu'un de passage sera plus à l'aise que moi avec la création de macro

Merci d'avance

 

[Brudy]

Bonjour les exceliens !

Personnes pour m'apprendre comment modifier ma macro ?

J'aurais besoin d'une partie de macro me permettant de faire +1 si ligne plein, impression puis stop si ligne vide.

Merci d'avance