Conforme s’il n’y a pas de rouge

Bonjour à tous

J’espère que vos vacances se passent bien … en général, oui !!

Voilà mon problème

Je cherche à mettre dans la cellule G1, CONFORME (vert) ou NON CONFORME (rouge). En fonction s’il y a ou non du rouge dans les cellules D14 à H18

G1 = sera CONFORME et vert s’il n’y a pas de couleur rouge dans les cellules D14 à H18

G1 = sera NON CONFORME et rouge s’il y a une couleur rouge dans les cellules D14 à H18

Par avance merci

Bonjour

Les cellules mises en rouge ont été colorées manuellement ou par MFC?

Crdlt

Bonjour,

En général on évite d'utiliser une couleur pour ce genre de chose, on va préférer mettre en place des règles pour savoir si une valeur est conforme ou non, utiliser des mises en forme conditionnelles pour affecter la couleur rouge, et utiliser ces mêmes règles pour compter le nombre de non conformes.

Je propose tout de même une solution avec application manuelle des couleurs:

Code utilisé pour la macro:

Function f_getCouleurPlage(Plage As Range) As Variant
Dim tableau As Variant

Application.Volatile

ReDim tableau(1 To Plage.Rows.Count, 1 To Plage.Columns.Count)

For i = 1 To UBound(tableau, 1)
    For j = 1 To UBound(tableau, 2)
        tableau(i, j) = Plage.Cells(i, j).Interior.Color
    Next j
Next i

f_getCouleurPlage = tableau
End Function

A noter que dans Excel, changer la couleur d'une cellule ne relance pas les calculs, il faut donc relancer soit même le calcul soit avec le raccourci "F9", soit en allant dans l'onglet "Formules" du ruban et en cliquant sur "Calculer Maintenant"

Merci pour votre retour

Joco7915

C’est fait automatiquement (complément de fichier)

Ausecour

Ce n’est juste que pour pourvoir si cela est ou non « Conforme »

Ci-joint fichier avec un peu plus d’information

Bonjour,

En effet si c'est fait par mise en forme conditionnelle avec des conditions, alors on peut faire ça:

Je ne maîtrise pas bien les fonctions office 365 donc je suis partis sur une solution simple avec une colonne d'aide qui compte le nombre de non conformité pour chaque ligne, si le total du nombre de non conformité est égal à 0, alors c'est conforme, sinon c'est non conforme.

Merci Ausecour pour ton aide

Quand le résultat est CONFORME le texte reste toujours rouge

J’ai essayé d’adapter la ligne ci-dessous … sans succès

=SI(SOMME(SI(f_getCouleurPlage(J29:J33)=255;1;0))=0;"CONFORME";"NON CONFORME")

Merci Ausecour pour ton aide

Quand le résultat est CONFORME le texte reste toujours rouge

J’ai essayé d’adapter la ligne ci-dessous … sans succès

=SI(SOMME(SI(f_getCouleurPlage(J29:J33)=255;1;0))=0;"CONFORME";"NON CONFORME")

Bonjour,

En effet, il n'y a pas de mise en forme conditionnelle dans le fichier pour changer le format de la cellule en fonction de son contenu, c'est ajouté:

Merci Ausecour … ça fonction