Discussion :

[Yabagi]

Bonjour à tous !

J'ai déjà sollicité votre aide auparavant et ça a été un succès! Je réitère aujourd'hui puisque je suis dans une impasse...

Je m'explique :

Je suis gestionnaire de stock dans un entrepôt dans lequel nous effectuons des inventaires tournants en continue. Mon entrepôt fonctionne par allée (Exemple: allée 7G, allée 7H...).

J'ai créer un fichier Excel composé de TCD qui contient les données suivantes : EMPLACEMENT CODE ARTICLE LIBELLE ARTICLE CODE A BARRE

Selon l'allée que je choisi via un filtre, le nombre d'emplacement a inventorié change, il peut diminuer comme s'agrandir.

Actuellement, je dois imprimer chaque TCD en les sélectionnant manuellement pour les donner à mes opérateurs.

J'aimerais avoir un code VBA qui permettrait d'imprimer le TCD peu importe si la zone dynamique du TCD grandit ou diminue.

Par exemple, si je choisi l'allée 7A et qu'il y a 2 emplacements, mon TCD n'aura que 2 lignes, par contre si dans l'allée 7H il y a 500 emplacements, il y aura 500 lignes...

Je vous met des photos pour que vous compreniez mieux.


Il faut savoir que je sélectionne souvent plusieurs allées, ce qui fait des TCD conséquents.

Pouvez-vous m'aider s'il vous plaît?

Cordialement,

[mat955]

Bonjour,

J'avais fait un code pour un besoin similaire une histoire d'impression sur une plage variable.

Code :

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

1
2
3
4
5
6
7
8
9
10
'Définit la plage à imprimer
    Set Plage = Range(Range("A1"), Range("L" & LastLine))
'Définit la zone d'impression (égale à la plage précédemment définie)
    ActiveSheet.PageSetup.PrintArea = Plage.Address
    Application.PrintCommunication = False
'Limite la zone d'impression à 1 page en largeur
    ActiveSheet.PageSetup.FitToPagesWide = 1
'Limite la zone d'impression à x pages en longeur, ici 83 lignes par page pour que ça reste lisible
    ActiveSheet.PageSetup.FitToPagesTall = Application.WorksheetFunction.RoundUp(Plage.Rows.Count / 83, 0)
    Application.PrintCommunication = True