Recherche texte dans une phrase - position variable

[marcel45]

Bonjour
Je suis nouveau sur ce forum et donc débutant! je vous remercie donc d'avance de toute l'aide que vous m'apporterez !
Première question
Dans une cellule j'ai un texte contenant des mots de longueur variable sans positionnement précis.
ex;
DCD hier dans la maison de Arhancet-bourg , Veuf Resultat : Arhancet-bourg
DCD hier a 09h du soir à Pierre Résultat : Pierre
Née hier à 12h du matin dans la maison d Etchart Resultat : maison d Etchart
Né hier a 09h du soir dans la maison de Mercapide, fils naturel Resultat : fils naturel
DCD ce matin dans la caserne de douanes Resultat : caserne de douanes

Objectif selon la typologie des termes je souhaite extraire un mot en particulier
Quelle formule s'appliquerait en général pour extraire un mot dans une position particulier, sachant que je suis "prêt" a modifier a chaque cas certaines variables des fonctions appliquées.
Est ce clair?
J'ai réussi a faire un cas particulier trouvé sur le forum pour le dernier mot. J'aimerai une formule générale si c est possible

 

[Dranreb]

Re : Recherche texte dans une phrase - position variable

Bonjour.

Function Mots(ByVal Src As String, ByVal Pos As Long, Optional ByVal Nb As Long = 1) As String
Dim Te() As String, Ts() As String, C As Long
Te = Split(Src)
ReDim Ts(1 To Nb)
For C = 1 To Nb: Ts(C) = Te(Pos + C - 2): Next C
Mots = Join(Ts)
End Function

=Mots("Toto Titi Tata";2)

donne "titi"

 

[marcel45]

Re : Recherche texte dans une phrase - position variable

Merci pour cette réponse.
Je m’attendais a une formule!
Si j'utilise votre solution comment la mettre en place en VB ( Je suis débutant)!
Merci

 

[Dranreb]

Re : Recherche texte dans une phrase - position variable

Alt+F11, clic droit dans l'explorateur de projet sur le projet VBA de votre classeur, Insertion, Module puis collez le code dans la fenêtre de code.

 

[marcel45]

Re : Recherche texte dans une phrase - position variable

Bonsoir
Merci
ca marche tres bien
A Bientot