Arrondi forcé Fonction Excel Résolu/Fermé

Question

Bonjour, à tous, j'ai crée une formule VBA qui calcule la moyenne des cellules dont la couleur de police est noire. 

Le code est le suivant : 

Function MoyenneSiCouleur(Plage As Range, NumeroDeCouleur As Integer) As Long
Dim SommeSiCouleur As Double
Dim CountSiCouleur As Double
SommeSiCouleur = 0#
CountSiCouleur = 0#
Application.Volatile True
Dim Cellule As Range
For Each Cellule In Plage
If Cellule.Font.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + Cellule.Value
CountSiCouleur = CountSiCouleur + 1
End If
Next
MoyenneSiCouleur = SommeSiCouleur / CountSiCouleur
End Function

Mon problème est le suivant : le code arrondi la moyenne à l'entier, or je travaille avec des pourcentages et l'arrondi fait que le résultat est systématiquement 0..

J'ai mis le format de la cellule de résultat en % avec 4 chiffres significatifs, essayé des formules "ARRONDI" dans VBA, rien n'y fait..  

Merci !

Configuration: Windows / Chrome 87.0.4280.66

f894009 · Answer

Bonjour,
'entier long
Function MoyenneSiCouleur(Plage As Range, NumeroDeCouleur As Integer) As Long
'nombre decimal
Function MoyenneSiCouleur(Plage As Range, NumeroDeCouleur As Integer) As Single
ou
Function MoyenneSiCouleur(Plage As Range, NumeroDeCouleur As Integer) As Double

yg_be · Answer

bonjour,
peux-tu utiliser les balises de code quand tu partages du code?
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

pourquoi as-tu choisis Long comme type pour la valeur retournée par la fonction?

Utilisateur anonyme · Answer

Bonjour

pour tes prochains post, merci de lire attentivement, ce petit tuto  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Je ne fais quasiment pas de VBA, et là j'ai pas office sous la main.

Je pars donc d'une supposition se basant sur un point exact en C# (sait on jamais).
Donc en C# si tu divises un nombre entier par un nombre entier sa donne le quotient de la division euclidienne (c'est pas un arrondi).
Par exemple 7 / 2 => 3 car la division euclidienne est : quotient = 3, reste = 1.
Ou encore 20/3 => 6 (si ça avait été arrondi cela aurait été 7).
Toujours en C# pour obtenir le résultat sous forme d'un nombre décimal (double par exemple), il faut faire en sorte que l'un des membres de la division devienne un double: (7 * 1.0) / 2 => 3.5

Je ne sais pas si c'est valable en VBA, mais à tout hasard.

Sirrol13 · Answer

C'est résolu, effectivement problème avec la nature de la fonction ! Merci à tous !

Arrondi forcé Fonction Excel

4 réponses

Discussions similaires