Comparer la couleur de fond entre cellules

[elsmador]

Bonjour à tous,

certaines cellules avec un même fond change de couleurs suivants certaines conditions. Je souhaite juste qu'en plus de cette petite alerte, une autre plus voyante s'affiche.

Très simplistement, j'ai pensé à ça, après avoir quelque peu potassé l'aide Excel :

If ActiveSheet.Columns("G").BackColor <> ActiveSheet.Range("B3").BackColor Then MsgBox "blablabla", , "Attention"

Merci d'avance !

 

[Robert]

Re : Comparer la couleur de fond entre cellules

Bonjour Elsmador et bienvenue, bonjour le forum,

Si la couleur est due à une mise en forme conditionnelle, il te faut comparer avec la condition et pas avec la couleur. Imaginons que B3 deviennent vert quand sa valeur est supérieure à 20... Ton code deviendrait :

If ActiveSheet.Columns("G").Interior.ColorIndex = 8 and ActiveSheet.Range("B3").Value > 20 Then MsgBox "blablabla", , "Attention"

À adapter à ton cas évidemment...

 

[elsmador]

Re : Comparer la couleur de fond entre cellules

Merci pour cette réponse.

Oui le changement de couleur est dû à une mise en forme conditionnelle. J'avais aussi pensé à le faire via la comparaison de la condition, mais ce n'est pas envisageable, car chaque cellule a une condition différente.

Je joins le fichier pour plus de clareté.

 

[Robert]

Re : Comparer la couleur de fond entre cellules

Bonsoir Elsmador, bonsoir el forum,

Ben, elles sont où les mises en forme conditionnelles dans ton fichier ?

 

[Fo_rum]

Re : Comparer la couleur de fond entre cellules

Bonsoir,

Plus il y a de boutons plus c’est lourd.
Donc un exemple sans bouton, évènement double clic, et sans utiliser la MFC.

 

[Robert]

Re : Comparer la couleur de fond entre cellules

Bonsoir elsmador, bonsoir le forum,

Désolé mais je vois toujours pas le rapport avec ta première question. Ta macro tourne impeccable et en effet c'est bien mieux sans bouton. À partir du dernier fichier que tu as envoyé, pourrais-tu réexpliquer ta demande sur les couleurs ?