Bonjour à tous,

j'ai fait la macro suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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