Copier sans mise en forme
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
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
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
A voir également:
- Copier sans mise en forme
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Copier mise en forme word - Accueil - Microsoft Office
- Mise en forme whatsapp - Guide
Bon soirée