Nombre de "caractères" d'une "chaine" numérique Len() With Numeric value

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/01/2017, 21h20
pijaku

Nombre de "caractères" d'une "chaine" numérique Len() With Numeric value
Bonsoir,

Je vous lirais demain matin avec plaisir.

Je m'interroge sur la possibilité de lire le nombre de caractères d'un nombre.
Len ne fonctionnant pas (en fait, dans ce cas, Len nous donne le "poids" du nombre en octets et non sa "longueur"), je me demande s'il n'existe pas une autre propriété permettant de définir le nombre de "caractères" contenus dans une variable numérique...

Par exemple :
Code:

1 2 3 Dim L As Single L = 0.123456 Debug.Print Len(L)
me donnera 4 au lieu de 8...
Je connais les "subterfuges" consistants à passer par une variable String grâce à CStr(), mais je me dis qu'il y a, peut-être, an other way...
Isn't it?
19/01/2017, 21h30
patricktoulon

re

re
bonsoir pikaju
oulah!!! chez moi le len me donne bien 8 sans cstr

edit: a oui!! single mince et oui la de toute façon y a pas d'autre moyen que convertir
19/01/2017, 21h33
unparia

Bonjour Franck

Citation:

mais je me dis qu'il y a, peut-être, an other way...

Il n'y en a pas (not even a long one, not even to Tipperary, not even to go ;))
Un numérique n'a pas de "longueur". Une chaîne de caractères, oui. --->> conversion nécessaire.

Re,

Après un café et une réflexion : on peut y parvenir sans conversion, mais :
- 1) uniquement en représentation décimale (base 10 - entiers et décimales)
- 2) Tipperary serait la porte à côté, en comparaison :D
20/01/2017, 07h56
pijaku

Bonjour Messieurs,

Il n'y a pas moyen, effectivement.

Citation:

Envoyé par unparia

Après un café et une réflexion : on peut y parvenir sans conversion, mais :
- 1) uniquement en représentation décimale (base 10 - entiers et décimales)

Je veux bien voir comment, pas pour mon problème qui est résolu, mais pour ma culture.
20/01/2017, 08h06
Invité

Bonjour,
Il n'est pas vraiment possible de définir la longueur d'un nombre à virgule flottante (Single) car par définition il n'affiche que des valeurs relatifs au séparateur décimal de l'exposant!

Utilises double.
20/01/2017, 08h10
unparia

Bonjour Franck

Citation:

Je veux bien voir comment, pas pour mon problème qui est résolu, mais pour ma culture.

je vais faire mieux. Je vais te mettre sur la piste :
- séparation de la partie entière P1 et de l'éventuelle partie décimale P2 --->> obtention, donc de 2 nbs entiers P1 et P2
- détermination du nbs de "caractères/chiffres" de chaque partie (d'un nombre donc entier) --->>>
---- une boucle de divisions décroissantes de puissances de 10 jusqu'à obtenir un chiffre X > 0 et sortir de la boucle. La valeur de ce chiffre X est révélatrice de la longueur de l'entier étudié.

Je te laisse faire ?

EDIT : de mémoire : il se peut que j'aie utilisé un tel mécanisme lors de ma toute première venue sur ce forum. (je n'ai pas cherché et n'en suis pas non plus certain, mais je me connais et cela ne m'étonnerait pas que je m'y fusse amusé, histoire de "rigoler") ;)

Bonjour,

quand j'ai lu votre sujet hier soir, je me suis amusé à écrire un truc

je n'étais pas satisfait à cause des problèmes de précision qui foutaient en l'air le calcul du nombre de décimales

suis parti me coucher sans quitter Excel

Et je vois ton dernier message unparia

boahhh .... si quelqu'un veut corriger la partie qui gère le calcul des décimales, faites-vous plaisir :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Taille_Nombre(LeNombre As Double) As Long
    'calcul des chiffres APRES la virgule
    Temp = LeNombre - Int(LeNombre)
    If Temp <> 0 Then C = C + 1 ' la virgule
        While Temp - Int(Temp) <> 0          ' tant qu'on a pas fini de compter les décimales
            C = C + 1
            Temp = Temp * 10    ' On pousse les chiffres vers la droite
        Wend
 
    'calcul des chiffres AVANT la virgule
    Temp = Int(LeNombre)
    While Temp >= 1          ' tant qu'on a pas fini de compter les chiffres entiers
        C = C + 1
        Temp = Temp / 10    ' On pousse les chiffres vers la gauche
    Wend
Taille_Nombre = C
End Function
 
Sub test()
Debug.Print Taille_Nombre(12234)   ' fonctionne mal avec les décimales en raison des erreurs de précision
End Sub

20/01/2017, 08h25
unparia

Bonjour joe.levrai

Je découvre que tu es aussi fou que moi. C'est bien.
Amitiés.

Bon ok, j'ai compris le principe.
Merci (Joe et unparia) de m'avoir orienté sur cette piste.
Même si maintenant ça me "saute au visage", je ne crois pas que j'aurais pu en avoir l'idée.

@Dysorthographie : pourquoi un Double?

EDIT :
@ Joe,
Une solution au souci des erreurs de précision serait... d'utiliser des fonctions de String, Mid et Instr :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function Taille_Nombre(LeNombre As Double) As Long
Dim Temp As Double, c As Integer
 
    If InStr(LeNombre, Application.DecimalSeparator) > 0 Then
        c = c + 1 ' la virgule
        'calcul des chiffres APRES la virgule
        Temp = Mid(LeNombre, InStr(LeNombre, ",") + 1)
        While Temp >= 1          ' tant qu'on a pas fini de compter les décimales
            c = c + 1
            Temp = Temp / 10    ' On pousse les chiffres vers la droite
        Wend
    End If
    'calcul des chiffres AVANT la virgule
    Temp = Mid(LeNombre, 1, InStr(LeNombre, ",") - 1)
    While Temp >= 1          ' tant qu'on a pas fini de compter les décimales
        c = c + 1
        Temp = Temp / 10    ' On pousse les chiffres vers la droite
    Wend
Taille_Nombre = c
End Function
 
Sub test()
Debug.Print Taille_Nombre(9876546214.3322)
End Sub

Mais bon, alors autant convertir...

20/01/2017, 08h48
Invité

1 pièce(s) jointe(s)

une virgule flottante permet d'utiliser de nombre de grande valeur et bien que double soit plis petit en valeur max ça reste un nombre décimale important!

Pièce jointe 236683

Citation:

Dim Temp AsDouble ' pourquoi double?

Citation:

Envoyé par dysorthographie

une virgule flottante permet d'utiliser de nombre de grande valeur et bien que double soit plis petit en valeur max ça reste un nombre décimale important!

Ok, j'ai compris ta démonstration

Citation:

Envoyé par dysorthographie

Code:

Dim Temp As Double

Pourquoi As Double?

Simplement parce que As Long ne suffit pas en cas de grands nombres.
Le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function Taille_Nombre(LeNombre As Double) As Long
Dim Temp As Long, c As Integer
 
    If InStr(LeNombre, Application.DecimalSeparator) > 0 Then
        c = c + 1 ' la virgule
        'calcul des chiffres APRES la virgule
        Temp = Mid(LeNombre, InStr(LeNombre, ",") + 1)
        While Temp >= 1          ' tant qu'on a pas fini de compter les décimales
            c = c + 1
            Temp = Temp / 10    ' On pousse les chiffres vers la droite
        Wend
    End If
    'calcul des chiffres AVANT la virgule
    Temp = Mid(LeNombre, 1, InStr(LeNombre, ",") - 1)
    While Temp >= 1          ' tant qu'on a pas fini de compter les décimales
        c = c + 1
        Temp = Temp / 10    ' On pousse les chiffres vers la droite
    Wend
Taille_Nombre = c
End Function
 
Sub test()
Debug.Print Taille_Nombre(9876546214.3322)
End Sub

Va planter ici :

Code:

Temp = Mid(LeNombre, 1, InStr(LeNombre, ",") - 1)

Erreur 6, dépassement de capacité.

20/01/2017, 09h33
Invité

si LeNombre=10 alors InStr(LeNombre, ",")=0

Code:

Mid(LeNombre, 1, InStr(LeNombre, ",") - 1)

Code:

Temp=cint(LeNombre)

Non Robert.
CInt, tout comme CLng, tout comme Int ne fonctionnera pas sur de très grands nombres.

Dans mon exemple, je choisis 9 876 546 214.3322 exprès pour dépasser la limite d'un Long (2 147 483 647).
Et donc, ma variable Temp qui doit "accueillir 9 876 546 214, doit être typée dans le type numérique supportant les plus grandes valeurs possibles.
Double.
Et que dire si...

Code:

1
2
3
4
 
Sub test()
Debug.Print Taille_Nombre(1.11111308765462E+197)
End Sub

EDIT :
Si pas de virgule (j'avais oublié ce cas, merci Robert), pour éviter l'erreur 5, il suffit d'un if supplémentaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function Taille_Nombre(LeNombre As Double) As Long
Dim Temp As Double, c As Integer
 
    If InStr(LeNombre, Application.DecimalSeparator) > 0 Then
        c = c + 1 ' la virgule
        'calcul des chiffres APRES la virgule
        Temp = Mid(LeNombre, InStr(LeNombre, ",") + 1)
        While Temp >= 1          ' tant qu'on a pas fini de compter les décimales
            c = c + 1
            Temp = Temp / 10    ' On pousse les chiffres vers la droite
        Wend
    End If
    'calcul des chiffres AVANT la virgule
    If InStr(LeNombre, Application.DecimalSeparator) = 0 Then
        Temp = LeNombre
    Else
        Temp = Mid(LeNombre, 1, InStr(LeNombre, ",") - 1)
        If Temp = 0 Then c = c + 1
    End If
    While Temp >= 1          ' tant qu'on a pas fini de compter les décimales
        c = c + 1
        Temp = Temp / 10    ' On pousse les chiffres vers la droite
    Wend
Taille_Nombre = c
End Function

ok donc

Code:

1
2
3
Dim Temp As Double
Temp = 9876546214.3322
Temp = Format(Temp, "#0")

20/01/2017, 09h56
pijaku

Bien vu Format.
Plus rapide.
Je prends.

Merci à tous.
Bonne journée et à bientôt
21/01/2017, 03h55
Docmarti
Bonjour

Pour une valeur de type numerique ou Date, Len retourne l'espace que cette valeur occupe en memoire.

VBA.Len semble d'abord convertir en String les nombres et les dates pour ensuite donner la longueur du String.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test_VBA_Len() Dim a As Double Dim b As Variant a = -12234.5678 b = a Debug.Print Debug.Print Len(a), VBA.Len(a) Debug.Print Len(b), VBA.Len(b) End Sub
21/01/2017, 08h14
unparia

Bonjour Docmarti
Tu m'as fait découvrir une étonnante différence de comportement dont j'ignorais l'existence. :plusser:

re
Bonjour a tous je vois que l'on c'est bien amusé par ici
docmarti :plusser:
je connaissais pas non plus

mais après quelque test il me viens cette question

d'où viennent la fonction "len" et "vba.len" car visiblement elle ne donnent pas le même résultat sur un single c'est un fait

est ce que 'est pas plutôt VBa qui converti en Variant et non la fonction len
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub test_VBA_Len() Dim a As Double Dim b As Variant a = 12234.5678 b = a Debug.Print Debug.Print "a avec 2 len ="; Len(a), VBA.Len(a) Debug.Print "a avec vba.len ="; VBA.Len(a) Debug.Print "b avec 2 len ="; Len(b), VBA.Len(b) End Sub
Citation:

a avec 2 len = 8 10
a avec vba.len = 10
b avec 2 len = 10 10

21/01/2017, 12h38
Docmarti

Bonjour Patrick

Voici tout ce que j'ai pu trouver sur VBA.Len.

https://msdn.microsoft.com/en-us/lib...ffice.15).aspx

http://stackoverflow.com/questions/2...ferent-results

Bonsoir messieurs,j
Docmarti :hola:

C'est vraiment curieux comme comportement...

Regardez ceci :
Code:

1 2 3 4 5 6 7 8 Sub test() Dim a As Double Dim b As Single a = 123456.456789 b = 123456.456789 Debug.Print VBA.Len(a) & " -- " & VBA.Len(b) Debug.Print VBA.Right(a, VBA.Len(a) - VBA.InStr(a, ",")) & " ------ " & VBA.Right(b, VBA.Len(b) - VBA.InStr(b, ",")) End Sub
Furieux non?
Double - Single : Not the Same combat !!!!

Sur ce, bon week end à tous.
A lundi.

ps: ça mérite d'être creusé un peu non?

Voir 40 message(s) de cette discussion en une page