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

Efgé

XLDnaute Barbatruc

• 2 Juin 2011

• #16

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

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

VB:

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

VB:

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

Cordialement

 

Dernière édition: 2 Juin 2011

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Juin 2011

• #17

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

Good Morning Efgé,

Tank's For Your Simplified Code 😉


Good Week 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Juin 2011

• #18

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+ 😎

 

Dernière édition: 2 Juin 2011

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 3 Juin 2011

• #19

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

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

VB:

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

Cordialement

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Juin 2011

• #20

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+ 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Juin 2011

• #21

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

Re,

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

Code:

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+ 😎

 

Dernière édition: 3 Juin 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 3 Juin 2011

• #22

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

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

Code:

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 😎

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 3 Juin 2011

• #23

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Juin 2011

• #24

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

Efgé MDR! 😀

JNP, merci pour ton intervention.


A+ 😎

 

Vote positif 0 Vote négatif