[XL-2007] extraction 1er/dernier mot d'une cellule [Résolu]

[cedinfo17]

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

[Philippe JOCHMANS]

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 :

=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]

Bonjour à tous,

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

Code :

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

Cordialement

[Philippe JOCHMANS]

Re

Autre solution en VB (plus simple pour moi )

Une fonction dans un module VB

Code :

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

l'utilisation dans une cellule

Code :

=PremierDernier(A1)

Philippe

[cedinfo17]

OK merci bcp pour vos réponses !!