Extraire une chaine de caracteres

Bonjour à tous,

À condition de bien avoir un espace avant et après le mot composé:

On cherche la position du premier espace après "-" = CHERCHE(" ";A17;CHERCHE("-";A17))
On prend le texte à gauche B18=GAUCHE(A17;CHERCHE(" ";A17;CHERCHE("-";A17))-1)
on compte le nombre d'espaces =NBCAR(B18)-NBCAR(SUBSTITUE(B18;" ";""))
puis on cherche la position du dernier espace =CHERCHE("§";SUBSTITUE(B18;" ";"§";2))
On isole le texte à partir de cette position en regroupant tout dans une seule formule:
=STXT(GAUCHE(A17;CHERCHE(" ";A17;CHERCHE("-";A17))-1);CHERCHE("§";SUBSTITUE(GAUCHE(A17;CHERCHE(" ";A17;CHERCHE("-";A17))-1);" ";"§";2));99)

Bonjour

En A1 le texte avec le -

En B1 cette formule

 =GAUCHE(A1;CHERCHE("-";A1)-2)&DROITE(A1;NBCAR(A1)-CHERCHE("-";A1)-1)

Bonjour Brucine

En A1 le texte avec les espaces et le  " - "

En B1 cette formule

=SIERREUR(GAUCHE(A1;CHERCHE(" - ";A1)-1)&DROITE(A1;NBCAR(A1)-CHERCHE(" - ";A1)-1);A1)

Il y aura certainement des ratés du aux espaces

Bonjour Brucine

Si A1 contient "j'ai un porte-manteau - noir" la formule fonctionne

On supprime le " - " entre manteau et noir, comme si cela était une erreur de saisie

Pour le reste je n'ai pas 365 et on a pas assez d'informations pour être sûr de bien répondre à la question

Bonjour à tous,

Une fonction VBA :

Function Extr(C)
  Application.Volatile
  For Each Item In Split(C, " ")
    If IsNumeric(Application.Search("-", Item)) Then
      Extr = Item
      Exit For
    End If
  Next Item
End Function

Utilisation (exemple) :

=EXTR(A1)

Si tu as des problèmes pour installer la fonction, n'hésite pas à demander.

Daniel

Re bonjour

Merci a tous de vos reponses.

Alors voila ce que j'obtiens avec mon cas :

En A1 j'ai le texte suivant: 
* Reception de tomate du client WHD-5 : 100kg mure, taille moyenne.
Le but c'est extraire WHD-5.

La reponse 1 donne ce resultat :"* Reception de tomate du client WH : 100 lkg mure, taille moyenne.
La reponse 2 donne ce resultat :"* Reception de tomate du client WHD-5 : 100 lkg mure, taille moyenne."
La reponse 3 donne ce resultat :"Reception de tomate du client WHD-5 "
La reponse 5 donne ce resultat :" de tomate du client WHD-5"
 

Pour l'installation de la fonction je veux bien de l'aide

Bonjour.

"extraire la suite de caractères qui se trouve entre 2 espaces et qui contient -"

Cette suite peut contenir combien de caractères au maximum ? Ton exemple donne 5 ; est-ce la règle ?

Est-ce que le mot recherché est toujours précédé du mot "client" ?

Bonjour à tous,

Pour installer la fonction :

Ouvre ton classeur. Appuie sur les touches Alt et F11 pour ouvrir la fenêtre de l'éditeur VB :

Repère dans la partie gauche le VBAProject qui a le même nom que ton classeur. Fais un clic droit dessus, clique sur Insertion et sur Module :

Dans la partie droite de la fenêtre, colle le code de la fonction :

Ferme la fenêtre de l'éditeur VB. Enregstre le classeur au format "Classeur Excel (prenant en charge les macros)(*.xlsm).

C'est tout. Tu peux maintenant te servir de la fonction (uniquement dans ce classeur).

Daniel

Bonjour,

Pour Raymond PENTIER : la suite de caracteres peut contenir jusqu'a 10 caracteres et pas toujours precedee du mot client.

Pour danielc0 : Merci pour le tuto et ca marche tres bien.

je suis toujours preuneur si une formule peut le faire aussi.

Merci tous pour votre aide...

Bonjour,

En regroupant j'ai oublié de remplacer un nombre par son expression! Oups!

position du dernier espace =CHERCHE("§";SUBSTITUE(B18;" ";"§";2))

Il faut:

position du dernier espace =CHERCHE("§";SUBSTITUE(B18;" ";"§";NBCAR(B18)-NBCAR(SUBSTITUE(B18;" ";""))))

Ce qui donne pour la formule globale:

=STXT(GAUCHE(A17;CHERCHE(" ";A17;CHERCHE("-";A17))-1);CHERCHE("§";SUBSTITUE(GAUCHE(A17;CHERCHE(" ";A17;CHERCHE("-";A17))-1);" ";"§";NBCAR(B18)-NBCAR(SUBSTITUE(B18;" ";""))));99)

je vous laisse remplacer A17 par A1.

Bonjour,

Les 2 formules marche impecablement !

En tout cas moi je prends les 2 solutions.

Merci a tous pour votre aide

je mets resolu