Une fonction akinésique

Dranreb

XLDnaute Barbatruc

• 15 Février 2018

• #2

Bonsoir.
Je ne sais pas mais je l'aurais écrite comme ça :

VB:

Function HowLong(ByVal dNum As Double) As Byte
HowLong = Len(Str$(dNum - Int(dNum))) - 2
End Function

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2018

• #3

Re

Pourquoi se compliquer la vie 😉
Cette petite fonction fait pareil qu'HowLong, non ?

VB:

Function NBDEC(r As Range)
NBDEC = Len(r - Int(r)) - 2
End Function
Sub test()
[A1] = "1.24589"
MsgBox NBDEC(Range("A1"))
End Sub

EDITION: Désolé, Dranreb, je n'avais pas vu ton message 😉

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Février 2018

• #4

Pas de mal.
En fait, si c'est limité à 5 maxi, il est plus prudent de l'écrire comme ça :

VB:

Function HowLong(ByVal dNum As Double) As Byte
HowLong = Len(Str$(Int(dNum * 100000 + 0.5) / 100000 - Int(dNum))) - 2
End Function

sinon on risque de se récupérer 15 sur des valeurs imparfaitement représentées en binaire.

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 16 Février 2018

• #5

Merci pour vos réponses.

Je viens d'essayer la fonction de Staple qui est aussi lente que HowLong. Et avec 5 décimales après la virgule, elle me renvoie 15 ! Alors que HowLong me renvoie bien 5.
Essayez par curiosité. À moins que chez vous ça ne se passe pas pareil...
C'est curieux tout ça !

 

Pièces jointes

• Fonction akinésique.xlsm

  31.5 KB · Affichages: 33

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2018

• #6

Chez moi tout est instantané.
Dernière écriture de ma fonction :

VB:

Function NbDéc(ByVal dNum As Double) As Byte
NbDéc = Len(Str$(Int((dNum - Int(dNum)) * 100000 + 0.5) / 100000)) - 2
End Function

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #7

Re

Pourquoi ne pas utiliser une simple formule?
=NBCAR(Volume2-ENT(Volume2))-2

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2018

• #8

Sinon comme je le disais le résulate de 15 tenait à ce que la valeur à 5 décimales diminuée de sa partie entière valait en réalité 0,256830000000001

…et ta formule, Staple1600, donne 15 aussi !
Il faudrait :

Code:

=NBCAR(ARRONDI(Volume2-ENT(Volume2);5))-2

 

Dernière édition: 16 Février 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #9

Re

@Dranreb
En tout les cas, avec cette dernière formule, ce sera toujours plus rapide (au moins plus simple) que de s'astreindre à passer par VBA alors qu'une formule Excel fait le job, non ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2018

• #10

Oui, c'est assez en dessous du seuil de complexité à partir duquel j'écrirais une fonction personnalisée. Quoique… Si c'est à utiliser souvent, et intégré à d'autres formules…

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 16 Février 2018

• #11

Re,

Le problème, c'est que je voudrais répupérer cette donnée dans une macro. Donc, pourquoi ne pas tout faire en VBA ?
La lenteur, je pense, ne dépend pas des fonctions (HowLong, ou celle de Staple) mais de la cellule analysée qui a subit une mise en forme.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 16 Février 2018

• #12

Bonjour tout le monde,

puisque tu souhaites du VB, et si tu as des événements ou des MFC . . .
peut être comme ceci, avec le code VB de Dranreb

Function NbDéc(ByVal dNum As Double) As Byte
Application.EnableEvents = False: Application.Calculation = xlCalculationManual
NbDéc = Len(Str$(Int((dNum - Int(dNum)) * 100000 + 0.5) / 100000)) - 2
Application.EnableEvents = True: Application.Calculation = xlCalculationAutomatic
End Function

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Février 2018

• #13

Bonjour à tous,

Magic_Doctor à dit:

Je viens d'essayer la fonction de Staple qui est aussi lente que HowLong. Et avec 5 décimales après la virgule, elle me renvoie 15 !

Cliquez pour agrandir...

Je ne constate pas de lenteur.

Quant au mauvais résultat de la fonction NBDEC de JM il est dû à la fonction Int qui peut dans certains cas renvoyer un résultat erroné, voyez ces 2 liens :

https://www.excel-downloads.com/threads/fonction-int-pour-les-vbaistes.117085/

Résultats inattendus de la fonction Int()

Pour éviter ce phénomène il faut utiliser CDec :

Code:

Function NBDEC(r As Range)
NBDEC = Len(r - Int(CDec(r))) - 2
End Function

Bonne journée.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Février 2018

• #14

Bonjour.
Ce serait plutôt que la fonction Int peut renvoyer un résultat trop juste, sachant que la valeur exprimée en décimal par 1164.35 ne peut exister en Double, la valeur la plus proche possible y étant légèrement inférieure.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Février 2018

• #15

Re Bernard,

Comme l'indique le 2ème lien du post #13 le problème vient des calculs en binaire quand il y a des valeurs de type Double dans l'expression à calculer.

Avec ceci pas de problème :

Code:

Function NBDEC(r As Range)
NBDEC = Len(r) - Len(Int(r)) - 1
End Function

A+

 

Vote positif 0 Vote négatif