XL 2010 À la recherche d'une fonction

kiki29

XLDnaute Barbatruc

• 27 Novembre 2020

• #2

Salut,

VB:

Option Explicit

Function ZeroCount(r As Range) As Long
Dim sStr As String, n
    ZeroCount = 0
    n = CDec(r.Text)
    If InStr(1, n, Application.DecimalSeparator) = 0 Then Exit Function
    sStr = Split(n, Application.DecimalSeparator)(1)
    While Left$(sStr, 1) = "0"
        sStr = Right$(sStr, Len(sStr) - 1)
        ZeroCount = ZeroCount + 1
    Wend
End Function

 

Dernière édition: 29 Novembre 2020

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 27 Novembre 2020

• #3

Bonsoir @ tous,

Une formule matricielle si cela te convient.

VB:

=SIERREUR(EQUIV(0;--STXT(TEXTE(MOD(A1;1);"0,"&REPT(0;15));3;LIGNE($1:$15)));"Néant")

@ valider toujours par Ctrl+Maj+Entrée

Voir PJ


Cordialement

 

Pièces jointes

• Magic_Doctor_V1_FormuleMatricielle_V2.xlsx

  9.1 KB · Affichages: 14

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Novembre 2020

• #4

bonjour
pour une fois que les 0 devant qui disparaissent sur excel ou VBA vont nous servir

VB:

Function nb0afercomma(cel As String)
   Dim A, B
   A = Split(cel, ",")
    If UBound(A) = 0 Then nb0afercomma = 0: Exit Function 'si pas de décimale
    B = Val(A(1))
    nb0afercomma = Len(A(1)) - Len(B)
End Function

la formule de base
=nb0afercomma(A2)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Novembre 2020

• #5

Bonjour,
Une autre option pour une fonction personnalisée:

VB:

Function NbZéros(Cellule As Range) As Integer
    Dim d As Double
    Dim Nb As Integer
 
    If Not IsNumeric(Cellule.Value) Then Exit Function
    d = Cellule.Value - Int(Cellule.Value) 'Modif PatrickToulon
    If d = 0 Then Exit Function
 
    Do While d < 1
        d = 10 * d
        Nb = Nb + 1
    Loop
 
    NbZéros = Nb - 1
End Function

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 27 Novembre 2020

• #6

Bonjour @ tous,
bien sûr il peut y avoir des nombres non décimaux, alors la formule deviendra :

VB:

=SIERREUR(EQUIV(0;--STXT(TEXTE(SI(MOD(A1;1)>0;MOD(A1;1));"0,"&REPT(0;15));3;LIGNE($1:$15)));"Néant")

@ valider toujours par Ctrl+Maj+Entrée


Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Novembre 2020

• #7

re
j'ai eu la même idéeque toi Dudu2 au départ mais je cite le demandeur

- 0,52866320023 (mais ça aurait pu être 258,52866320023) --> 0

Cliquez pour agrandir...

change pour ca
d = Cellule.Value-int(cellule.value)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Novembre 2020

• #8

Patrick, en effet, tu as vu juste, il faut faire ce que tu dis.
J'ai modifié le code en Post #5.

De ton coté il faudrait que tu ajoutes:

VB:

If UBound(A) = -1 Then Exit Function

Sinon #VALEUR! en ligne 4 ci-dessous.

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Novembre 2020

• #9

J'ai dû rater quelque chose pour la formule matricielle de R@chid, sinon c'est ça se tient.

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Novembre 2020

• #10

On peut modifier la formule de R@chid par celle-ci (non matricielle):
=SIERREUR(NBCAR(STXT(A2;TROUVE(",";A2)+1;NBCAR(A2))) - NBCAR(VALEURNOMBRE(STXT(A2;TROUVE(",";A2)+1;NBCAR(A2))));0)

Et Magic_Doctor va bien être embêté pour choisir

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Novembre 2020

• #11

re
c'est ça le luxe !!!c'est d'avoir le choix
et oui j'ai pas prévu les vides

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 27 Novembre 2020

• #12

Bonjour @ tous,

Dudu2 à dit:

J'ai dû rater quelque chose pour la formule matricielle de R@chid, sinon c'est ça se tient.

Cliquez pour agrandir...

Oui t'as raté "D'utiliser ma formule" du POST #6 là où je l'ai éditée pour qu'elle gère les nombres non décimaux, et peut être tu ne l'as pas validée correctement comme je l'ai bien précisé en Rouge.

Dudu2 à dit:

On peut modifier la formule de R@chid par celle-ci (non matricielle):
=SIERREUR(NBCAR(STXT(A2;TROUVE(",";A2)+1;NBCAR(A2))) - NBCAR(VALEURNOMBRE(STXT(A2;TROUVE(",";A2)+1;NBCAR(A2))));0)

Cliquez pour agrandir...

Ma formule n'a pas besoin de modification, elle est plus courte que la tienne et renvoie des résultats correctes.
Si c'est juste pour avoir des 0 au lieu de Néant, il suffit de supprimer "Néant" de la formule et laisser ce 2ème argument sans le renseigner.

Voir PJ

Cordialement

 

Pièces jointes

• Magic_Doctor_V1_Dudu2.xlsx

  9.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Novembre 2020

• #13

En effet, après reprise de ton dernier fichier ta formule fonctionne, c'est juste que je n'ai pas réussi à la mettre en place dans le 1er exemple.
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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Novembre 2020

• #14

bon Alors!!! c'est ki k'a le plus gros kiki là

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Novembre 2020

• #15

J'espère qu'on n'ira pas jusque là

La dernière formule de R@chid est parfaite, y a pas de souci. Mais ce n'est pas celle issue du post #6 que j'ai tenté de placer dans le tableau qui a donné des 15 et que j'ai tenté d'adapter sans succès. Et ça n'a rien à voir avec la question du "néant" qu'on associe aisément à 0 !

A noter que sa formule fonctionne aussi pour les notations numériques à exposant ce qui est parfait!
La mienne aussi pourrait le faire (en formatant le nombre à exposant pour "l'étirer") mais je devrais rendre ma formule encore plus longue, et là je risque d'être disqualifié à la récré .

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif