Discussion :

[DYV007]

Bonjour,

Je cherche un moyen pour transformer un nombre en texte à largeur fixe dans mon code VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
mag = Sheets("belgique").Range("a7").Offset(a, b).Value
 
nommag=???       
 
Range("B" & c).Value = nommag

A noter que la valeur retournée par mag est 9 ou 12 ou 105 et que nommag doit devenir BE0009 ou BE0012 ou BE0105.

Merci de votre aide

[EngueEngue]

Bonjour,

Utiliser les propriétés des strings.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
intermediaire=CString(mag) ' te donera un chiffre
Len(intermediaire)
select case Len(intermediaire)
Case 1
nommag = "BE000" & intermediaire
Case 2 
nommag = "BE00" & intermediaire
...
End select

J'espère que c'est bon; n'hésite pas à reposter!

[DYV007]

ça marche nickel, merci

[eriiic]

Bonjour,

ou plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nommag = "BE" & format(mag,"0000")

eric