je cherche a séparé une série des chiffres et des lettres avec des sécance bien définie

[djeghader]

voila je vœux que les chiffre et lettre de l image (1) deviennent (2)
xxxxxyxxxxxxxxxxxxxx ---------> xxx (2 espace) xx (1 espace) lettre y (1 espace) xxx (2 espace) xxxxxxxxxx
exp :
00803B0099613032010 --------> 008 03 B 009 9613032010
00803B00897 -------> 008 03 B 008 97
et je vous remercie de votre aide

 

[Jacky67]

voila je vœux que les chiffre et lettre de l image (1) deviennent
00803B0099613032010 --------> 008 03 B 009 9613032010
00803B00897 -------> 008 03 B 008 97

Bonjour,
Une solution par macro ?

Sub Fomatejj()
Dim c As Range
For Each c In [d2:d11]
    If Mid(c, 9, 1) <> "B" Then c = Left(c, 3) & Space(2) & Mid(c, 4, 2) & Space(1) & Mid(c, 6, 1) & Space(1) & Mid(c, 7, 3) & Space(2) & Mid(c, 10, 10)
Next
End Sub

Salutations
JJ

 

[Jocelyn]

Bonjour le Forum,
Bonjour djeghader, Jacky67,

Et par formule en D21 cela donnerait

=STXT(D2;1;3)&" "&STXT(D2;4;2)&" "&STXT(D2;6;1)&" "&STXT(D2;7;3)&" "&STXT(D2;10;99)

Cordialement