Ma formule me donne un nombre arrondi

bonjour,

j'ai trouvé une formule pour additionner les valeurs de mon tableau selon leur couleur de police mais le total est faux. Il s'affiche bien en nombre décimal mais arrondi cad au lieu de donner 5.10 il me donne 5.00 par exemple.

Voici la formule utilisée : =SommeSiCouleur(C58:AG90;3)+NB.SI(C58:AG90;1)*2

Merci pour votre aide, je n'y connais rien en VBA : j'ai fait du copier-coller pour les modules depuis l'exemple trouvé (après bien des heures de recherche internet)

Bonsoir à tous, @zyon47,

Peux-tu joindre le fichier pour que l'on essai de résoudre ton problème.

Cordialement

bonsoir,

merci pour votre intérêt.

je vous joints un extrait en espérant que vous pourrez me trouver une solution

Bonjour,
Attention aux types de variables.
Dans ce cas Double au lieu de Long.
Cdlt.

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

    Application.Volatile True

    For Each wCell In Plage
        If wCell.Font.ColorIndex = NumeroDeCouleur Then
            SommeSiCouleur = SommeSiCouleur + wCell.Value
        End If
    Next

End Function

merci ça fonctionne

bonne soirée

Bonjour,