Format de cellule

Bonjour à tous,

j'ai fait la macro suivante:

Code:

---

1 2 3 4 5 6 7 8 9

With Workbooks("dt.xls").Worksheets("b") For i = 0 To .Columns(.Range("E4").Column).Find("*", , , , xlByColumns, xlPrevious).Row - 1 If WorksheetFunction.CountIf(Workbooks(str).Worksheets("P").Range("C4:C297"), .Range("B4").Offset(i, -1)) > 0 Then .Range("B4").Offset(i, 0) = WorksheetFunction.VLookup(.Range("B4").Offset(i, -1), Workbooks(str).Worksheets("Portfolio").Range("C2:AZ297"), 20, False) Else 'rien End If Next i End With

---

le code me renvoie des chiffres tels que: 20401; 1421 ou 3

toutefois, j'aimerai que toutes les cellules aient le meme format, i.e des nombres à 10 chiffres.
ex pour 20401 : 0000020401
1421 : 0000001421
3 : 0000000003

en Excel, je fais '00000000000000020401 puis =droite('00000000000000020401,10).

pouvez vous m aider à le faire sur vba.

bien cordialement

Bonjour,

En Excel, on peut aussi le faire avec la fonction Texte().
Par exemple, si la valeur est en A1 :

Code:

---

=TEXTE(A1;"0000000000")

---

En VBA, c'est la fonction Format() qu'il faut utiliser.
Par exemple pour 20241 :

Code:

---

Format(20241, "0000000000")

---

merci pour cette astuce.

du coup, je l insere ou dans ma macro?

Re,
Si la ligne de code qui alimente la valeur est bien celle-ci :

Code:

---

.Range("B4").Offset(i, 0) = WorksheetFunction.VLookup(.Range("B4").Offset(i, -1), Workbooks(str).Worksheets("Portfolio").Range("C2:AZ297"), 20, False)

---

alors la fonction doit s'insérer comme ça :

Code:

---

.Range("B4").Offset(i, 0) = Format(WorksheetFunction.VLookup(.Range("B4").Offset(i, -1), Workbooks(str).Worksheets("Portfolio").Range("C2:AZ297"), 20, False), "0000000000")

---

merci pour votre réponse, toutefois ca ne marche pas.
les chiffres qui me sont données apres execution de la macro restent les memes.