Merci Vgendron pour ta réponse.
Mon fichier d'essai n'a rien ou presque ... juste un nombre de 15 chiffres dans une cellule.
Quant à ma macro la voici (ne te moque pas, je ne suis pas un expert) :
Sub Essai_pour_15_chiffres()
Orig = ActiveCell.Value 'Orig = cellule d'Origine
Orig1 = Left(Orig, 3) 'Orig1 = les 3 premiers chiffres de Orig
Orig2 = Mid(Orig, 4, 3) 'etc ...
Orig3 = Mid(Orig, 7, 3)
Orig4 = Mid(Orig, 10, 3)
Orig5 = Right(Orig, 3)
Dest5 = Val(Orig5) * 2 'Multiplication des 3 derniers chiffres de la cellule d'origine
Retenue = IIf(Dest5 > 999, 1, 0) 'Au cas où il y ait une retenue après la multiplication
Dest5 = Right(Dest5, 3) 'Les 3 derniers chiffres du résultat
'etc ...
Dest4 = Val(Orig4) * 2 + Retenue
Retenue = IIf(Dest4 > 999, 1, 0)
Dest4 = Right(Dest4, 3)
Dest3 = Val(Orig3) * 2 + Retenue
Retenue = IIf(Dest3 > 999, 1, 0)
Dest3 = Right(Dest3, 3)
Dest2 = Val(Orig2) * 2 + Retenue
Retenue = IIf(Dest2 > 999, 1, 0)
Dest2 = Right(Dest2, 3)
Dest1 = Val(Orig1) * 2 + Retenue
Dest1 = IIf(Dest1 > 999, "1 " & Dest1 - 1000, Dest1)
Resultat = "'" & Dest1 & " " & Dest2 & " " & Dest3 & " " & Dest4 & " " & Dest5
End Sub
Ta macro me semble intéressante. Comment l'insérer dans la mienne ?
Merci encore de t'être penché sur mon problème.
Cordialement