Question : Couleur intérieure

J'ai le code au-dessous de ce worksand est employé sur une autre partie du cahier de travail. Est-ce que mais que je voudrais pour pouvoir faire doit fais maintenant la même chose mais si la couleur intérieure de cellules de destination est ou jaune ou le rouge alors seulement la police est-il entered.

On le dossier joint que les chemins de BRIO est le MAÎTRE et cette information est-elle exigée pour être transférée sur les contraintes sheet.
So de chemin les couleurs sur le maître sont transférées sur la feuille de chemins mais pas quand la feuille de destination a déjà un colour.

On la feuille jointe pour Wed j'ont manuellement créé les couleurs comme comment je voudrais les avoir applied.

Is ceci possible ? class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :

id= " codeSnippet787816 " class= " de

 ' rouge foncé de QRNational de format
Pour chaque c dans rngClr1
'Pour chaque c dans ActiveSheet.UsedRange
    'vérifier le jaune
    Si c.Interior.ColorIndex = 9 puis
        shtJIL.Activate
        
'Cellules ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Cellules ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 9
        Cellules ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Cellules ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = rectifient


        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Finir si
Après

'Pourpre national Pacifique de format
Pour chaque c dans rngClr1
'Pour chaque c dans ActiveSheet.UsedRange
    'vérifier le jaune
    Si c.Interior.ColorIndex = 13 puis
        shtJIL.Activate
        
'Cellules ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Cellules ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 13
        Cellules ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Cellules ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = rectifient

        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Finir si
Après

class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

nom de fichier " de class= de > (78 KBs) Javascript de href= le " de " attachmentDetails de class= " de (type de dossier détails)

couleur test

de >interior de " description " de class= de

le class= de

de >

Option explicite ApplyBRIO secondaire public () Faible wksFrom comme feuille de travail Faible wksTo comme feuille de travail Faible rngFrom comme gamme Faible rngTo comme gamme Faible c comme gamme Faible lngColArea en tant que longtemps Placer le wksFrom = les feuilles de travail (« chemins de BRIO X JIL ») Placer le wksTo = les feuilles de travail (« contraintes JIL ex de chemin ») Application.ScreenUpdating = faux Pour chaque c dans wksFrom.Range (« B1 : O1 ») Si c.NumberFormat aiment le « DDD * » alors Si le rngFrom n'est rien alors Placer le rngFrom = le wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column)) Autrement Placer le rngFrom = l'union (rngFrom, wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column))) Finir si Finir si Après Placer le rngTo = le wksTo.Range (« B3 : H62 ») Pour le lngColArea = 1 à rngFrom.Areas.Count Pour chaque c dans rngFrom.Areas (lngColArea). Cellules Si Len (équilibre (c.Value)) <> 0 puis Choisir le cas rngTo.Cells (c.Row - 2, lngColArea). Interior.Color Enfermer le vbYellow, vbRed 'juste transfert le texte rngTo.Cells (c.Row - 2, lngColArea). Valeur = c.Value Cas autrement 'transférer le texte et la couleur intérieure rngTo.Cells (c.Row - 2, lngColArea). Valeur = c.Value rngTo.Cells (c.Row - 2, lngColArea). Interior.Color = c.Interior.Color rngTo.Cells (c.Row - 2, lngColArea). Font.Color = c.Font.Color Extrémité choisie 'Arrêt Finir si Après Après Application.ScreenUpdating = rectifient Sous-marin d'extrémité

Question : Couleur intérieure

Réponse : Couleur intérieure