Bonjour,
Je tourne en rond ...
Actuellement une mise en forme conditionnelle :
permet de passer une cellule en rouge, lorsque son contenu n'est pas trouvé présent sur un autre onglet..
Code : Sélectionner tout - Visualiser dans une fenêtre à part =ET(ESTERREUR(RECHERCHEV(C5;Liste_Pièces;1;FAUX));C5<>"Pièce";NBCAR(C5)>0)
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 :
ou, aussi avec : .DisplayFormat.Interior.Color ... Pas mieux..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 If Worksheets("Entrées").Range("C" & MaLigne).Interior.Color = vbRed Then MsgBox "Ok" End If
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.
Partager