Discussion :

[westeban29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[edelweisseric]

Bonjour à tous
BONJOUR westeban29

Tu devrais plutôt te tourner vers la vérification des mois qui sont supérieurs à 30, ce sera plus simple et plus efficace

Eric

[Bigalo]

Bonsoir,

Tu commets une erreur classique :

• Formate une cellule avec un fond rouge
• Ajoute une règle de MEFC disant que le fond doit être jaune si la cellule n’est pas numérique
• Ajoute une règle de MEFC disant que le fond doit être bleu si la cellule est <= 10
• Ajoute une règle de MEFC disant que le fond doit être vert si la cellule est > 10

Alors même que la cellule n’apparaîtra jamais avec un fond rouge tant qu’on aura pas effacé 1 règle au moins de la MEFC, ColorIndex renverra toujours la valeur correspondant au fond rouge, défini initialement.

Par conséquent en VBA, tu peux te baser sur les conditions de la MEFC, mais pas sur les couleurs découlant de la MEFC.

Cordialement,

[westeban29]

Pour la réponse d'edelweisseric, je comprends que la solution est + simple en vérifiant si >30, mais ce n'était qu'un exemple pour la discussion.
Dans mon cas, j'ai affaire à plusieurs tableaux, et chaque colonne a son propre critère de sélection.
Avec la vérification de la couleur de police, j'avais la possibilité en 1 fois de vérifier si mon test était ok ou non.
Je crois que je vais devoir vérifier colonne par colonne (à chaque changement de critère de sélection).

Pour la réponse de Bigalo, si je comprends bien, il n'existe aucun moyen de vérifier par une macro que la condition de la MEFC a bien eu lieu ?

Merci à tous les 2

[wilfried_42]

bonjour à tous

Si il y a une solution, mais snif, j'ai perdu le fichier, et ce n'est pas moi qui l'ai ecrit
Je connais l'analyse, mais mes connaissances sont plustot retreintes pour re-ecrire la macro rapidement. il va me falloir faire des recherches et ca risque d'etre long

Cordialement

[wilfried_42]

re:

j'ai retrouvé le fichier (il etait dans mon vieil ordi que j'ai donné à ma fille), à toi de l'adapter pour tes besoins

[Bigalo]

Re,

Pour la réponse de Bigalo, si je comprends bien, il n'existe aucun moyen de vérifier par une macro que la condition de la MEFC a bien eu lieu ?

Il n’y a pas de solution en testant la couleur. Il y en a en testant si chaque condition possible utilisée pour la MEFC est remplie, soit en VBA, soit en testant des cellules reprenant ces conditions, dans des lignes ou des colonnes éventuellement masquées.

Cordialement,

[westeban29]

Merci pour vos réponses.
Je pense qu'avec ça je devrais m'en sortir.
A+