fonction texte

[phil]

Bonjour,

Extraire le premier d'une chaine de caractere, c'est assez facile. Mais comment extraire simplement le dernier mot d'une chaine de caractère ?

Merci

 

[Lord Nelson]

Salut Phil, Jean-Pierre, le forum,

Voici une fonction (à placer dans un module) qui te permettra de le faire :

Function DernierMot(CL As Range) As String
If InStr(CL.Text, " ") > 0 Then
Temp = Split(CL.Text)
DernierMot = Temp(UBound(Temp))
Else
DernierMot = CL.Text
End If
End Function

Si ta chaîne est en A1, par exemple, tu peux taper la formule suivante où tu veux :

=DernierMot(A1)

A+
Horatio

NB : Split est une fonction VB relativement récente, elle risque donc de ne pas fonctionner avec Excel 97, c'est à vérifier.

 

[Jean-Marie]

Bonsoir, Phil, Horatio

Pour avoir d'autres solution, regarde ce fil Lien supprimé

@+Jean-Marie

 

[Lord Nelson]

En effet Jean-Marie, quel bouillonnement de neurones sur le fil que tu as indiqué !
A+
Horatio

 

[phil]

Salut,

Apparament EXCEL 97 ne reconnait pas la fonction InStr. Par contre , je suis allé voir le fil (????) que Jean-Marie m'a indiqué et j'ai trouvé mon bonheur.

En tous les cas, merci pour la solution.

A+