1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Sheets("INVENTAIRE").Select
Rows("10:35").Select
Selection.Insert Shift:=xlDown
Sheets("FACTURE").Select
Range("A21:A44").Select
Selection.Copy
Sheets("INVENTAIRE").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A10").Select
Sheets("FACTURE").Select
Application.CutCopyMode = False
Range("B21:B44").Select
Selection.Copy
Sheets("INVENTAIRE").Select
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False(GENRE ICI IL FAUDRAIT MULTIPLIER PAR -1, )
Range("C10").Select
Sheets("FACTURE").Select
Application.CutCopyMode = False
Range("A21:B44").Select
Selection.ClearContents
Range("A21").Select
End Sub |
Partager