Recherche VBA dans Excel

Bonjour a tous

Je suis nouveau sur le forum et je viens a vos aides.

Je suis entrain de faire un fichier excel pour me facilité le travail du quotidien ou dans une colonne il y a la désignation d'un produit et dans une autre un code informatique.

J'ai réussi a modelé un petit moteur de recherche que j'ai récupéré sur internet mais il a c'est limite.
il trouve bien ce que je lui demande mais que sur les premiers mots des phrases.

ex : une phrase qui contient "disjoncteur ERI", si je fais une recherche avec le mot "disjoncteur" il va me le retrouver mais pas si je tape uniquement "ERI"

voici le code VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Application.Intersect(Target, Range("B6:G6")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target = "vide" Then Target.Value = "=" End If Range("B7:BG15000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("B5:G6"), Unique:=False End If   End Sub

---

Merci

Bonjour,

Tu peux essayer avec *ERI*

Cordialement.

Merci gFZT82,

Mais j'ai une autre question.
Comment faire une recherche sans rajoute les **

Bonjour,

Le code que tu utilises n’effectue pas à proprement parler une recherche.
Il s’agit d’un filtre élaboré qui sélectionne les données de la plage B7:BG15000 en fonction de critères que tu notes dans la plage B5:G6.
Si tu veux simplement à effectuer la recherche d’un mot dans une plage, tu peux utiliser d’autres fonctions.
Voici un exemple de solution avec la méthode Find.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test() Dim Mot As String Dim C As Range With Worksheets("Feuil1") Mot = InputBox("Quel est le mot à rechercher ?") Set C = .Range("B7:BG15000").Find(Mot, , xlValues, xlPart) If Not C Is Nothing Then C.Select MsgBox "Le mot a été trouvé à l'adresse " & C.Address Else MsgBox "Le mot n'a pas été trouvé dans la plage B7:BG15000" End If End With End Sub

---

Cordialement.