=ColorCountIf(LC(-32):LC(-2);LC)

wrndid · 30 Mai 2007

bonjour comment faire pour mettre cette formule dans un macro a la place de dans la cellule et de rentrée le resultat dans f1
merci

Pierrot93 · 30 Mai 2007

Re : =ColorCountIf(LC(-32):LC(-2);LC)

Bonjour Wrndid,

perso je ne connais pas cette fonction, sans doute une fonction personnalisé ou une macro complémentaire importée ...

@+

wrndid · 30 Mai 2007

Re : =ColorCountIf(LC(-32):LC(-2);LC)

Pierrot93 à dit:
Bonjour Wrndid,

perso je ne connais pas cette fonction, sans doute une fonction personnalisé ou une macro complémentaire importée ...

@+

voici la formule
Didier

Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer

Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function

=ColorCountIf(LC(-32):LC(-2);LC)

wrndid

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

wrndid

XLDnaute Occasionnel

Discussions similaires

=ColorCountIf(LC(-32):LC(-2);LC)

wrndid

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

wrndid

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency