Recherche et selection d'un mot

nicoloc · 23 Avril 2010

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 · 23 Avril 2010

Re : Recherche et selection d'un mot

Bonjour,
Plage en A1:A5

Code:

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

A+
kjin

Hulk · 23 Avril 2010

Re : Recherche et selection d'un mot

Hello Forum, Nicoloc, Kjin 🙂

En VBA.

Code:

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 · 23 Avril 2010

Re : Recherche et selection d'un mot

Bonjour à tous

en partant de la réponse de Kjin

Code:

=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 · 26 Avril 2010

Re : Recherche et selection d'un mot

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

Recherche et selection d'un mot

nicoloc

Guest

kjin

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Odesta

XLDnaute Impliqué

nicoloc

Guest

Discussions similaires

Recherche et selection d'un mot

nicoloc

Guest

kjin

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Odesta

XLDnaute Impliqué

nicoloc

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency