Remplacer par 0

[Fred]

Slt,
soit une variable a contenant un nombre quelconque:
Dim a
a = Range("A1").value
Je voudrais tester la longueur du nombre, ca je sais faire:
If Len (a) <8 Then
Et si ce nombre a une longueure inférieure à 8 mettre 'x' zero devant pour que ce nombre ait une longeure de 8 caracteres.
exemple:
a=123
apres traitement:
a=00000123

Merci.

 

[Fred]

C'est bon, j'ai trouvé tout simplement:

If Len(a) <8 Then
For q=1 to Len(a)
a= "0" & a
Next
End If

 

[Fred]

Petite erreur rectifiée:

If Len(a) <8 Then
x= 8-Len(a)
For q=1 to x
a= "0" & a
Next
End If

 

[STéphane]

Bonjour


Je pense que tu dois pouvoir créer un format personnalisé pour faire cela.



bye
Stéphane

 

[Jean Claude]

slt

il suffit de créer un format nombre : 00000000

bon courage

 

[Fred]

Et ben non, en fait dans l'exemple que j'ai fais plus haut j'utilise un nombre dans une cellule, mais dans ce que je voulais faire le nombre n'etais pas contenu dans une cellule mais totu ce passait par macro