Bonjour,

J'utilise cette fonction pour sommer la valeur de mes cellules selon leur couleur, cela fonctionne mais j'ai un arrondi or je voudrai la valeur exacte. Comment faire SVP ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
 
If wCell.Font.ColorIndex = NumeroDeCouleur Then
 
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function