Difficultés à tester couleur Range attribuée par MFC

Bonjour,

Je tourne en rond ...

Actuellement une mise en forme conditionnelle :

Code:

---

=ET(ESTERREUR(RECHERCHEV(C5;Liste_Pièces;1;FAUX));C5<>"Pièce";NBCAR(C5)>0)

---

permet de passer une cellule en rouge, lorsque son contenu n'est pas trouvé présent sur un autre onglet..
Cela fonctionne correctement.

Je cherche maintenant, en vain, a tester la couleur de cette cellule (rouge..) pour déclencher une mise à jour de l'onglet incomplet.

Pour ce faire, j'ai forcément testé (sans bon résultats) comme cela :

Code:

---

1 2 3 4 5

If Worksheets("Entrées").Range("C" & MaLigne).Interior.Color = vbRed Then   MsgBox "Ok"   End If

---

ou, aussi avec : .DisplayFormat.Interior.Color ... Pas mieux..

J'ai entrevu des solutions qui me paraissaient un peu trop "alambiquées" pour le but recherché, et ai essayé aussi de transformer ma formule entrée en MFC, en code VBA.

... Pas facile non plus, car l'utilisation d'une routine gérant VLookup (en remplacement de RechercheV), ne m'a pas permis de m'en sortir après 3 jours ...

Je reviens donc sur mon idée première, qui peut-être, pourrais être solutionnée plus facilement ?...

Qu'en pensez-vous ?

Max.

Bonjour, ton code vba est correct et doit fonctionner. Attention cependant, la constante vbRed correspond au rouge dont le code RVB est 255,0,0.
Si le rouge que tu utilises est plus foncé ou plus clair, vbRed ne le considère pas comme rouge.

Bonjour max60fr

Contrairement à ce que dit Franc,
comme il s'agit de couleur attribuée par une MFC, pour moi le code n'est pas bon, il faut utiliser

Code:

---

If Worksheets("Entrées").Range("C" & MaLigne).DisplayFormat.Interior.Color =

---

A+

Oups, mea culpa, je me suis concentré sur la couleur en oubliant que c'était le résultat d'une MFC et dans ce cas ce que j'ai dit précédemment n'est pas correct.
Voici une petite macro pour récupérer la couleur de la cellule et l'utiliser dans un test:

Code:

---

1 2 3 4 5 6 7

Sub CouleurCellule() Dim cell As Range Set cell = Range("A1") 'A adapter MsgBox "La couleur de la cellule est " & cell.DisplayFormat.Interior.Color 'Exemple de test 'If Range("A1").DisplayFormat.Interior.Color = 192 Then End Sub

---

Bonjour tous deux.

Merci pour vos réponses .. un peu top rapides pour Franc. ;)

Pour ma part, après avoir lu vos infos, je ne peux que constater qu'un de mes neurones n'a pas bien fonctionné lors de mes essais avec 'DisplayFormat.Interior.Color", car j'avais bien comme résultat 255 avec le remplissage Rouge, mais bêtement cette valeur m'a paru être une erreur (!) et je ne suis pas allé plus loin !

Aujourd'hui, tout est Ok !
Je vais pouvoir continuer..

Merci encore a vous deux.

Max.