Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Sandrine123

XLDnaute Nouveau
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.
 

Pièces jointes

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 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…