XL 2016 Formater saisie

[KTM]

Bonsoir chers tous
je voudrais une macro qui transformera mes saisies dans un format particulier
Par exemple
200369a devient 200 369 A
200369A devient 200 369 A
merci !!!

 

[M12]

Bonjour,
Un test sur cellule en colonne A

 

[sylvanu]

Bonjour KTM,
Essayez cela :

Sub Essai()
    [a1] = Format("200369a", "@@@ @@@ @")
    [a2] = Format("200369A", "@@@ @@@ @")
End Sub

 

[job75]

Bonjour KTM, M12, sylvanu,

Formule en B2 :

=SIERREUR(TEXTE(GAUCHE(A2;NBCAR(A2)-1);"# ##0")&" "&MAJUSCULE(DROITE(A2));"")

Edit : j'ai ajouté un espace pour séparer le dernier caractère.

A+

 

[KTM]

Bonjour,
Un test sur cellule en colonne A

Merci!
C'est exactement ce que je voulais!

 

[KTM]

Bonjour KTM, M12, sylvanu,

Formule en B2 :

=SIERREUR(TEXTE(GAUCHE(A2;NBCAR(A2)-1);"# ##0")& MAJUSCULE(DROITE(A2));"")

A+

Merci Job75!