Tester la couleur d'une cellule

Fermé
shasha17 Messages postés 1 Date d'inscription vendredi 31 mai 2013 Statut Membre Dernière intervention 31 mai 2013 - 31 mai 2013 à 11:13
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 31 mai 2013 à 12:55
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!
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
31 mai 2013 à 12:55
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.
0