extraction 1er/dernier mot d'une cellule

**cedinfo17** · 20/08/2011, 04h43

Bonjour à tous,
je cherche une formule qui me permettrait de récupérer au sein d'une cellule le 1er et/ou le dernier mot d'une chaine de caractères. j'ai essayé avec les fonctions droite et gauche mais il faut préciser respectivement le nombre de caractères du dernier ou du premier mot.

j'aimerais pouvoir extraire le 1er et le dernier mot sans connaitre leur nombre de caractères. (PS : je ne veux pas non plus m'aider de caractères d'autres mots de la cellule pour arriver à extraire le 1er et dernier mot)

Quelqu'un aurait une idée svp ?
Merci d'avance

Invité · 20/08/2011, 05h23

Bonjour

Voilà une formule qui n'est pas de moi, mais que j'ai retrouvé dans mes archives lors d'une recherche sur le net il y a plusieurs mois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(A1;CHERCHE(" ";A1;1)-1) &" " &STXT(A1;CHERCHE("µ";SUBSTITUE(A1;" ";"µ";SOMMEPROD((STXT(A1;LIGNE($1:$50);1)=" ")*1)))+1;50)

Le texte étant dans la cellule A1

Philippe

**hben1961** · 20/08/2011, 07h02

Bonjour à tous,

Ou en formule matricielle (valider par CTRL+MAJ+ENTREE):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(A1;CHERCHE(" ";A1;1)-1)&" "&DROITE(A1;EQUIV(" ";STXT(A1;NBCAR(A1)-LIGNE(INDIRECT("1:"&NBCAR(A1)));1);0))

Cordialement

Invité · 20/08/2011, 07h52

Re

Autre solution en VB (plus simple pour moi

)

Une fonction dans un module VB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function PremierDernier(strChaine As String)
    Application.Volatile
    ' déclaration
    Dim strTab() As String
    ' affectation
    strTab = Split(Trim(strChaine), " ")
    PremierDernier = strTab(LBound(strTab)) & " " & strTab(UBound(strTab))
End Function