XL 2010 À la recherche d'une fonction

[Magic_Doctor]

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]

Re,

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]

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 :]

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

- par fonction VBA en C2 =NZeroDec(A2)

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]

@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]

Re,

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]

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]

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 :

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

 

[mapomme]

Bonsoir à tous ,

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

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

 

[R@chid]

Re,

@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]

Re,

Bonsoir à tous ,

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

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

Encore une scientifique, Bravo.

 

[Dudu2]

mapomme, là tu fais très fort !

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

 

[R@chid]

Re,

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

Il faut plutôt le dire à Job75 et mapomme

 

[job75]

Bonsoir mapomme,

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

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]

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

 

[mapomme]

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]

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