Recherche 2 mots dans une cellule

Bonjour

Je tente de rechercher 2 mots dans une même cellule (le 1er mot et combobox2.value le 2eme mot se trouve dans une cellule « r3 ») dans une plage de cellule définie « a5 : a10 »

J’arrive à trouver un mot dans une colonne avec le vba ci-dessous

Dim valeur, vlig, rep
Dim a

a = Range("n3:n" & Range("n10").End(xlUp).Row) 'combobox2 prise en charge  s'arrete a la 1er cellule vide
ComboBox1.List = a

valeur = ComboBox1.Value '

Range("a3:h3").Select
On Error Resume Next

ActiveSheet.Cells.Find(what:=valeur, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate

vlig = Application.Find(valeur, ActiveCell)

      Label1 = Split(ActiveCell.Address, "$")(1)

Exit Sub
17rechercher.xlsm (46.12 Ko)
Rechercher des sujets similaires à "recherche mots"