Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format

Format

4 réponses
Avatar
STEN83
bonjour, une petite question sur les format comment metre en forme
automatiquement un nombre avec des lettre de style immatriculation, j'ai
125AFR75 et je voudrais avoir 125 AFR 75 merci pour tout!
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ardus Petus
Bon dimanche!

Avec une UDF:

Function immat(sText As String) As String

Static re As RegExp

If re Is Nothing Then
Set re = New RegExp
re.Pattern = "^(d+)([A-Z]+)(d+|2A|2B)$"
re.IgnoreCase = True
End If

immat = re.Replace(sText, "$1 $2 $3")
End Function

Nécessite une référence à Microsoft VBScript Regular Expressions 1.0

Cordialement,
--
AP

"STEN83" a écrit dans le message de news:

bonjour, une petite question sur les format comment metre en forme
automatiquement un nombre avec des lettre de style immatriculation, j'ai
125AFR75 et je voudrais avoir 125 AFR 75 merci pour tout!
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous


Avatar
AV
"...125AFR75 et je voudrais avoir 125 AFR 75 ..."

Matricielle (validation par ctrl+maj+entrée) :
=GAUCHE(A1;EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;0)-1)&"
"&STXT(A1;EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;0);MAX(SI(CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;LIGNE(INDIRECT("1:"&NBCAR(A1)));""))-EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;0)+1)&"
"&STXT(A1;MAX(SI(CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;LIGNE(INDIRECT("1:"&NBCAR(A1)));""))+1;9^9)

AV
Avatar
STEN83
Je ne comprend pas la formule ou dois-je la placé ?
Merci de m'éclairer
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



"...125AFR75 et je voudrais avoir 125 AFR 75 ..."

Matricielle (validation par ctrl+maj+entrée) :
=GAUCHE(A1;EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;0)-1)&"
"&STXT(A1;EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;0);MAX(SI(CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;LIGNE(INDIRECT("1:"&NBCAR(A1)));""))-EQUIV(VRAI;CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;0)+1)&"
"&STXT(A1;MAX(SI(CODE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))>57;LIGNE(INDIRECT("1:"&NBCAR(A1)));""))+1;9^9)

AV





Avatar
AV
| Je ne comprend pas la formule ou dois-je la placé ?
| Merci de m'éclairer

La chaîne à "décortiquer" est en A1
La formule (une seule ligne) est à mettre (comme toutes les formules) dans une
cellule et à valider par ctrl+maj+entrée
Exemple là :
http://cjoint.com/?gthOQ10Sai

AV