MEFC par Excel & Reconnaissance couleurs par VBA
Niveau débutant, j'essaye de mettre en place une macro pour la qualification d'un test. Pour cela, j'ai 5 tableaux de valeurs (environs 12 colonnes et 10 lignes par tableau) et je voudrais que la macro m'indique que le test n'est pas qualifié si une des valeurs ne répond pas aux critères.
Sur ma feuille Excel, j'ai utilisé les mises en forme conditionnelles pour faire apparaître en rouge les valeurs hors critères.
Sur ma macro, je demande de vérifier la couleur de police de chaque case (mais au lieu de lire =3 la macro lit =-4105)
Est-ce qu'il existe un moyen pour détourner ce problème ?
J'ai fait un autre tableau pour illustrer mon problème sur ce forum :
Sur Excel j'ai le tableau suivant :
Les 12 mois de l'année de B3 à M3
Leur nombre de jours de B4 à M4 (MEFC en rouge si >30)
Je veux afficher la liste des mois en 31 jours dans la case B6
Et j'ai codé la macro suivante :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub MEFC()
Dim cc As Range
Dim StrMois As String
StrMois = ""
Sheets(1).Select
For Each cc In Range(Range("B4"), Range("M4"))
If cc.Font.ColorIndex = 3 Then
StrMois = StrMois & cc.Offset(-1, 0).Text & " "
Else
End If
Next cc
Range("B6").Value = StrMois
End Sub |
Cette macro ne marche que si je supprime la Mise en Forme Conditionnelle et que je mette moi-même en rouge les mois en 31 jours.
