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

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- - Dernière réponse : delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- 5 août 2014 à 23:03
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
Afficher la suite 

1 réponse

Messages postés
2995
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
704
0
Merci
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. »
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien Myta,
Bon soirée