XL 2016 VBA report de couleur

Yoyo01000 · 25 Mars 2019

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 · 25 Mars 2019

Bonjour Yoyo01000,

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

VB:

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 · 25 Mars 2019

Bonsoir job75,

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

XL 2016 VBA report de couleur

Yoyo01000

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Yoyo01000

XLDnaute Occasionnel

Discussions similaires