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

[wrndid]

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]

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]

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 ...

@+

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