Bonjour je ne parviens pas a coller en valeur mes colonnes ;
Comment puis-je procéder ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sheets("Obligations").Cells(A2, W479).PasteSpecial Paste:=xlValues Sheets("Obligations").Range("A2:D479").Copy Sheets("Obligations_2").Range("A1") Sheets("Obligations").Range("E2:E479").Copy Sheets("Obligations_2").Range("E1") Sheets("Obligations").Range("J2:J479").Copy Sheets("Obligations_2").Range("F1") Sheets("Obligations").Range("M2:M479").Copy Sheets("Obligations_2").Range("G1") Sheets("Obligations").Range("N2:N479").Copy Sheets("Obligations_2").Range("H1") Sheets("Obligations").Range("Q2:Q479").Copy Sheets("Obligations_2").Range("I1") Sheets("Obligations").Range("T2:T479").Copy Sheets("Obligations_2").Range("J1") Sheets("Obligations").Range("U2:U479").Copy Sheets("Obligations_2").Range("K1") Sheets("Obligations").Range("V2:V479").Copy Sheets("Obligations_2").Range("L1")
Partager