Extraire un mot d'une cellule texte

Bonjour,

j'aurais besoin de votre aide pour extraire une chaine de caractère d'une cellule de texte.

Je précise mon problème:

j'ai un tableau excel avec des cellules remplies de texte et je souhaiterais récupérer la chaîne de caractères commençant par K_

Ex:

Cellule d'origine:

" La condition sol/vol sera déclanchée si la constante K_OPE_SOL_VOL et la constante K_OPE_ETAT_VALID sont à vraie"

Résultat souhaité:

K_OPE_SOL_VOL

K_OPE_ETAT_VALID

Par avance merci pour votre aide

Bonsoir Exo,

essaie ceci. Ce n'est peut-être pas la solution la plus simple mais cet

une solution.

Sub extractionK_()
    Dim Tableau() As String
    Dim i As Integer
    Dim i As Integer

    'découpe la chaine en fonction des espaces " " et stocke dans Tableau
    Tableau = Split("La condition sol/vol sera déclanchée si la constante K_OPE_SOL_VOL et la constante K_OPE_ETAT_VALID sont à vraie", " ")

    'boucle sur le tableau et affiche la chaine de caractère comprenant K_
    For i = 0 To UBound(Tableau)
        nbligne = Application.CountA(Range("A:A"))
        If Tableau(i) Like "*K_*" Then
        Range("A" & nbligne).Value = Tableau(i)
        End If
    Next i
End Sub

Cordialement

Bonjour Patrick,

tout d'abord merci pour ton aide mais j'arrive pas à le faire marcher, du coup si je peux abuser de ton aide je te files un fichier excel en exemple.

Merci

Bonjour Exo,

ci-joint fchier modifier.

Juste pour info, je ne suis pas expert en VBA. Mais je t'aide suivant le quelqes connaissanes que j'ai

Merci ça me donne une bonne base

Par contre est ce qu'il serait possible d'écrire en ligne plutôt qu'en colonne le résultat?

Et est ce que c'est possible de lancer la macro sur un ensemble de cellules plutôt que cellule par cellule?

En tt cas une fois de plus merci pour ton aide