Boucle de recherche sur deux colonnes

Bonjour,

j'ai ce code pour faire la recherche sur deux colonnes mon problème est s'il trouve deux valeurs exactes dans la colonne B il ne continue pas à chercher

Sub search()
Dim Recherche As Range
Dim Valeur1 As String
Dim Valeur2 As String
Dim Trouve As Boolean

Valeur1 = Sheets("History").Range("K1").Value
Valeur2 = Sheets("History").Range("L1").Value

Set Recherche = Range("B1:C65000").Find(What:=Valeur1, LookIn:=xlValues, LookAt:=xlWhole)

If Not Recherche Is Nothing Then
    If Recherche.Offset(0, 1).Value = Valeur2 Then

        Trouve = True
        Recherche.Select
    End If
End If

If Trouve Then
ActiveCell.Offset(0, 4).Select
    ActiveCell.Value = Sheets("History").Range("AH1").Value

ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = Date & " " & Format(Now, "hh:mm")

ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = Sheets("History").Range("M1").Value
Else 
call macro1
End If
End Sub

Merci d'avance

Bonjour,

Avec Find, regardez du côté de FindNext.

@ bientôt

LouReeD

bonjour LouReeD,xxmedxx, ces valeurs, ces sont des textes ou numériques ???

c'est plus facile avec un fichier anonymisé ...

Sub m_search()
     Dim c As Range, aA, i As Long, r As Variant
     Set c = ActiveSheet.Range("B1:B65000")  'préférable d'utiliser la feuille aussi
     c.Name = "Recherche"

     aA = Evaluate("if((Recherche=History!K1)*(offset(recherche,,1,,)=History!L1),row(recherche),""-"")")     'array avec toutes les lignes correspondantes
     For i = 1 To UBound(aA)
          On Error Resume Next
          r = "": r = WorksheetFunction.Small(aA, i)
          On Error GoTo 0
          If IsNumeric(r) Then
               Application.Goto c.Offset(r - c.Row), 1
               Call macro1
          Else
               MsgBox "erreur"
               Exit For
          End If
     Next
End Sub