Bonsoir tlm, j'ai pris une fonction de 'Ti prise sur le forum calculant la somme des chiffres des cellules d'une même couleur cependant je n'arrive pas à avoir les chiffres après la virgule, de plus ça arrondi le résultat au chiffre inférieur ou supérieur
Fonction :

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