cs_guigui28
Messages postés28Date d'inscriptionvendredi 10 septembre 2004StatutMembreDernière intervention17 octobre 2006
-
5 mai 2006 à 22:00
cs_Warning
Messages postés516Date d'inscriptionsamedi 3 février 2001StatutMembreDernière intervention24 octobre 2006
-
6 mai 2006 à 03:09
Bonjour,
Je cherche une fonction pour supprimer les zéros dans une chaîne de chiffres, seulement, dès qu'on rencontre un chiffre autre que le zéro je voudrais que la fonction s'arrête et renvoie la donnée.
Ex :
0000123456789 => Renvoyer 123456789
0000000035800 => Renvoyer 35800
Qqn à une idée ??
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 5 mai 2006 à 22:37
Bonsoir,
Je n'ai pas d'exemple sous le coude.
Mais ça correspond a faire une boucle(Do While),
lecture de la chaine, quand que le caractère = 0,
est trouvé, Chaine=Len(Chaine, Left(Chaine, -1)
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 5 mai 2006 à 23:10
Re-bonsoir,
Je me suis vraiment égaré sur ce coup.
La solution, la plus simple, est bien de 231472 Charles Racaud à condition que la chaine recherchée soit toujours du type
"0000000035800"Si chaine ""0000000035800,02", new chaine "35800"
'CStr: Renvoie une expression qui a été convertie en un Variant de sous-type String.
Dim MyDouble, MyString
MyDouble = 437,324 ' MyDouble est un Double.
MyString =
CStr(
MyDouble
)
' MyString contient "437,324".
mais
Int : Renvoie la partie entière d'un nombre.
MyNumber =
Int(
99.8
)
' Renvoie 99.
jean-marc
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Warning
Messages postés516Date d'inscriptionsamedi 3 février 2001StatutMembreDernière intervention24 octobre 20062 6 mai 2006 à 03:09
Hello,
et bien:
MsgBox CStr(Val("0000123456,789"))
Mais il ne faut pas de lettre....
Enfin la fonction à utiliser c'est bien LTrimStr("0000123456789", "0") et non pas toutes ces sortes de gadgets. De plus c'est la plus rapide (pas besoin de conversions multiples), appel à une seule fonction.