XL 2016 aide sur code MFC

Didou1

XLDnaute Nouveau
Bonjour le forum,

J'ai besoin d'aide sur une code vba pas mon point fort

J'ai besoin de récupérer sur une autre feuille la couleur de la cellule mise en forme conditionnelle
Voici le code que j'ai réalisé pour une cellule
Sheets("Planification Tous").Range("C8").Interior.Color = Sheets("Planification").Range("C8").DisplayFormat.Interior.Color

Problème c'est que mon champ va de (C8:AH28)
Y a-t-il un moyen d'écrire un code qui reprend l'ensemble de ce champ en respectant chaque cellule

Merci de votre aide
 
Solution
Bonjour Didou1, le forum

vite fait !

Cordialement
VB:
    Dim Cellule_en_Cours As Range
    For Each Cellule_en_Cours In Sheets("Planification Tous").Range("C8:AH28")
        Cellule_en_Cours.Interior.Color = Sheets("Planification").Range(Cellule_en_Cours.Address).DisplayFormat.Interior.Color
    Next Cellule_en_Cours

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Bonjour Didou1, le forum

vite fait !

Cordialement
VB:
    Dim Cellule_en_Cours As Range
    For Each Cellule_en_Cours In Sheets("Planification Tous").Range("C8:AH28")
        Cellule_en_Cours.Interior.Color = Sheets("Planification").Range(Cellule_en_Cours.Address).DisplayFormat.Interior.Color
    Next Cellule_en_Cours
 

Discussions similaires

Statistiques des forums

Discussions
312 332
Messages
2 087 361
Membres
103 530
dernier inscrit
Chess01