Comparer des couleurs de cellule sous excel2003

Question

J'ai un fichier de prévisions - observations horaires codées sous forme de couleur. Je me demande s'il est possible avec une formule de comparer les couleurs des 2 séries: prévisions et observations. Je voudrais faire une comparaison aux heures, 3 heures et 6 heures de façon à obtenir un tableau de contingence. Je fournis un exemple simple avec quelques instructions en guise d'explications suppl. Merci en avance pour vos réponses Émil...

vba-new · Answer

Pour ma part, je n'ai pas tout compris comment tu trouves tes couleurs pour les blocs de 3h et 6h. Il faudrait plus d'explications. Qu'entends-tu par "couleur la plus élevée" ? Ex : pour le bloc de 3 heures entre 15 et 18 du vendredi 11/02, comment trouves-tu OJ ? De plus, tu ne t'es pas trompé sur la comparaison horaire entre 1h et 5h le samedi 12/02 ? Tu as mis OV OV OO OV alors que je verrais + : JV JV JJ JV Tu confirmes ...

vba-new · Answer

C'est tout à fait clair ! Sans VBA c'est possible en passant par la macro-fonction LIRE.CELLULE . Mais c'est un peu compliqué ! Voici plus où moins ma démarche : On utilise la fonction LIRE.CELLULE pour déterminer la couleur de la cellule. Pour cela, il est nécessaire de passer par la création de champs nommés pour utiliser cette fonction. J'ai créé une feuille qui contient les codes couleurs et les lettres associées. J'ai créé 3 champs nommés : 1. coulPrev =LIRE.CELLULE(63;INDIRECT(ADRESSE(4;COLONNE()))) 2. coulObs =LIRE.CELLULE(63;INDIRECT(ADRESSE(6;COLONNE()))) 3. formule =LIRE.CELLULE(63;INDIRECT(ADRESSE(LIGNE();COLONNE()))) - lignes 10 et 11 (à masquer si besoin car ce sont des lignes intermédiaires) de la feuille TP, j'ai mis les codes couleurs associés aux prévisions et observations - ligne 13 : j'ai mis une formule pour extraire les couleurs des prévisions - ligne 14 : j'ai mis une formule pour extraire les couleurs des observations Il y a peut-être moyen d'éviter les lignes intermédiaires ainsi que la création d'une nouvelle feuille là mais je ne vois pas trop...

Amadéus · Answer

Avec LIRE.CELLULE, macro-Fonction XL4 (qui déclenche l'avertissement Macro, bien que le fichier n'en comprenne pas) Formules Nommées 1) Sélectionner C4 La Formule =LIRE.CELLULE(63;!C$4) est nommée CouleurP 2) Sélectionner C6 La Formule =LIRE.CELLULE(63;!C$6) est nommée CouleurO Formule en C8 incrémentée vers la droite =INDEX({"V";"J";"O";"B"};EQUIV(CouleurP;{4;6;44;46};0))&amp;INDEX({"V";"J";"O";"B"};EQUIV(CouleurO;{4;6;44;46};0)) Formule en D10 à Copier coller sur les autres emplacements en Ligne 10 =SI(SOMMEPROD(--(GAUCHE(C8:E8;1) ="B"))&gt;0;"B";SI(SOMMEPROD(--(GAUCHE(C8:E8;1) ="O"))&gt;0;"O";SI(SOMMEPROD(--(GAUCHE(C8:E8;1) ="J"))&gt;0;"J";"V")))&amp;SI(SOMMEPROD(--(DROITE(C8:E8;1) ="B"))&gt;0;"B";SI(SOMMEPROD(--(DROITE(C8:E8;1) ="O"))&gt;0;"O";SI(SOMMEPROD(--(DROITE(C8:E8;1) ="J"))&gt;0;"J";"V"))) Formule en F12 à Copier coller sur les autres emplacements en Ligne 12 =SI(SOMMEPROD(--(GAUCHE(C8:H8;1) ="B"))&gt;0;"B";SI(SOMMEPROD(--(GAUCHE(C8:H8;1) ="O"))&gt;0;"O";SI(SOMMEPROD(--(GAUCHE(C8:H8;1) ="J"))&gt;0;"J";"V")))&amp;SI(SOMMEPROD(--(DROITE(C8:H8;1) ="B"))&gt;0;"B";SI(SOMMEPROD(--(DROITE(C8:H8;1) ="O"))&gt;0;"O";SI(SOMMEPROD(--(DROITE(C8:H8;1) ="J"))&gt;0;"J";"V"))) Cordialement...