Discussion :

[iTitoune]

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 :

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

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

[gFZT82]

Bonjour,

Tu peux essayer avec *ERI*

Cordialement.

[iTitoune]

Merci gFZT82,

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

[gFZT82]

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 :

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

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.