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

Usine à gaz · 9 Novembre 2023

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 · 9 Novembre 2023

Bonjour,

Avec une fonction :

VB:

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

Eric KERGRESSE · 9 Novembre 2023

Bonjour,

Avec une fonction :

VB:

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 · 9 Novembre 2023

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

VB:

=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 · 9 Novembre 2023

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 · 9 Novembre 2023

Usine à gaz à dit:
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 · 12 Novembre 2023

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

VB:

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

Cordialement

Usine à gaz · 12 Novembre 2023

R@chid à dit:
Bonjour,
Je pense que cette formule fonctionne sous Excel 2021 :

VB:

=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 · 12 Novembre 2023

Usine à gaz à dit:
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 · 12 Novembre 2023

Bonjour Lionel, le fil,

Une solution assez classique avec SUBSTITUE :

Code:

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

Avant la substitution on concatène 2 espaces.

A+

Usine à gaz · 12 Novembre 2023

job75 à dit:
Bonjour Lionel, le fil,

Une solution assez classique avec SUBSTITUE :

Code:

=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 · 12 Novembre 2023

Bonjour @ tous,
Salut @job75

job75 à dit:
Bonjour Lionel, le fil,

Une solution assez classique avec SUBSTITUE :

Code:

=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 · 12 Novembre 2023

R@chid à dit:
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 :

Code:

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

job75 · 12 Novembre 2023

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 · 13 Novembre 2023

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

Usine à gaz · 13 Novembre 2023

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 🙂

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Eric KERGRESSE

Eric KERGRESSE

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Microsoft 365 - Formule pour écrire des chiffres en lettre

Discussions similaires

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency