Tester la couleur d'une cellule [Fermé]

Signaler
Messages postés
1
Date d'inscription
vendredi 31 mai 2013
Statut
Membre
Dernière intervention
31 mai 2013
-
Patrice33740
Messages postés
7945
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
17 février 2020
-
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!

1 réponse

Messages postés
7945
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
17 février 2020
1 290
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.