Couleur dans cellule en fonction d'une valeur d'une autre feuille

Question

J'aimerais que la couleur de la cellule change en fonction de la zone ce trouvant sur la feuille BD en colonne I. Je ne trouve pas la formule a écrire. Je suposse avec une recherchev mais je n'arrive pas à mettre en oeuvre cette formule J'aimerais aussi savoir comment le reproduire. Merci pour votre aide...

Dan · Accepted Answer

Pas avec une recherchev mais via un code...
Mettez ce code dans un module et associez le à un bouton (en dessous de vos deux boutons "afficher" et "masquer" par exemple)

Sub couleur()
Dim zone As Long, vert As Long, bleu As Long, orange As Long, violet As Long
Dim i as integer
vert = 11854022 ' vert
bleu = 15652797 'bleu
orange = 10086143 'orange
violet = 16751103 'violet

For i = 4 To Sheets("BD").Range("I" & Rows.Count).End(xlUp).Row Step 2
    Select Case Sheets("BD").Range("I" & i)
        Case Is = 1: zone = vert
        Case Is = 2: zone = bleu
        Case Is = 3: zone = orange
        Case Is = 4: zone = violet
    End Select
    Sheets("Plan").Range("A" & i + 4 & ":A" & i + 5).Interior.Color = zone
Next i
End Sub

NB : je n'ai pas trop compris pourquoi vous utilisez deux cellules par nom.

Si ok -->

Cordialement

EDIT : tant qu'à faire votre formule en A8 dans la feuille plan, vous pouvez mettre ceci --> =INDIRECT("BD!D" & LIGNE()-4), puis recopier vers le bas. De cette sorte la formule sera identique pour toute la colonne A

Dan · Answer

J'ai un doute sur ce que vous voulez : c'est bien dans la feuille plan colonne A qu'il faut changer la couleur ou c'est dans la feuille BD en colonne i ...