Tester la couleur d'une cellule
shasha17
Messages postés
1
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais tester sur une plage Excel (A7 : AR1000) qu'il ne reste plus de couleur sur aucune des cellules.
Dans le cas où il resterait du rouge, orange ou jaune, le message suivant doit apparaître : "corriger vos erreurs".
Je vous remercie par avance pour l'aide apportée!
Je voudrais tester sur une plage Excel (A7 : AR1000) qu'il ne reste plus de couleur sur aucune des cellules.
Dans le cas où il resterait du rouge, orange ou jaune, le message suivant doit apparaître : "corriger vos erreurs".
Je vous remercie par avance pour l'aide apportée!
1 réponse
-
Bonjour,
Un code simple qui répond à « Je voudrais tester sur une plage Excel (A7 : AR1000) qu'il ne reste plus de couleur sur aucune des cellules. » :Sub Test() If Range("A7:AR1000").Interior.Color <> &HFFFFFF Then MsgBox "Corriger vos erreurs" End If End Sub
Par contre pour répondre à « Dans le cas où il resterait du rouge, orange ou jaune, ... » est quasiment impossible à moins qu'il ne soit employé qu'un seul des multiples rouges, oranges ou jaunes possibles.
