When I add "Selection.ClearContents" in the code, I have an error message (1004 paste special) on :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False.
Without that code "Selection.ClearContents", it's working.
How to clear the cell contents?
Thanks
'Copy Sheets("Corriger les donnees").Select Columns("D:k").Select Selection.Copy 'Paste Sheets("Exporter les donnees").Select Sheets("Exporter les donnees").Activate Sheets("Exporter les donnees").Columns("A:h").Select Selection.ClearContents '?????? Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False
I think the CC interrupts the copy/paste. Try this:
With Sheets("Exporter les donnees").Columns("A:h") .ClearContents Sheets("Corriger les donnees").Columns("D:k").Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=FalseEnd With
With Worksheets("Exporter les donnees") .Range("A:h").ClearContents Worksheets("Corriger les donnees").Range("D:k").Copy .Range("A:h").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With Application.CutCopyMode = False
Open in new window