Effacer sans modifier la mise en page

[popoche69]

Bonjour,

Lorsque j'utilise une macro qui copie / colle les données d'un tableau :

Worksheets("saisie").Activate
Range("A3:G29").Select
Selection.Copy
Worksheets("gestion").Activate
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste


Worksheets("saisie").Activate
Range("A3:G29").Clear

Je supprime les données après les avoirs copier dans un autre tableau , mais lorsque je les colles dans la plage de destination , cela supprime ma mise en page.

Merci d'avoir prit le temps de regarder mon problème
Bonne fin de journée

 

[mromain]

Re : Effacer sans modifier la mise en page

bonjour popoche09,

si j'ai bien copris, il suffit de remplacer

Range("A3:G29").Clear

par

Range("A3:G29").ClearContents

a+

 

[popoche69]

Re : Effacer sans modifier la mise en page

Niquel, merci pour cette réponse rapide =)