Remplacer par 0

Fred · 9 Septembre 2002

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 · 9 Septembre 2002

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 · 9 Septembre 2002

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 · 9 Septembre 2002

Bonjour

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

bye
Stéphane

Jean Claude · 9 Septembre 2002

slt

il suffit de créer un format nombre : 00000000

bon courage

Fred · 9 Septembre 2002

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

Remplacer par 0

Fred

Guest

Fred

Guest

Fred

Guest

STéphane

Guest

Jean Claude

Guest

Fred

Guest

Discussions similaires