Discussion :

[Maxou 10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Maxou 10]

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

[Philippe Tulliez]

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

[Maxou 10]

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

[Philippe Tulliez]

Bonjour,

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*"