problème d'arrondi

[kigwen]

Bonjour à tous,

J'utilise la fonction "ColorCountIf" qui avait été gentilement posté sur l'ancien forum.
Le problème est que le résultat obtenu est toujours arrondi et la je calle.

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 + cell.Value
Next cell

End Function

Si quelqu'un à la solution merci d'avance

 

[tototiti2008]

Re : problème d'arrondi

Bonjour kigwen,

Bienvenue sur XLD,

à tester :

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

 

[kigwen]

Re : problème d'arrondi

génial ca fonctionne

merci beaucoup

 

[gaouti]

Re : problème d'arrondi

Bonjour kigwen,

Bienvenue sur XLD,

à tester :

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

Merci beaucoup votre solution m'a énormément aidé