Chercher afficher chaine de caractère

Bonjour,

je voudrais rechercher dans une chaîne de caractère si il existe un mot commençant par "wil" et aussi "(m-"

Si oui je voudrais récupérer dans une variable "res" les caractères compris entre "'m-" et ")"

Par exemple la variable sujet comprend :

*wilfried Caroline Yvan pour KiFeKoi(m- KFK)

Il y a bien wilfried qui commence par wil

et (m-

Je voudrais donc récupérer les lettres KFK entre (m- et )

Voici mon code pour vérifier si les mots éxistent (qui fonctionne)

mais je n'arrive pas à récupérer "KFK"

Pourriez-vous m'aider svp ?

If LCase(sujet) Like "*wil*" And LCase(sujet) Like "*(m-*" Then

Je vous remercie beaucoup de votre aide

Cordialement

Bonjour,

je te joins un petit test:

Sub test()
sujet = "*wilfried Caroline Yvan pour KiFeKoi(m- KFK)"
If LCase(sujet) Like "*wil*" And LCase(sujet) Like "*(m-*" Then
    dep = InStr(1, sujet, "(m-") + 3
    fin = InStr(dep, sujet, ")")
    texte = Trim(Mid(sujet, dep, fin - dep))
End If
End Sub

tu pourras tout comprendre comme ça

Merci beaucoup

C'est parfait

Rechercher des sujets similaires à "chercher afficher chaine caractere"