XL 2016 VBA report de couleur

[Yoyo01000]

Bonjour le forum,

je recherche un code VBA pour reporter des couleurs de cellules d'un onglet à un autre du même classeur.

Ce sont des cellules qui ne comporteront aucunes valeurs (sinon je serais passé par des MFC).

J'ai regardé sur le net, j'ai trouvé des codes VBA mais ayant aucune compétence à ce sujet, il m'est impossible de modifier le code à ma guise.

Dans le fichier joint, dans l'onglet "UEP", j'ai inscris ce que je désire obtenir.

C'est un fichier minimisé mais dans l'original, il y aura plus de cellules colorées à reporter (le code peut descendre sur la feuille à l'infini).

Merci pour votre précieuse aide

 

[job75]

Bonjour Yoyo01000,

Voyez le fichier joint et les 2 macros, celle de la feuille "TL1" :

Private Sub Worksheet_Activate()
Dim c As Range
Application.ScreenUpdating = False
Sheets("UEP").Copy
With ActiveSheet
    .Range("O:W,AM:AU,BK:BS").Delete 'à adapter suivant la feuille
    For Each c In .UsedRange
        Range(c.Address).Interior.Color = c.Interior.Color
    Next
    .Parent.Close False
End With
End Sub

A+

 

[Yoyo01000]

Bonsoir job75,

c'est parfait, c'est exactement ce qu'il me fallait, merci beaucoup !!!