Recherche par mots clé VBA

Bonjour,

J'ai un problème avec des macros que j'ai faites en VBA.

Voici le sujet : je travaille actuellement sur la gestion des normes dans une entreprise. J'ai créer une base de données sur Excel répertoriant toutes les normes avec leur référence, le sujet de la norme....

J'ai ensuite créer un moteur de recherche (avec des userform) pour les utilisateurs.

Dans ce moteur de recherche, deux choix soit rechercher avec la référence exacte (qui fonctionne parfaitement bien) soit une recherche par mot clé.

Mon souci se trouve dans la recherche par mot clé.

Le programme fonctionne bien, cependant je voudrais que le mot recherché soit contenu dans une colonne du classeur et non faire la recherche exacte du moit.

Voici le programme :

Private Sub btnRechercherMotcle_Click()

Dim r As Long

r = 6

Worksheets("Resultat Recherche").Activate

Range("B2").Value = frmRechercheMotcle.cbx_recherchemottype.Value

Range("C2").Value = frmRechercheMotcle.TextBox1.Value

Range("A2").Value = ""

Range("A6").Select

While ActiveCell.Value <> ""

ActiveCell.Value = ""

ActiveCell.Offset(0, 1).Value = ""

ActiveCell.Offset(0, 2).Value = ""

ActiveCell.Offset(0, 3).Value = ""

ActiveCell.Offset(0, 4).Value = ""

ActiveCell.Offset(0, 5).Value = ""

ActiveCell.Offset(0, 6).Value = ""

ActiveCell.Offset(0, 7).Value = ""

ActiveCell.Offset(0, 8).Value = ""

ActiveCell.Offset(0, 9).Value = ""

ActiveCell.Offset(0, 10).Value = ""

r = r + 1

Range("A" & r).Select

Wend

Worksheets(frmRechercheMotcle.cbx_recherchemottype.Value).Activate

Range("C6").Select

Dim i As Long

i = 6

Dim j As Long

j = 6

While ActiveCell.Value <> ""

ActiveSheet.Range("C" & i).Select

If frmRechercheMotcle.TextBox1.Value = ActiveCell.Value Then <= c'est a ce moment la que je voudrais que frmRechercheMotcle.TextBox1.Value soit contenu dans ActiveCell.Value et non pas exactement égal

Worksheets("Resultat Recherche").Activate

ActiveSheet.Range("A" & j).Select

Worksheets(frmRechercheMotcle.cbx_recherchemottype.Value).Range("A" & i & ":L" & i).Copy ActiveCell

Worksheets(frmRechercheMotcle.cbx_recherchemottype.Value).Activate

j = j + 1

Range("C" & i).Select

End If

i = i + 1

Wend

Unload frmRechercheMotcle

Worksheets("Resultat Recherche").Activate

End Sub

Bonjour

Peut-être faisable ? avec

Like "*"&tontextecherché&"*"

Cordialement

Bonjour VAVA, Amadéus,

La même solution qu'Amadéus (dans un tuto vidéo) : champ de recherche VBA

Cordialement,