[Résolu] Inclure SUM dans ma fonction personnalisée

[Lone-wolf]

Bonjour à tous,

j'aimerais inclure Sum dans ma fonction, en gros, faire la somme d'une ligne et d'une colonne et arrondir.

Public Function ARRONDIR(Nombre As Double, Nb_chiffres As Double) As Double
Dim indice As Double
indice = 0.5
ARRONDIR = Round(Nombre / indice, 1) * indice
End Function

Dans l'aide je n'ai rien trouvé, et j'ai testé plusieures méthodes sans résultat.
Merci pour votre aide


A+ 😎

 

[Efgé]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Bonjour à tous,
Tout ça, pour ça:

Public Function ARRONDIR2(Plg As Range)
Application.Volatile
Dim indice As Double
indice = 0.5
ARRONDIR2 = Round(WorksheetFunction.Sum(Plg) / indice, 1) * indice
End Function

Cordialement
EDIT Voir

Public Function ARRONDIR2(Plg As Range)
Application.Volatile
ARRONDIR2 = Round(WorksheetFunction.Sum(Plg) / 0.5, 1) * indice
End Function

Cordialement

 

[Lone-wolf]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Good Morning Efgé,

Tank's For Your Simplified Code 😉


Good Week 😎

 

[Lone-wolf]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Re Efgé,

je ne comprends pas pourquoi ça affiche #VALEUR quand je clique sur FX, et quand je clique sur enregistrer le total s'affiche. 😕 😕 😕


A+ 😎

 

[Efgé]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Bonjour à tous,
Parce que,comme d'habitude, j'ai été trop vite....

Public Function ARRONDIR3(Plg As Range)
Application.Volatile
ARRONDIR3 = Round(WorksheetFunction.Sum(Plg) / 0.5, 1) * 0.5
End Function

Cordialement

 

[Lone-wolf]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Bonjour Efgé,

C'est quoi le hic en mettant Indice au lieu de 0.5?

Merci pour la correction.


A+ 😎

 

[Lone-wolf]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Re,

c'est toujours la même chose. Alors j'ai repris cet exemple.

Option Explicit

Function ARRONDIR(Plage As Object)
Dim cell As Range, Total As Double, nb As Double

nb = 0.5

For Each cell In Plage
  Total = Total + cell.Value
Next
ARRONDIR = Round(Total / nb, 1) * nb

On Error Resume Next
If IsError(ARRONDIR) Then ARRONDIR = ""
End Function

J'ai aussi ce petit problème, les totaux ne se déduisent pas automatiquement, quand je modifie les nombres.

A+ 😎

 

[JNP]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Re 🙂,
Quitte à souhaiter faire ramer Excel, une version quasi aussi rapide qu'en formule

Function ArrondirJNP(Plage As Range)
Application.Volatile
ArrondirJNP = Application.WorksheetFunction.MRound(Application.WorksheetFunction.Sum(Plage), 0.05)
End Function

Comparé à la dernière fonction d'Efgé, on est en moins d'une seconde contre environ 5 seconde, toujours pour 10000 lignes sur 11 colonnes 🙄...
Bon WE 😎

 

[Efgé]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Re à tous,
Comme je ne peux utiliser les "like" je poste et m'explique,
La dernière proposition de JNP est très subtile, elle montre qu'il est inutile de réinventer l'eau chaude puisqu'elle (sa proposition, pas l'eau chaude 🙄) utilise la fonction ARRONDI.AU.MULTIPLE(SOMME(A1:A12);0,05), mais sous forme de formule parsonalisée.
Cette proposition, digne du "Quai d'Orsay" permet
1 de prouver que les formules sont plus rapides que les formules personalisées
2 de permetre à Lone-wolf d'économiser 23 frappes de touches 😉.
Cordialement

 

[Lone-wolf]

Re : [Résolu] Inclure SUM dans ma fonction personnalisée

Efgé MDR! 😀

JNP, merci pour ton intervention.


A+ 😎