Manipulation de chiffres

Bonjour,
je fais appel à vous car je coince sur une problématique.
J'ai écrit un script qui contrôle la longueur d'un numéro de matricule. Ce champs doit être sur 10 caractères.
Ainsi lorsque je vois qu'une valeur = '5636' par exemple, je rajoute des zéros devant pour arriver à 10 caractères. J'obtiens donc '0000005636'.

Je souhaite faire le contraire, et là je ne sais pas comment m'y prendre.
Si j'ai '0000000084', je veux dégager tous les zéros devant et n'avoir que '84'.
Il faut qu'a l'arrivée je puisse enlever tous les zéros à gauche jusqu'à rencontrer un chiffre !='0'

Comment faire svp ?
Cela fait un moment que je suis dessus et je n'y arrive pas.

Merci

:salut:
Postez votre début de code et :tagcode: :merci:

bonjour,

Code:

---

1 2 3 4 5 6

NoMat= "0000000084" NoMatStripped=Mid(NoMat,InStrRev(NoMat,"0")+1) MsgBox NoMatStripped NoMat="0000005636" NoMatStripped=Mid(NoMat,InStrRev(NoMat,"0")+1) MsgBox NoMatStripped

---

l'intérêt, c'est que le code est fonctionnel quelque soit la longueur de la chaine initiale

Bonjour omen, merci pour ta réponse, j'ai testé et cela à l'air de fonctionner mais:
N'y aurait-il pas un soucis dans le cas ou l'on a des matricules = '0000000001', '0000000010' et '0000000100'.
je l'ai passé sur un jeu de test et j'ai l'impression qu'il m'a dégagé des matricules lorsque l'on est dans ce cas. ici il me les a mis tous à '1'.
Du coup j'ai perdu mes matricules '10' et '100'.

Je crois que ton script enlève également les zéros après les chiffres !='0' qu'il trouve et pas seulement avant

bonjour

voila comment je ferai :

Code:

---

1 2	x="000000100" msgbox x+0

---

Bonjour,
Moi je m'y serais pris comme ça :

Code:

---

1 2 3 4 5 6

NoMat= "0000000084" NoMatStripped = CInt(NoMat) MsgBox NoMatStripped NoMat="0000005636" NoMatStripped = CStr(CInt(NoMat)) 'S'il faut absolument une chaine MsgBox NoMatStripped

---

Bonjour,
merci Pitchalov.
Cela fonctionne parfaitement.
C'était je pense, la manière la plus simple de régler ce problème.

Bien à toi.
Cordialement

vive le cast explicite
c'est effectivement la meilleure solution :ccool:

edit :
le cast implicite c'est bien aussi mais pas recommandé pour la lisibilité ;)

Salut,

Une autre façon est d'utiliser les regex

Code:

---

1 2 3 4

str="0000000012" Set r=new regex : r.pattern="^0*" Msgbox(r.replace(str,""))

---