XL 2019 Copie de format conditionnelle

[Thcmas]

Bonjour,

Je vous explique la situation :
Dans une feuille, j'ai une MFC qui remplie certaines cellules d'une plage (de colonnes fixes mais de nombre de lignes variables) en orange selon une condition.
Mon but est de récupérer dans une nouvelle feuille toute cette plage (variable) en question avec les cellules en couleur orange définitif, ainsi que leur valeur, et ne pas avoir de règle de mise en forme conditionnelle dans la nouvelle feuille.

En clair : extraire valeur + MFC depuis une plage de données variable et rendre la MFC permanente dans une autre feuille.

Merci d'avance pour vos réponses.

 

[job75]

Bonjour Thcmas,

Puisque vous ne fournissez pas de fichier voyez ceci :

Sub Copie_couleur()
Dim r As Range, dfi As Object
Set r = Feuil1.[A1:C10] 'plage avec MFC, à adapter
With Feuil2
    r.Copy .Range(r.Address) 'copier-coller
    .Range(r.Address).FormatConditions.Delete 'RAZ
    .Range(r.Address).Interior.ColorIndex = xlNone 'RAZ
    For Each r In r
        Set dfi = r.DisplayFormat.Interior
        If dfi.ColorIndex <> xlNone Then .Range(r.Address).Interior.Color = dfi.Color
    Next
End With
End Sub

A+