préfixe dans une comparaison like

Bonjour à tous,

Quand je tape une recherche dans ma textbox, je trouve la comparaison dans ma colonne 2 de ma feuille 2 et je sort le résultat dans une listbox.
J'aimerais s'avoir s'il était possible de trouver en rajoutant un mot devant ?
Exemple: si il y a le mot "pluie" dans ma feuille 2 colonne 2. J'aimerais pouvoir retrouver "pluie" en rentrant "la pluie" dans ma textbox et que cela me sorte "pluie"

voici ce que j'ai essayé :

Code:

---

1 2	If Feuil2.Cells(Ligne, 2) Like "la*" & textbox1 & "*" Then listbox1.AddItem Feuil2.Cells(Ligne, 2)

---

merci de votre aide et bonne soirée

Bonjour,

Citation:

---

Exemple: si il y a le mot "pluie" dans ma feuille 2 colonne 2. J'aimerais pouvoir retrouver "pluie" en rentrant "la pluie" dans ma textbox et que cela me sorte "pluie"

---

Si j'ai bien compris votre demande, vous avez une chaîne de caractères contenant un ou deux mots (par exemple pluie, une pluie ou la pluie) et vous souhaitez conserver "pluie" soit le dernier mot de la chaîne.
Dans ce cas il faut faire l'extraction en amont de votre recherche

Exemple où l'on extrait le dernier mot contenu dans la constante m qui représente la chaîne entrée dans votre TextBox
dans l'exemple, on ne vérifie pas si m est vide

Code:

---

1 2 3 4 5 6 7 8

Sub t() Const m As String = "une pluie" Dim fx As WorksheetFunction Set fx = Application.WorksheetFunction Dim t As Variant t = Split(fx.Trim(m)) MsgBox t(UBound(t)) End Sub

---

je vais essayer ton code cette après midi.

Mais je pense m'être mal exprimé.
Si sur ma feuille 2 colonne B j'ai : pluie (la), voiture (la), ordinateur, coussin, montre (la)....

J'aimerais que si je tape "pluie" ou "la pluie" dans ma textbox, cela me sorte "pluie (la)" dans ma listbox.

Merci pour ton aide

Bonjour,
Le code que j'ai publié extrait le dernier mot entré dans un TextBox (dans mon exemple c'est la constante m) donc si on écrit "la pluie" c'est "pluie" qui sera extrait
Ensuite il faut utiliser l'opérateur Like ou la méthode Find ou encore une fonction de recherche telle que RECHERCHEV, RECHERCHEX, etc. pour chercher pluie soit le mot qui aura été extrait

re bonjour,

J'ai essayer ta macro, mais je n'ai pas réussi à la faire fonctionner.
Je vais continuer à chercher et essayer...

Bonne soirée

Bonjour,

Citation:

---

J'ai essayer ta macro, mais je n'ai pas réussi à la faire fonctionner.

---

Avec une réponse pareille, il est extrêmement compliqué de vous aider.

A mon avis votre problème est dans la recherche d'un mot dans une colonne et pas d'ajouter un préfixe.
Si dans une colonne il y a un mot comme "pluie (la)" la recherche, même sans VBA, doit être effectuée comme ceci "pluie*"

J’avoue que cela fait plusieurs jours que je cherche et vu mon petit niveau cela et compliqué.
Je commence un peu à baisser les bras….

Avec ce code je trouve bien le mot de la textbox dans ma feuille 2 colonne 2. Ce qui me donne correctement ma réponse dans ma listbox.
Par contre si je rajoute un préfixe dans ma textbox, je ne trouve pas le mot…

Code:

---

1 2	If Feuil2.Cells(Ligne, 2) Like textbox1 & "*" Then listbox1.AddItem Feuil2.Cells(Ligne, 2)

---

Bonne journée

Bonjour,

Citation:

---

Ce qui me donne correctement ma réponse dans ma listbox. Par contre si je rajoute un préfixe dans ma textbox, je ne trouve pas le mot…

---

Ma question : Peut-être ai-je mal compris votre problème mais pourquoi ajouter ce préfixe pour chercher un mot que vous pouvez trouver sans l'ajouter ?

L’idée est d’avoir ma liste de la feuille 2 par ordre alphabétique et que je puisse chercher avec ou sans le préfixe. C’est pour ça que «*la*» est à la fin.