Discussion :

[bentor22]

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

[tedo01]

Bonjour,

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

Code :

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

=TEXTE(A1;"0000000000")

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

Code :

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

Format(20241, "0000000000")

[bentor22]

merci pour cette astuce.

du coup, je l insere ou dans ma macro?

[tedo01]

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

Code :

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

.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 :

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

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

[bentor22]

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.