Discussion :

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[patricktoulon]

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

[unparia]

Bonjour Franck

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

[pijaku]

Bonjour Messieurs,

Il n'y a pas moyen, effectivement.

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.

[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.

[unparia]

Bonjour Franck

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")

[joe.levrai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour joe.levrai

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

[Marc-L]

Bonjour !

Je m'interroge sur la possibilité de lire le nombre de caractères d'un nombre.
[…] mais je me dis qu'il y a, peut-être, an other way...

L'aide VBA de la fonction Len étant pourtant assez explicite …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Demo()
    L! = 0.123456
    Debug.Print Len(L), Len("" & L)
End Sub

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[pijaku]

L'aide VBA de la fonction Len étant pourtant assez explicite …

Bonjour Marc, le forum,

Mea culpa.
La fonction Len est en effet très bien développée dans l'aide, exemples à l'appui.
Merci de cette piqûre de rappel.

A bientôt