Ce code de une ligne permet de mettre un zéro devant un chifre.
Source / Exemple :
Dim Nombre_Entre As Integer 'As long, As byte etc... (numerique)
Dim Nombre_Sorti As String '(Chaine de Caractère)
Nombre_Sorti=Right("0" & Nombre_Entre,2)
ou bien
Nombre_Sorti=format$(Nombre_Entre,"00"
Nombre_Sorti= String("0",X) & cstr(Nombre_Entre)
X = nombre de 0 a ajouter au début
il fallait lire ;)
nombre_sorti=format$(nombre_entre,"00")
dim nombre_sorti as string
dim nombre_entre as integer
nombre_sorti=format$(nombre_tre,00)
ca évite un test
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.