Bonjour,
Je suis nouveau en VBA avec Excel 2003
Voici mon problème, j'arrive à collé une sélection mais celà me supprime ma mise en forme. En regardant sur internet j'ai trouvé le PasteSpecial mais j'ai un message d'erreur.
Pouvez-vous m'éclairez ?
Erreur définie par l'application ou l'obet
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 With Sheets("Brouillon") dl = .Range("A65536").End(xlUp).Row Range("A1:B" & dl).Select Selection.Cut Range("D1").Select ActiveSheet.Paste Range("C1:E" & dl).Select Selection.Cut End With With Worksheets("Mois N_cat3") .Activate .Range("A1").Select ActiveSheet.PasteSpecial Paste:=xlPasteValues End With
Cordialement
Partager