KTM XLDnaute Impliqué 20 Février 2021 #1 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 !!!
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 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
Bonjour KTM, Essayez cela : VB: Sub Essai() [a1] = Format("200369a", "@@@ @@@ @") [a2] = Format("200369A", "@@@ @@@ @") End Sub
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
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+
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
M12 à dit: Bonjour, Un test sur cellule en colonne A Cliquez pour agrandir... Merci! C'est exactement ce que je voulais!
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
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!