XL 2016 Formater saisie

M12

XLDnaute Accro

• 20 Février 2021

• #2

Bonjour,
Un test sur cellule en colonne A

 

Pièces jointes

• KTM.xlsm

  14.1 KB · Affichages: 11

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2021

• #3

Bonjour KTM,
Essayez cela :

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Février 2021

• #4

Bonjour KTM, M12, sylvanu,

Formule en B2 :

Code:

=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+

 

Pièces jointes

• Format(1).xlsx

  9.7 KB · Affichages: 1

Dernière édition: 20 Février 2021

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 20 Février 2021

• #5

M12 à dit:

Bonjour,
Un test sur cellule en colonne A

Cliquez pour agrandir...

Merci!
C'est exactement ce que je voulais!

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 20 Février 2021

• #6

job75 à dit:

Bonjour KTM, M12, sylvanu,

Formule en B2 :

Code:

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

A+

Cliquez pour agrandir...

Merci Job75!

 

Vote positif 0 Vote négatif