Discussion :

[fbu78]

Bonjour,

J'ai un petit pb à résoudre :

exemple : 102540900,56
Comment faire pour éliminer les 0 à gauche de la virgule ? Autrement dit

- je prends la partie entière du nombre
- j'enève les 0 à droite jusqu'à ce qu'il n'y en ait plus ?

Je sèche ... Merci pour votre aide.

A+

[random]

Code :

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

1
2
3
4
5
6
7
8
 
Function pas0(ByVal x As Variant) As Long
x = Int(x)
Do Until Right(x, 1) <> 0
x = Left(x, Len(x) - 1)
Loop
pas0 = CLng(x)
End Function

[fbu78]

merci...une question, car je n'arrive pas à expliter ce code :

dans mon formulaire de saisie, un champ "Nbsaisi" reçoit le nombre à exploiter
Le résultat du traitement se place dans le champ "code" du même formulaire

Mon problème : comment je dis à ce code de prendre la valeur de NbSaisi, de la traiter, de la mettre dans "code"

Merci encore

a+

Je viens de trouver mon erreur : juste un pb de nom de champ !
Merci encore.