Copier sans mise en forme
Bonjour à tous,
J'ai une macro qui va chercher des données dans d'autres fichiers pour les coller dans un fichier conso. Jusque là tout va bien.
Mon problème: dans mon code, les données sont copiées avec la mise en forme initiale. Je les voudrais "vierge" de toute mise en forme.
Merci par avance pour votre aide
Vous trouverez ci-dessous le code
Range("Customer_Name").Select
Selection.Copy
wbdest.Activate
i = ActiveSheet.UsedRange.Rows.Count
Cells(i + 1, 1).Select
ActiveSheet.Paste
Salut,
Essaie de remplacer ta toute dernière ligne de code par :
Selection.PasteSpecial Paste:=xlPasteValuesSi ce n'est pas ça, il faudrait avoir ton fichier complet à disposition.
Cordialement.
PS : a tester également, le remplacement de tes deux premières lignes par celle-ci :
Range("Customer_Name").Copy Bonsoir,
Ton code n'est pas très optimal !
Ce fragment est insuffisant pour le réécrire.
Bonsoir le fil, bonsoir le forum,
Je me permet de compléter la bonne réponse d'Yvouille. Il faut éviter autant que tu le peux les Select qui ne font que ralentir l'exécution du code et sont source de plantages !... Ci-dessous deux options sans Select :
Sub Macro1()
I = ActiveSheet.UsedRange.Rows.Count
Cells(I + 1, 1).Value = Range("Customer_Name").Value
End Sub
Sub Macro2()
Range("Customer_Name").Copy
wbdest.Activate
I = ActiveSheet.UsedRange.Rows.Count
Cells(I + 1, 1).PasteSpecial (xlPasteValues)
End Sub[Édition]
Bonsoir MFerrand ! Nos posts se sont croisés...