Effectuer une macro pour packing list
Bonjour,
Je vous envois ce messages parce que j'ai pas mal de packing list a effectuer j'ai besoin de votre science pour les réussir.
J'ai fait un enregistrement de macro sur excel mais impossible pour moi de faire repeter la fonction sur tout mon tableau ça consiste uniquement a faire du copier coller mais je pense qu'avec une bonne macro ce sera plus facile.
J'ai donc un fichier nommé :"Douglas... Pour PL" ou il y a mon tableau ou je vais chercher mes infos pour les copier sur la "packing list basique" le fichier s'appelle :"PL douglas... Template" Je vous montre le code qu'a fait l'enregistreur de macro:
Sub Macro1()
'
' Macro1 Macro
'
'
Windows("Douglas_orders_5.15.19 POUR PL.xlsx").Activate
Sheets("UNNA").Select
Range("B3:B4").Select -> il va récupérer les numéros de magasins et de commande les copier sur la packing
Selection.Copy
Windows("PL DOUGLAS TOO FACED 0515 TEMPLATE.xlsx").Activate
Range("B12").Select
ActiveSheet.Paste
Windows("Douglas_orders_5.15.19 POUR PL.xlsx").Activate
Range("B5:B172").Select -> il va recupérer toutes les cellules non vide et les copier sur la packing de base
Application.CutCopyMode = False
Selection.Copy
Windows("PL DOUGLAS TOO FACED 0515 TEMPLATE.xlsx").Activate
Range("D16").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.Range("$B$15:$D$186").AutoFilter Field:=3, Criteria1:="<>"
End Sub
J'aimerais faire cette action sur tout les tableau il va de A1:CF172
Merci de votre Aide a très vite
bonjour
il est probable qu'un simple TCD avec son filtre suffise
joins un exemple de 3 colonnes et 7 lignes et le résultat attendu
à te relire
amitiés
Bonjour JMD,
Merci pour votre réponse rapide, je vous ai fait un exemple de ce que je veux.
Mais j'aimerais avoir une liste déroulante admettons que quand je choisis mon numéro de commande et mon magasin il me copie colle directement les quantités dans la packing et supprime les lignes avec les zéros.
J'espère avoir été claire parce que j'arrive pas trop a l'expliquer avec des termes informatique.
En tout cas merci beaucoup pour votre réponse à très bientôt.
PS: J'ai oublié de joindre le fichier, sorry.