XL 2021 Extraire tous les caractères à gauche du 2eme espace

[Usine à gaz]

Bonjour à toutes et à tous

J'en ai une p'tite du matin
Extraire tous les caractères à gauche du 1er espace, j'ai la formule : "=GAUCHE(C5;CHERCHE(" ";C5;1)-1)"

Mais je n'arrive pas à trouver comment Extraire tous les caractères à gauche du 2eme espace.
Auriez-vous la bonne formule ?
Je joins un petit fichier test et je continue à tenter de trouver.
Je vous remercie...

 

[Eric KERGRESSE]

Bonjour,

Avec une fonction :

Function ExtraireChaine(ByVal Chaine As String) As String

Dim TabChaine As Variant

    ExtraireChaine = ""
    If InStr(1, Chaine, " ", vbTextCompare) > 0 Then
       TabChaine = Split(Chaine, " ")
       Debug.Print UBound(TabChaine)
       Select Case UBound(TabChaine)
              Case 1
                 ExtraireChaine = TabChaine(0)
              Case 2
                ' ExtraireChaine = TabChaine(0) & "-" & TabChaine(1)
                 ExtraireChaine = TabChaine(0) & " " & TabChaine(1)
       End Select
    End If

End Function

 

[sylvanu]

Bonjour Usine à gaz, Eric,
Peut être avec :

=SIERREUR(GAUCHE(C5;CHERCHE(" ";STXT(C5;1+CHERCHE(" ";C5);1000))+CHERCHE(" ";C5));GAUCHE(C5;CHERCHE(" ";C5;1)-1))

La première partie cherche si 2 espaces, la seconde si seulement un espace.

 

[Usine à gaz]

Bjr Eric KERGRESSE , Bjr sylvanu

Merci pour vos retours et fichiers.

Nickel pour les 2.
Super, me voilà avec la fonction et la formule.
Je vous remercie.

On ne peut pas mettre 2 posts en solution (à ma connaissance). je mets la 1ère solution.
si vous savez comment mettre plusieurs posts en solutions, je suis preneur

 

[sylvanu]

si vous savez comment mettre plusieurs posts en solutions, je suis preneur

Ce n'est pas possible depuis de nombreuses versions.
Il ne faut en choisir qu'une, celle qui remontera juste après votre demande.

 

[R@chid]

Bonjour,
Je pense que cette formule fonctionne sous Excel 2021 :

=SIERREUR(TEXTE.AVANT(C8;" ";MIN(2;NBCAR(C8)-NBCAR(SUBSTITUE(C8;" ";))));C8)

Cordialement

 

[Usine à gaz]

Bonjour,
Je pense que cette formule fonctionne sous Excel 2021 :

=SIERREUR(TEXTE.AVANT(C8;" ";MIN(2;NBCAR(C8)-NBCAR(SUBSTITUE(C8;" ";))));C8)

Cordialement

Bjr R@chid , le Fil , le Forum
Apparemment, ne fonctionne pas sous Excel 2021

 

[fanch55]

Bjr R@chid , le Fil , le Forum
Apparemment, ne fonctionne pas sous Excel 2021

Salut, Texte.Avant --> uniquement Microsoft 365
peut-être intégré dans l'office 2024 en préparation ?

 

[job75]

Bonjour Lionel, le fil,

Une solution assez classique avec SUBSTITUE :

=GAUCHE(C8;TROUVE(CAR(1);SUBSTITUE(C8&"  ";" ";CAR(1);2))-1)

Avant la substitution on concatène 2 espaces.

A+

 

[Usine à gaz]

Bonjour Lionel, le fil,

Une solution assez classique avec SUBSTITUE :

=GAUCHE(C8;TROUVE(CAR(1);SUBSTITUE(C8&"  ";" ";CAR(1);2))-1)

Avant la substitution on concatène 2 espaces.

A+

Bon,jour Géard , Bonjour Le Fil
Merci gérard
Nickel aussi comme d'habitude...

 

[R@chid]

Bonjour @ tous,
Salut @job75

Bonjour Lionel, le fil,

Une solution assez classique avec SUBSTITUE :

=GAUCHE(C8;TROUVE(CAR(1);SUBSTITUE(C8&"  ";" ";CAR(1);2))-1)

Avant la substitution on concatène 2 espaces.

A+

Quand il n'y a qu'un seul espace, ta formule renvoie le contenu de toute la cellule, exemple en C5.

Cordialement

 

[job75]

Quand il n'y a qu'un seul espace, ta formule renvoie le contenu de toute la cellule, exemple en C5.

Oui, et alors si l'on veut récupérer uniquement ce qui est à gauche de l'espace :

=GAUCHE(C8;SIERREUR(TROUVE(CAR(1);SUBSTITUE(C8;" ";CAR(1);2));TROUVE(" ";C8&" "))-1)

 

[job75]

J'ai testé les formules avec le texte Jean Louis Dupont entré dans 100 000 cellules, les formules étant rendues volatiles par ALEA() :

- post #2 => 2,06 secondes

- post #3 => 0,32 seconde

- post #12 => 0,11 seconde.

 

[mapomme]

Bonsoir à tous ,
Ma pomme veut y participer aussi : =GAUCHE(C8;TROUVE(" ";C8;TROUVE(" ";C8)+1)-1)

 

[Usine à gaz]

Bonjour mapomme nocturne, bonjour le Fil
Et celui-là, tu pourrais tenter une modification de la formule ? :

Microsoft 365 - Formule pour écrire des chiffres en lettre

bonjour à tous j'ai besoin de votre aide, j'aimerai pouvoir dans ma cellule A2 écrire en lettre la valeur de la cellule A1, et sans à avoir utiliser une Macro. Je vous passe en pièce jointe un fichier Excel. Merci beaucoup pour votre aide vincent

excel-downloads.com

Bon réveil