Recherche et selection d'un mot

[nicoloc]

Bonjour,
Je voudrais savoir sir il est possible de réalise en VBA la fonction suivante :
- recherche d'un mot commancant par IM dans une plage donnée
- Selection du mot (longueur variable)
- Copie dans une autre cellule
Mon veritable probleme ce situe au plus au niveau de la selection du mot entier de longueur variable.

Merci de votre aide
Nicolas

 

[kjin]

Re : Recherche et selection d'un mot

Bonjour,
Plage en A1:A5

=INDEX(A1:A5;EQUIV("IM*";A1:A5;0))

A+
kjin

 

[Hulk]

Re : Recherche et selection d'un mot

Hello Forum, Nicoloc, Kjin 🙂

En VBA.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim x As Range

    For Each x In Range("A1:A" & Range("A65536").End(xlUp).Row)
        If Left(x, 2) = "IM" Then x.Offset(0, 1).Value = x.Value
    Next x

End Sub

 

[Odesta]

Re : Recherche et selection d'un mot

Bonjour à tous

en partant de la réponse de Kjin

=STXT(INDEX(A1:A5;EQUIV("*IM*";A1:A5;0));CHERCHE("IM";INDEX(A1:A5;EQUIV("*IM*";A1:A5;0)));CHERCHE(" ";INDEX(A1:A5;EQUIV("*IM*";A1:A5;0));CHERCHE("IM";INDEX(A1:A5;EQUIV("*IM*";A1:A5;0))))-CHERCHE("IM";INDEX(A1:A5;EQUIV("*IM*";A1:A5;0))))

Basé sur la recherche de l'espace suivant le mot commancant par "IM"


Olivier

 

[nicoloc]

Re : Recherche et selection d'un mot

La solution de Odesta est parfaite ramenée à chaque cellule de mon tableau
Merci beaucoup