Formule de type LEFT / MID / TRIM / RIGHT

[kevin1030]

Bonjour,

Je cherche une solution pour découper une chaine de caractères suivants des critères précis. Si possible, juste en utilisant des formules.

Voici le fichier explicatif avec exemple.



Merci d'avance

 

[tdenfert]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Bonjour,

avec ceci peut être

=SI(CHERCHE(" ";A16;1)>5;GAUCHE(A16;5);GAUCHE(A16;CHERCHE(" ";A16;1)-1))

 

[mth]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Bonjour kevin, tdenfert,

Un autre essai en C2 et tirée vers le bas:

=GAUCHE(A2;MIN(SI(ESTNUM(STXT(A2;LIGNE($1:$255);1)*1);LIGNE($1:$255)))-1)

formule matricielle à valider par CTRL MAJ ENTER

pour D2:

=GAUCHE(SUBSTITUE(A2;F2;"");CHERCHE(" ";SUBSTITUE(A2;F2;""))-1)

et E2:

=SUBSTITUE(SUBSTITUE(A2;F2&G2;"");" ";"";1)

Bonne journée à tous 🙂

mth

 

[kevin1030]

Re : Formule de type LEFT / MID / TRIM / RIGHT

C'est presque çà !
Concernant la premier collone, je veux avoir tout le temps 5 caratères au total.
Si il y a que 3 nombres, il doit y avoir 2 espaces après et si il y a que 4 nombres, il doit y avoir 1 espace après pour avoir 5 caractères.

 

[tototiti2008]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Bonjour kevin, bonjour tdenfert, bonjour mth 🙂

peut-être pour la 1ère formule

=GAUCHE(A2;MIN(5;CHERCHE(" ";A2)))&REPT(" ";5-MIN(5;CHERCHE(" ";A2)))

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Bonjour le fil, le forum,

Le plus simple paraît d'insérer 2 colonnes intermédiaires C et D, chacune insérant un espace s'il est nécessaire.

Formule en C2 :

=SI(ESTNUM(-STXT(A2;8;1));A2;REMPLACER(A2;5;0;" "))

Formule en D2 :

=SI(ESTNUM(-STXT(C2;8;1));C2;REMPLACER(C2;5;0;" "))

Pour les formules en E2 F2 G2 on remplace A2 par D2.

Fichier joint.

A+

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Re,

En fait d'après ce que je comprends, il peut y avoir jusqu'à 4 espaces à insérer.

Alors une seule colonne intermédiaire avec cette fonction macro :

Function MEF$(t$)
Dim i, j
For i = 1 To Len(t)
  If IsNumeric(Mid(t, i, 1)) Then Exit For
Next
For j = i To Len(t)
  If Not IsNumeric(Mid(t, j, 1)) Then Exit For
Next
MEF = Application.Replace(t, i, 0, String(9 - j, " "))
End Function

Fichier (2).

A+

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Re,

Une solution entièrement par formules qui font la même chose que la macro du post #7.

Voir les noms définis deb et fin et la formule en C2 :

=REMPLACER(A2;deb;0;REPT(" ";9-fin))

Fichier (3).
A+

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Annulé, je croyais le post précédent non envoyé 😡

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Bonjour le fil, le forum,

Sur les versions (2) et (3), regardez les lignes 24 et 25 :ça ne va pas 😡

Il faut rechercher les chiffres après le 5ème caractère ou après le 1er espace.

tototiti l'avait bien vu 🙂 mais c'est un tantinet tordu tout ça.

Prenez donc ces versions (2 bis) et (3 bis).

A+

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Re,

Retour sur la fonction VBA :

Function MEF$(t$, n As Byte)
Dim deb, fin
deb = Application.Min(5, InStr(t, " ")) + 1 'à cause des lignes 24 et 25
For deb = deb To Len(t)
  If IsNumeric(Mid(t, deb, 1)) Then Exit For
Next
For fin = deb To Len(t)
  If Not IsNumeric(Mid(t, fin, 1)) Then Exit For
Next
MEF = Application.Replace(t, deb, 0, String(9 - fin, " "))
If n = 1 Then MEF = Left(MEF, 5) 'colonne C
If n = 2 Then MEF = Mid(MEF, 6, 3) 'colonne D
If n = 3 Then MEF = Mid(MEF, 10, 14) 'colonne E
End Function

Maintenant il n'y a plus besoin de colonne intermédiaire.

Une seule formule en C2 à tirer à droite et vers le bas :

=MEF($A2;COLONNES($C2:C2))

A+

 

[job75]

Re : Formule de type LEFT / MID / TRIM / RIGHT

Re,

Pour la version par formules, pas besoin de colonne intermédiaire non plus.

Formule en C2 à tirer à droite et vers le bas :

=STXT(REMPLACER($A2;deb;0;REPT(" ";9-fin));CHOISIR(COLONNES($C2:C2);1;6;10);CHOISIR(COLONNES($C2:C2);5;3;14))

A+