Bonjour
Nouveau sur le forum
Je cherche à résoudre le transfert de plusieurs lignes d’articles vers un bon de commande
de feuil1 (« catalogue article ») vers feuil2 (« BON DE COMMANDE »)
La quantité de commande à noter En feuil1 cellule B15 – E15 – H15 (environ 150 cel 1/article)
J’ai créer une plage en feuil1 de J12 :N250 avec les Réf en J, Le libellé en K, Le conditionnement en L, Le prix Unitaire en M et la quantité en N.
Donc les quantité notées en B15 sont copiées en N12 etc…
Maintenant en cliquant sur le bouton VILIDER, je souhaiterais transférer uniquement les lignes ayant un chiffre dans la colonne N (quantité)
Voilà ce que j’ai mais rien ne fonctionne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub VALIDBLCDE()
'
' Copie_info Macro
' Macro enregistrée le 07/06/11 PHC
'
 
'
    Range("J12:N250").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("U12"), Order1:=xlDescending, Key2:=Range("Q12") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("W12:AA51").Select
    Selection.Copy
    Sheets("BON DE COMMANDE").Select
    Range("A21").Select