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

Usine à gaz

XLDnaute Barbatruc
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...
:)
 

Pièces jointes

  • extraire avant 2eme espace.xlsm
    9.6 KB · Affichages: 11
Solution
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

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Usine à gaz :),
Et celui-là, tu pourrais tenter une modification de la formule ? :
Je sens que la tâche va être ardue. Il va me falloir du temps et surtout tout plein de courage.
1699866758882.png
.
 

Discussions similaires

Réponses
3
Affichages
200

Statistiques des forums

Discussions
314 626
Messages
2 111 294
Membres
111 093
dernier inscrit
Yvounet