Compter les cellules qui ont le même texte et la même couleur

[zephoenix]

Bonjour à vous tous,

J'ai pas cherché à gauche et à droite sur le forum et pas moyen de mettre la main sur la formule qui me permettrait de compter le nombre de cellule en fonction de la couleur et du texte.
J'ai tenté un =Sommecouleur(tableau;n° de la couleur;texte à chercher), car j'ai vu un fil sur ce forum qui en parlait mais ça ne fonctionne pas.
J'ai pourtant respecté vos conseils de ne pas utiliser de MFC car des fois ça pose problème.

Si une bonne âme pouvait m'aider

Vous en remerciant par avance

Zephoenix

 

[BOISGONTIER]

Re : Compter les cellules qui ont le même texte et la même couleur

Bonjour,

Voir PJ

=SOMMEPROD((champ=D3)*(couleurfond(champ)=3))

Function couleurFond(champ As Range)
  Application.Volatile           ' fonction matricielle
  Dim temp()
  ReDim temp(1 To champ.Count)
  For i = 1 To champ.Count
     temp(i) = champ(i).Interior.ColorIndex
  Next i
  couleurFond = Application.Transpose(temp)
End Function

JB

 

[zephoenix]

Re : Compter les cellules qui ont le même texte et la même couleur

Bonsoir Boisgontier

C'est tout simplement génial !!!
Avec mes connaissances je ne l'aurais jamais trouvé tout seul.
Merci beaucoup

BOnne soirée

Zephoenix

 

[Sabou]

Re : Compter les cellules qui ont le même texte et la même couleur

Bonjour,

J'ai testé c'est génial effectivement.
Est-il possible d'appliquer ceci sur une plage de données et non uniquement sur une colonne ?

Merci d'avance.

Bonne journée.

Sabou

 

[BOISGONTIER]

Re : Compter les cellules qui ont le même texte et la même couleur

Bonjour,

Voir PJ

JB

 

[Sabou]

Re : Compter les cellules qui ont le même texte et la même couleur

Re bonjour,

Merci beaucoup BOISGONTIER, j'ai testé, ça marche.
Au top.

Encore merci.

Sabou.