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

[Sandrine123]

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]

Bonjour à tous,

Sans macro mais avec une MFC

JHA

 

[DoubleZero]

Bonjour, Sandrine123, JHA 🙂, le Forum,

Une autre possibilité avec le code suivant :

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]

Bonjour JHA et Doublezero,

Merci pour tout !

Bonne journée 🙂