Couleur de celulle et copie

[phil59110]

Bonsoir A tous,

Voila j'utilise une simple macro pour faire des copies de tableau
et je voudrais copier aussi la couleur de format des celulles par exemple rouge vert Etc..
mais comment faire pour copier uniquement les couleurs de format mais pas les formules conditionnelle qui vont avec!
Voici le macro qui me permet de faire ces copie:

Sub CopiePerfs1()
Application.ScreenUpdating = False
'
'Range("b10").Copy Range("p2")
Sheets("Musique").Select
Range("c3:e22").ClearContents
Sheets("résumé").Select
Range("v6:z6").ClearContents

'
Sheets("courses").Select
    Range("m14:o33").Select
    Selection.Copy
    Sheets("musique").Select
    Range("c3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
'
Worksheets("résumé").Range("aj41") = Worksheets("courses").Range("B10").Value
Sheets("résumé").Select
Range("d9").Select
Application.ScreenUpdating = True

End Sub

Merci Beaucoup!

 

[kjin]

Re : Couleur de celulle et copie

bonsoir,

Sub CopiePerfs1()
Application.ScreenUpdating = False
Sheets("Musique").Range("c3:e22").ClearContents
Sheets("résumé").Range("v6:z6").ClearContents
Set rng = Sheets("courses").Range("m14:o33")
With Sheets("musique")
    rng.Copy .Range("c3")
    .Range("C3").Resize(rng.Rows.Count, rng.Columns.Count).FormatConditions.Delete
End With
Sheets("résumé").Range("aj41") = Sheets("courses").Range("B10").Value
Sheets("résumé").Select
Range("d9").Select
Application.ScreenUpdating = True
End Sub

A+
kjin

 

[phil59110]

Re : Couleur de celulle et copie

Bonjour a tous,
Bonjour Kjin,

Merci beaucoup Kjin c'est super en plus ma macro est plus claire comme ça!!!

Dit est ce que je peut adapter le méme principe dans cette macro:

Sub Stats()
'
Dim lg As Long

Sheets("Résumé").Select
Range("b133:p137").Copy
Sheets("stats").Select
lg = Range("E65536").End(xlUp).Row + 2
Range("A" & lg).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'
        
End Sub

Merci Beaucoup!