vba- extraire un mot dans une phrase sous condition

[foufie]

bonjour a tous

je cherche a extraire une lettre apres un mot dans une phrase
la phrase n'est jamais la meme et le mot n'est jamais au meme endroits

par contre la phrase elle est tjs au meme endroits


j'y arrive mais mon souci est que parfois le mot est présent plusieurs fois dans la phrase

et je n'arrive pas a faire comprendre a vba qu'il prend le mauvais "mot "

ci joint un fichier excel

avec un code et une macro

 

[Dranreb]

Re : vba- extraire un mot dans une phrase sous condition

Bonsoir.

Function LettreAprèsCourse(ByVal Z As String) As String
Dim TSpl() As String, P&
TSpl = Split(" " & Z, " Course ")
For P = 1 To UBound(TSpl)
   LettreAprèsCourse = Split(TSpl(P), " ")(0)
   If Len(LettreAprèsCourse) = 1 Then Exit Function
   Next P
LettreAprèsCourse = ""
End Function

En A3 : =LettreAprèsCourse(E3) => E
En A4 : =LettreAprèsCourse(E4) => B
En A5 : =LettreAprèsCourse(E5) => D
En A6 : =LettreAprèsCourse(B6) => B

 

[foufie]

Re : vba- extraire un mot dans une phrase sous condition [ resolu ]

c'est pas tt a fait ce que j'avais besoin

mais j'ai adapter ca fonctionne pas de souci

très bonne idée Le len !!