Bonjour,

Dans le cadre d'un retraitement de fichier, je dois conserver des numéros de compte à 6 chiffres. Problème : lorsque le numéro de compte est par exemple, "013000", alors avec le bout de code ci-dessous, j'obtiens "13000" alors que je voudrais "013000".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("Retreated data")
 
        Dim LR1 As Long, MyRange As Range
        LR1 = .Cells(.Rows.Count, 1).End(xlUp).Row
 
            For Each MyRange In .Range("E2:E" & LR1)
                MyRange.Value = Format(MyRange.Offset(0, -4).Value & MyRange.Offset(0, -3).Value, "000000")
                MyRange.Offset(0, 1).Value = MyRange.Offset(0, -2).Value - MyRange.Offset(0, -1).Value
 
            Next MyRange
 
    End With
Pourriez-vous m'aider SVP à formater mon numéro de compte à 6 digits ?
Merci d'avance !