Bonjour.
Ce ExtendOffice L'article explique comment insérer du code dans un module afin de calculer les valeurs des nombres dont sont en gras :
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Cependant, le code ignore les décimales et renvoie des résultats inexacts (en particulier lorsqu'il s'agit de petites valeurs).
Pour le tester, j'ai rempli un certain nombre de cellules en gras avec une valeur de "0.5" ou moins. Le code les a tous traités comme "0" et, par conséquent, a abouti à un calcul de zéro. Cependant, lorsque j'ai saisi des valeurs de "0.51" et plus, toutes ont été arrondies à "1", ce qui - encore une fois - a complètement mal calculé le résultat.
Quelqu'un a-t-il une solution pour cela? Le code suit.
Ce ExtendOffice L'article explique comment insérer du code dans un module afin de calculer les valeurs des nombres dont sont en gras :
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Cependant, le code ignore les décimales et renvoie des résultats inexacts (en particulier lorsqu'il s'agit de petites valeurs).
Pour le tester, j'ai rempli un certain nombre de cellules en gras avec une valeur de "0.5" ou moins. Le code les a tous traités comme "0" et, par conséquent, a abouti à un calcul de zéro. Cependant, lorsque j'ai saisi des valeurs de "0.51" et plus, toutes ont été arrondies à "1", ce qui - encore une fois - a complètement mal calculé le résultat.
Quelqu'un a-t-il une solution pour cela? Le code suit.
Fonction SumBold(WorkRng As Range)
'Mise à jour 20131202
Dim Rng comme plage
Dim xSum aussi longtemps
Pour chaque Rng dans WorkRng
Si Rng.Font.Bold Alors
xSum = xSum + Rng.Valeur
Si fin
Suivant
SommeGras = xSomme
Fonction de fin