XL 2010 À la recherche d'une fonction

Magic_Doctor · 27 Novembre 2020

Bonjour,

Le titre est un peu nébuleux, mais il aurait été difficile de le résumer en une simple phrase.
J'essaie de résoudre un problème et, pour ce faire, j'envisage d'utiliser une fonction (donc VBA) qui me renvoie, pour un chiffre décimal, le nombre de "0" après la virgule avant le premier chiffre qui ne soit pas nul.
Ex :
- 0,52866320023 (mais ça aurait pu être 258,52866320023) --> 0
- 0,0528066320023 --> 1
- 0,00528066320023 --> 2
- 0,000528066320023 --> 3

Merci d'avance pour toute aide.

R@chid · 27 Novembre 2020

Re,

Dudu2 à dit:
Et pour jouer aux gamins à l'urinoir de l'école, en effet la tienne est plus courte ! Mais la mienne n'est pas matricielle et donc plus simple à gérer.

t'es sûr que VALEURNOMBRE() est disponible sous Excel2010

Je suis Excel pour Microsoft 365, je ne peux pas tester.

job75 · 27 Novembre 2020

Bonjour Magic_Doctor, le fil,

En utilisant le format Scientifique c'est assez simple :

- par formule Excel en B2 =MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1
[sans le smiley :]

Code:

=MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1;)

- par fonction VBA en C2 =NZeroDec(A2)

VB:

Function NZeroDec(c As Range)
NZeroDec = Evaluate("MAX(RIGHT(TEXT(MOD(ABS(0" & Replace(c.Value2, ",", ".") & "),1),""0E+00""),2)-1,)")
End Function

A+

Dudu2 · 27 Novembre 2020

@patricktoulon , Je crois que tu as la réponse à ta question.
job75 écrase le concurrence !
Avec un petit ajout cosmétique pour généraliser:
=SI(SIERREUR(MOD(A2;1);0);MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1);0)

R@chid · 27 Novembre 2020

Re,

job75 à dit:
En utilisant le format Scientifique c'est assez simple :

- par formule Excel en B2 =MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1

Alors là on peut dire que c'est une formule scientifique

Dudu2 · 27 Novembre 2020

t'es sûr que VALEURNOMBRE() est disponible sous Excel2010

Question pertinente !
Je suis en 2016 c'est pour ça que ça marche.

VALEURNOMBRE (VALEURNOMBRE, fonction) - Support Microsoft

Syntaxe : VALEURNOMBRE(Texte, [séparateur_décimal], [séparateur_groupe ])

support.microsoft.com

job75 · 27 Novembre 2020

Dudu2 à dit:
Avec un petit ajout cosmétique pour généraliser:
=SI(SIERREUR(MOD(A2;1);0);MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1);0)

Je n'ai pas utilisé SIERREUR pour bien montrer que par formule et en VBA on a le même résultat.

Ce n'est pas forcément évident, testez le fichier en enlevant le zéro du ABS(0 dans la fonction VBA :

VB:

Function NZeroDec(c As Range)
NZeroDec = Evaluate("MAX(RIGHT(TEXT(MOD(ABS(" & Replace(c.Value2, ",", ".") & "),1),""0E+00""),2)-1,)")
End Function

mapomme · 27 Novembre 2020

Bonsoir à tous ,

Une autre formule qui devrait fonctionner avec les nombres négatifs aussi :

VB:

=SIERREUR(ENT(-LOG10(MOD(ABS(A2&1);1)));0)

R@chid · 27 Novembre 2020

Re,

Dudu2 à dit:
@patricktoulon , Je crois que tu as la réponse à ta question.
job75 écrase le concurrence ! Regarde la pièce jointe 1086515
Avec un petit ajout cosmétique pour généraliser:
=SI(SIERREUR(MOD(A2;1);0);MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1);0)

Je ne vois pas l'utilité de l'ajout de SIERREUR() sauf si la cellule contient du Texte, à part ça l'ajout d'un autre argument dans MAX() fera l'affaire.
=MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1;0)
Comme ça on ne va pas voir -1 comme réponse.
S'il y a du Texte dans la cellule on peut l'écrire comme ça pour renvoyer 0
=SIERREUR(MAX(DROITE(TEXTE(MOD(ABS(A1);1);"0E+00");2)-1;0);)

R@chid · 27 Novembre 2020

Re,

mapomme à dit:
Bonsoir à tous ,

Une autre formule qui devrait fonctionner avec les nombres négatifs aussi :

VB:

=SIERREUR(ENT(-LOG10(MOD(ABS(A2 & 1);1)));0)

Encore une scientifique, Bravo.

Dudu2 · 27 Novembre 2020

mapomme, là tu fais très fort !

Par contre je ne comprends pas pourquoi tu concatènes avec 1 ABS(A2 & 1)

R@chid · 27 Novembre 2020

Re,

Dudu2 à dit:
R@chid, là tu fais fort ! Regarde la pièce jointe 1086523

Il faut plutôt le dire à Job75 et mapomme

job75 · 27 Novembre 2020

Bonsoir mapomme,

Mais oui avec le logarithme décimal c'est encore plus simple

R@chid à dit:
Je ne vois pas l'utilité de l'ajout de SIERREUR() sauf si la cellule contient du Texte, à part ça l'ajout d'un autre argument dans MAX() fera l'affaire.
=MAX(DROITE(TEXTE(MOD(ABS(A2);1);"0E+00");2)-1;0)

Dans mon post #17 cet argument existe mais il est inutile d'inscrire le zéro MAX(xxx;)

Le smiley a pris la place du ; et )

A+

R@chid · 27 Novembre 2020

Re,
Oui t'as raison je viens de faire attention

mapomme · 27 Novembre 2020

Dudu2 à dit:
Par contre je ne comprends pas pourquoi tu concatènes avec 1 ABS(A2 & 1)

Il suffit de retirer " & 1" et de voir les lignes correspondant à 0.001 et -0,001

Dudu2 · 27 Novembre 2020

Ok, vu ! Faudrait que je révise le Log et Log10

XL 2010 À la recherche d'une fonction

Magic_Doctor

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

VALEURNOMBRE (VALEURNOMBRE, fonction) - Support Microsoft

job75

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires