afficher 1 en D4 si B4 est de couleur verte

[excelnoober]

bonjour
je pense avoir tout mis dans le titre,
j ai une liste de noms en colonne B dont certains ont ete colorés en vert selon une MFC. dans un premier temps je voulais faire apparaitre une msg box si une cellule verte apparaissait en colonne B.
n ayant pas de reponse j ai repensé la demarche.

faire apparaitre en D4 le chiffre 1 si la cellule B4 est verte
pour ensuite faire apparaitre un msgbox si une cellule de ma colonne D contient le chiffre 1
pourriez vousm aioder SVP ?

 

[kingfadhel]

Bonsoir,

Sub couleurs()
   If Range("B4").Interior.color = RGB(0, 128, 0) Then
   Range("D4") = 1
   End If
  
End Sub

 

[excelnoober]

bonsoir et merci kingfadhel
etant un peu perdu
ce code text je dois le copier sur ma feuille ou dois je ouvrir un module dans la feuille?
merci

 

[kingfadhel]

Re,
Une autre solution qui s'étend sur toute la colonne B: détecte la dernière cellule et teste si la couleur est verte ensuite met "1" dans la cellule D correspondante.