XL 2013 Colorer des cellules en fonction d'un autre tableau

Sandrine123 · 28 Avril 2017

Bonjour à tous,

J'aimerais votre aide pour une macro excel

Dans mon fichier excel, j'ai 2 onglets avec sur chaque un tableau.
Sur le premier j'ai des valeurs avec des chiffres
Sur le second j'ai des lettres
(nous pouvons ignorer les colonnes A à H)

Je souhaiterais que lorsque dans le tableau_2, j'ai la lettre Z, la case de même coordonnées sur l'onglet tableau_1 soit en rouge.
Pour toute lettre différente de Z, je souhaiterais que la case de même coordonnées de l'onglet tableau_1 soit en jaune.
Pour les cases sans lettres, ne rien faire.

Je vous joins un fichier exemple.

Merci d'avance.

Belle journée à vous.

JHA · 28 Avril 2017

Bonjour à tous,

Sans macro mais avec une MFC

JHA

DoubleZero · 28 Avril 2017

Bonjour, Sandrine123, JHA , le Forum,

Une autre possibilité avec le code suivant :

VB:

Option Explicit
Sub Rouge_jaune()
    Dim c As Range
    Application.ScreenUpdating = 0
    Sheets("Tableau1").Range("i:k").Interior.ColorIndex = xlNone
    For Each c In Sheets("Tableau_2").Range("i2:k10000").SpecialCells(xlCellTypeConstants)
        Select Case c
        Case "Z": Sheets("Tableau1").Range(c.Address).Interior.ColorIndex = 3
        Case Else: Sheets("Tableau1").Range(c.Address).Interior.ColorIndex = 6
        End Select
    Next
    Application.ScreenUpdating = -1
End Sub

A bientôt

Sandrine123 · 28 Avril 2017

Bonjour JHA et Doublezero,

Merci pour tout !

Bonne journée

XL 2013 Colorer des cellules en fonction d'un autre tableau

Sandrine123

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Sandrine123

XLDnaute Nouveau

Discussions similaires