Nombre de "0" après la virgule

[Magic_Doctor]

Bonjour,

J'ai des nombres décimaux, par exemple :
0,01
0,00000569058

Je voudrais, par fonction, connaître le nombre de "0" qu'il y a après la virgule.
F(0,01) = 1
F(0,00000569058) = 5

Merci d'avance pour toute réponse.

 

[Magic_Doctor]

Re : Nombre de "0" après la virgule

Bonjour job, le forum,

Et bien merci pour ta solution qui règle le problème. J'avoue que je n'aurais jamais trouvée et que je n'ai pas du tout compris cet énigmatique "'" en début de chaîne.

Bonne journée ensoleillée. Ici c'est glauque...

 

[job75]

Re : Nombre de "0" après la virgule

Re,

Note qu'on peut ne pas utiliser tes fonctions, un traitement de texte direct est possible :

Sub MyExposant()
Dim av As Byte, ap As Byte, r As Range, t, expo%, i#
av = [ChAvV]: ap = [ChApV]
Set r = [ColExp].Columns(1).Cells
Application.ScreenUpdating = False
r.NumberFormat = "0." & String(ap, "0")
r.Resize(r.Count) = r.Offset(, -3).Value
For Each r In r
  If r > 0 And r < 1 Then
    t = Mid(Format(r.Value, "0." & String(250, "0")), 3)
    For expo = 1 To 250
      If Mid(t, expo, 1) > "0" Then Exit For
    Next
    i = Val(Mid(t, expo, av) & "." & Mid(t, expo + av))
    r = Format(i, "0." & String(ap, "0")) & " . 10-" & expo + av - 1
    r.Characters(av + ap + 7, 4).Font.Superscript = True
  End If
Next
End Sub

Edit : il y a une limite pour le plus petit nombre accepté par cette méthode.

Elle semble assez aléatoire, sur Excel 2003 je suis arrivé à traiter 1E-250.

La limite d'Excel étant 2,2551E-308.

Fichier joint, la macro est affectée au bouton "MyExposant".

A+

 

[Magic_Doctor]

Re : Nombre de "0" après la virgule

Re,

Intéressante ta dernière solution ; ça simplifie !
Quant à la limite de 1E-250, je ne pense pas que ce soit une entrave dans les calculs vu que, à part dans l'imaginaire mathématique, les gogols et apparentés ne font pas partie de l'univers physique...