Extraire le mot

Bonjour,

comment on peut extraire le mot "horizontal" dans une phrase " c'est une machine horizontal" en utilisant macro

merci d'avance

1 réponse

  1. Contributeur
    Bonjour,

    Sub demo()
    Range("A2").ClearContents
    If Range("A1") Like "*horizontal*" Then
         Range("A2") = "horizontal"
    Else
         MsgBox " le mot ""horizontal"" ne figure pas dans la cellule A1 "
    End If
    End Sub