VBA pour transformer un nombre en texte à largeur fixe

Bonjour,

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

Code:

---

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

Bonjour,

Utiliser les propriétés des strings.

Code:

---

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!

ça marche nickel, merci :ccool:

Bonjour,

ou plus simplement :

Code:

---

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

---

eric