Discussion :

[XceSs]

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

[hben1961]

Bonjour à tous

Un essai avec le code suivant (Suppression de la déclaration As Long à la première ligne du code):

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%) 
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

Cordialement

[XceSs]

Merci pour la rapidité et l'efficacité ça fonctionne parfaitement

See You ©Xs