Bonsoir,

J'ai créé une macro qui permet de transformer un chiffre se trouvant dans la colonne A, en texte dans la colonne B.
Ce chiffre précédé de 0 à gauche. Longueur du chiffre sur 12 positions.

Exemple
A1 : 125
B1 : devient 000000000125 à l'exécution de la macro.

Voici la macro en question :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub transformation()
 
Dim i As Long
 
Columns("B:B").Select
Selection.NumberFormat = "@"
 
i = 1
While Not IsEmpty(Cells(i, 1))
Cells(i, 2) = Format(Cells(i, 1), "000000000000")
i = i + 1
Wend
 
End Sub
Je ne parviens pas à améliorer cette macro pour traiter les chiffres à virgule.
Exemple si A1 = 125,95
Je voudrais que B1 devienne : 000000012595

Un grand merci pour votre aide.
Cordialement.