Compter les cellules contenant du texte bleu

bonjour,

Q'un pourrait-il m'aider à renseigner les cases K2 et M2 de la feuille "stat" ?

ma demande est un peu complexe : je souhaite comptabiliser le nombre de cellules contenant du texte bleu entre les lignes G2 et G600 de la feuille "trades" .

Mais attention, entre G2 et G600 ne seront comptabilisées que les cellules pour lesquelles, figurent en colonne A de la feuille "trades" un fond vert. Ainsi, toutes les lignes ne contenant pas de fond vert en colonne A de la feuille "trades" ne m'intéressent pas.

une idée? car de forums en forums je désespère !

merci

Bonjour,
Une solution avec la fonction SOMMEPROD combinée à une fonction personnalisée nommée Color qui renvoie le code RGB Intérieur ou Font de la cellule.
La formule en colonne A renvoie le nombre de cellules ayant un code Font de B2 à B17 = au code Font de E2 et si le code Interior de A2:A17 = code interior de D2.
Bien sûr la référence au cellules E2 et D2 peut être remplacé par le code RGB lui-même.

Code:

---

=SOMMEPROD( (color(B2:B17;FAUX)=$E$2) * (color(A2:A17)=$D$2) * 1)

---

Donc en D2

Code:

---

=color(A5)

---

Donc en E2

Code:

---

=color(B5;FAUX)

---

La fonction personnalisée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Function Color(Cell As Range, Optional Interior As Boolean = True) ' Renvoie le code RGB d'un range ' Cell : Range ' [Interior] False si la fonction doit renvoyer le code de la propriété Font Dim c As Range, count As Long Dim cc() ' Code Color Select Case True Case Cell.count = 1 With Cell If Interior Then Color = .Interior.Color Else Color = .Font.Color End With Case Else For Each c In Cell ReDim Preserve cc(count) With Cell If Interior Then cc(count) = c.Interior.Color Else cc(count) = c.Font.Color End With Debug.Print cc(count) count = count + 1 Next c Color = cc End Select End Function

---

[EDIT]
Attention, si l'on souhaite que la fonction SOMMEPROD réagisse dynamiquement en cas de modification de couleur des cellules concernées, il faut utiliser le pinceau (reproduction de la mise en forme) ou le collage spécial/Format.

merci pour cette réponse Philippe.

je capte rien...je ne suis pas assez calé en excel :calim2:

par contre je peux reformuler plus simplement ma demande :

- sur la PJ, je souhaite connaitre combien de transactions "longues" ont un résultat positif, et combien ont un résultat négatif.

- idem pour les transactions "courtes"

réponse trouvée ailleurs, je vs la poste ici :

Une fonction personnalisée (une de plus)
Syntaxe
= NBCouleursMultiple(Plage 1; Cellule 1; Plage 2; Cellule 2)
Plage 1 : Zone de recherche de la couleur du fond
Cellule 1 : Cellule ayant la couleur du fond recherchée
Plage 2 : Zone de recherche de la couleur du texte
Cellule 2 : Cellule ayant la couleur de texte recherchée

Attention les plages doivent avoir les mêmes dimensions



merci pour votre aide

a+

résolu!

Bonjour,
C'est bien de faire profiter aux autres de ta trouvaille mais sans le code qui s'y rapporte, je doute que cela aide. :lol:

Tu peux essayer ceci (sans se soucier de la couleur)
Pour Long positif

Code:

---

=SOMMEPROD((A2:A100="Long")*(G2:G100>0))

---

PS: je doute que les couleurs sont issues d'un MFC

Bonjour,

Citation:

---

Envoyé par mercatog

Tu peux essayer ceci (sans se soucier de la couleur)
Pour Long positif

Code:

---

=SOMMEPROD((A2:A100="Long")*(G2:G100>0))

---

---

C'est évident que si ruliann avait tout de suite affiché l'écran de sa base de données, je n'aurais pas proposé une fonction qui renvoie un code couleur :calim2:

Bonjour Philippe
D'ailleurs j'ai aimé ta fonction et j'ai voté +1 (je l'ai même simplifié et gardé pour moi)
Sinon, je suis d'accord, tu as répondu à la question qui a été posée initialement.

re corona

je vous remets le fichier en PJ dès que je l'ai terminé pour ceux que ca intéresse

là ca fait 2h que je m'arrache un peu les cheveux avec la soluce de Corona qui me sert pour autre chose. Convaincu que ca peut le faire, je persiste un peu avt de revenir pleurer ! :zoubi:

Citation:

---

Envoyé par corona

Bonjour,
C'est bien de faire profiter aux autres de ta trouvaille mais sans le code qui s'y rapporte, je doute que cela aide. :lol:

---

voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Function NBCouleursMultiple(Plage1 As Range, Fond As Range, Plage2 As Range, Texte As Range) Dim CouleurFond As Integer Dim CouleurTexte As Integer Dim J As Long, K As Integer   If (Plage1.Rows.Count <> Plage2.Rows.Count) Or (Plage1.Columns.Count <> Plage2.Columns.Count) Then MsgBox "Les 2 zones doivent être de dimensions identiques" NBCouleursMultiple = "ERREUR" Exit Function End If CouleurFond = Fond.Interior.ColorIndex CouleurTexte = Texte.Font.ColorIndex   For J = 1 To Plage1.Rows.Count For K = 1 To Plage1.Columns.Count If (Plage1.Cells(J, K).Interior.ColorIndex = CouleurFond) And (Plage2.Cells(J, K).Font.ColorIndex = CouleurTexte) Then NBCouleursMultiple = NBCouleursMultiple + 1 End If Next K Next J   End Function

---

Bonjour,
En faisant un test supplémentaire en combinant la fonction d'excel SOMMEPROD et la fonction personnalisée Color, je me suis rendu compte qu'il y avait un problème.
En effet, pour que SOMMEPROD puisse fonctionner avec une fonction renvoyant un tableau, il faut renvoyer un tableau à 2 dimensions.
Je ferai une contribution à ce sujet demain ou après-demain.
Voici la fonction Color rectifiée

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

Function Color(Cell As Range, Optional Interior As Boolean = True) ' Renvoie le code RGB d'un range ' Cell : Range ' [Interior] False si la fonction doit renvoyer le code de la propriété Font Dim r As Long, c As Integer Dim cc() Dim cellRows As Long, cellColumns As Integer Select Case True Case Cell.count = 1 With Cell If Interior Then Color = .Interior.Color Else Color = .Font.Color End With Case Else With Cell cellRows = .Rows.count cellColumns = .Columns.count End With ReDim cc(1 To cellRows, 1 To cellColumns) For r = 1 To cellRows For c = 1 To cellColumns If Interior Then cc(r, c) = Cell(r, c).Interior.Color Else cc(r, c) = Cell(r, c).Font.Color End If Next c Next r Color = cc End Select End Function

---

Bonsoir,

Citation:

---

Envoyé par ruliann

re corona
je vous remets le fichier en PJ dès que je l'ai terminé pour ceux que ca intéresse
là ca fait 2h que je m'arrache un peu les cheveux avec la soluce de Corona qui me sert pour autre chose. Convaincu que ca peut le faire, je persiste un peu avt de revenir pleurer ! :zoubi:

---

Pour ton cas particulier et après avoir vu l'image de ta plage de données, je suis convaincu que c'est la solution proposée par Mercatog qui est la bonne.

merci pour ta recherche corona

je testerai ta formule "color modifiée" demain, c'est tjs utile d'en apprendre un peu plus!