Copier sans mise en forme [Résolu/Fermé]

Signaler
-
 Utilisateur anonyme -
Bonjour à toutes et à tous,
J'utilise une macro qui marche très bien pour copier une plage de cellules d'une feuille à une autre, mais il y a un petit problème ce que ce code fait une copie avec les mise en forme de la source
Je veux faire une copie sans mise en forme,
Voici le code que j'utilise:

Sub Récape()

Application.ScreenUpdating = False
Worksheets("Récap").Range("C9:L244").ClearContents
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Récap" And IsNumeric(Sh.Name) And Sh.[S5] = 4 Then
Sh.Range("C198: D235").Copy
Sheets("Récap").[C245].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Sh.Range("F198:M235").Copy
Sheets("Récap").[E245].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End If
Next Sh
End Sub

Merci d'avance à ceux qui prendront le temps de me répondre !
Cordialement

1 réponse

Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
863
Salut le Forum

Utilise
.PasteSpecial Paste:=xlPasteValues


Mytå

Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
Utilisateur anonyme
Merci bien Myta,
Bon soirée