Discussion :

[Goffer]

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

[Daniel.C]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Double