Merci "sylderon" ca marche mais g un truc de chelou
voici mon nouveau code
If numauto < 10 Then
MonTextbox = Format$(Right(Date, 2) + "0000" + numauto, "0000000" )
Else:
If testnum < 100 Then
MonTextbox = Format$(Right(Date, 2) + "000" + numauto, "0000000" )
Else:
If testnum < 1000 Then
MonTextbox = Format$(Right(Date, 2) + "00" + numauto, "0000000" )
Else:
If testnum < 10000 Then
MonTextbox = Format$(Right(Date, 2) + "0" + numauto, "0000000" )
Else:
MonTextbox = Format$(Right(Date, 2) + numauto, "0000000" )
End If
End If
End If
End If
au lieu de 2053 j'obtient 0002053,
le 02 de l'annee 2002 devient 2
+
le 000 devient 0
+
le 53 du numauto
et si je remplace mon code par cette simple ligne sa fonctionne pour tout les numauto de 0 a 99999 :
MonTextbox = Format$(Right(Date, 2) + "00000" + numauto, "0000000" )
moi je pige que dalle et j'aime pas quand je pige pas sa vient ptet du fonctionnement de la commande Format ? vous en penser quoi meme si cela n'est pas primordial, au moins je me coucherai moin con ce soir.
[edtdd]--Message édité par k yo--[/edtdd]
---------------
"Si l'homme descend du singe, il peut aussi y remonter."