Compter des cellules mises en forme par MFC

Bonjour à tous,

JE suis trés embétté, voila plusieurs jours que je m'arrache les cheveux mais sans succés.

Je n'arrive pas a compter des cellules mise en forme par MFC, j'ai téléchargé une mutitude de code et aucun fonctionne correctement à 100%, je me demande donc si oui ou non c'est possible?

en gros j'ai un tableau disposant de ligne disons de 10 cellules chacune, sur cette ligne les cellule s'alterne en rouge ou rien (trés important car le rien reste une MFC... enfin je crois) a la fin de cette ligne j'aurais aimé une fonction qui compte le nombre de cellule colorié en rouge grâce à la MFC.

J'ai fait une boucle qui parcoure la ligne pour compter, sur chaque cellule de la ligne elle teste la valeur du Colorindex grace a la fonction suivante, si la valeur retourner et égale a 3 (rouge: notre exemple) et bien je fait +1...

JE vous fournis le code capable de retourner le numéro d'une couleur de MFC, mais ce dernier fonctionne quand il veux, des fois c'est rouge il retourne 0 des fois c'est vide il retourne 3.... les premiere ligne fonctionne... et je ne comprend vraiment plus rien :cry::

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Public Function CouleurMFC(RG As Range, Optional Mode As Byte = 0) As Variant Dim e As Long, i As Byte, LoTest As Boolean Dim LoMFC As FormatCondition Application.Volatile 'boucle sur le nombre de condition(s) 'Si pas de MFC .FormatConditions.Count renvoi 0 For i = 1 To RG.FormatConditions.Count Set LoMFC = RG.FormatConditions(i) If LoMFC.Type = xlCellValue Then 'tester le type de la formule entrée Select Case LoMFC.Operator Case xlEqual LoTest = RG = Evaluate(LoMFC.Formula1) Case xlNotEqual LoTest = RG <> Evaluate(LoMFC.Formula1) Case xlGreater LoTest = RG > Evaluate(LoMFC.Formula1) Case xlGreaterEqual LoTest = RG >= Evaluate(LoMFC.Formula1) Case xlLess LoTest = RG < Evaluate(LoMFC.Formula1) Case xlLessEqual LoTest = RG <= Evaluate(LoMFC.Formula1) Case xlNotBetween LoTest = (RG < Evaluate(LoMFC.Formula1) Or RG > Evaluate(LoMFC.Formula2)) Case xlBetween LoTest = (RG >= Evaluate(LoMFC.Formula1)) And (RG <= Evaluate(LoMFC.Formula2)) End Select If LoTest Then 'Peu ajouter d'autre format si nécessaire, 'comme la bordure, la police etc.. Select Case Mode Case 0 CouleurMFC = LoMFC.Interior.ColorIndex Case 1 CouleurMFC = LoMFC.Interior.Color End Select Exit Function End If End If Next i CouleurMFC = 0 End Function

---

help me please :calim2:

Salut, à lire sur les couleurs des MFC

Merci kiki29 pour la réponse.

Mais ca ne change rien, j'ai testé l'ensemble des codes de la page et aucun ne me retourne un résultat exploitable.

Je remarque qu'il s'apparente beaucoup à mon code fournis plus haut, du moins pour extraire l'information du colorindex.... est ce office 2010 qui me pose des probléme?

Salut, sous Excel 2002 cela fonctionne, mais effectivement avec 2007 cela ne fonctionne pas tel quel, il faut retoucher ActiveCondition et GetStrippedValue

Bonjour et merci pour la réponse ca me rassure...

Vous pourriez etre un tout petit peu plus precis sur les modifications à apporter? car comme je l'ai précisé voila quelques jours que je m'arrache la tete et je viens poser ma question ici vraiment quand je suis perdu... a la limite un tuto qui parle précisément de ca en 2010 je suis prenneur si vous avez... mais je trouve ca nulpart: en VBA recupérer les informations des cellules mise en forme par MFC. (plus précisément colorindex)

de plus par l'impossibilité de récupérer un code fonctionnel sous 2010, je suis presque persuadé qu'une fois ce poste résolu il sera beaucoup consulté.

Sur le code que j'ai fournis qu'est ce qui faudrais corriger pour pouvoir le rendre fonctionnel? il est quand même beaucoup plus claire que active condition et getstrippedvalue de par sa petite taille... car ca doit bloquer a peut pret au même niveau je pense....

Salut, juste pour tester sous 2007 avec 5 conditions et brut de fonderie,
je ne l'ai fait que pour la condition xlBetween dans ActiveCondition
en remplaçant

Code:

---

1 2	If CDbl(Rng.Value) >= CDbl(FC.Formula1) And _ CDbl(Rng.Value) <= CDbl(FC.Formula2) Then .....

---

par

Code:

---

1 2	If CDbl(Rng.Value) >= CDbl(Temp) And _ CDbl(Rng.Value) <= CDbl(Temp2) Then .....

---

et dans GetStrippedValue

Code:

---

1 2 3 4 5 6

If InStr(1, CF, "=", vbTextCompare) Then Temp = Mid(CF, 3, Len(CF) - 3) If Left(Temp, 1) = "=" Then Temp = Mid(Temp, 2) End If Else.....

---

par

Code:

---

1 2 3

If InStr(1, CF, "=",vbTextCompare) Then Temp = Mid$(CF, 2, Len(CF) - 1) Else .....

---

ActiveCondition ne me retourne que des 0, et le getstripped récupére la chaine de texte a l'intérieur de la cellule...

J'ai tenter de modifier les autres conditions de la même maniére, en prenant la variable temp définit avec le getstrippedvalue mais rien ne fonctionne...

Sinon regarde mon code fourni plus haut, comme préciser il me retourne en théory le code couleur de la MFC, ce dernier fonctionne sur les premiere ligne, et plus je tire pour calculer les lignes suivantes plus ils se trompe et me retourne des 0... si ce code fonctionné je pourrais me dépatouiller en faisant une boucle qui parcourt la ligne, teste si la couleur MFC de la cellule et égale au code couleur défini en paramétre ou différent de 0 si 0 et bien la couleur neutre...

Bonjour et bon wekend a tous,

Personne a d'idée sur mon probléme? Voulez vous un fichier excel exemple de ce que je veux?

J'ai une ligne A, de 20 colonne elle est comparée a une autre ligne B de 20 colonne, dans la ligne A les cellules qui ont une valeur supérieur à leurs correspondante dans la ligne B se colore en rouge (fond de cellule) à l'aide d'une MFC.
je voudrais que sur la 21 colonne de la ligne A, apparaise le nombre (count) de cellule rouge de la ligne....