1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Sub Recherche()
Dim Bd As Worksheet
Dim Rech As Worksheet
Dim NbLig As Long
Dim der As Integer
Set Bd = ThisWorkbook.Sheets("Base de données")
Set Rech = ThisWorkbook.Sheets("Résultat de recherche")
Dim Mot As String
Dim i As Integer
Dim j As Integer
j = 1
Mot = Recherche_de_panne.TextBox1.Text
With Bd
NbLig = .Cells(.Rows.Count, 4).End(xlUp).Row
End With
With Rech
der = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For i = 2 To NbLig
If Recherche_de_panne.ComboBox1.Value = Bd.Cells(i, 4).Value Then
If Recherche_de_panne.ComboBox2.Value = Bd.Cells(i, 2).Value Then
If Bd.Cells(i, 7).Text Like "*" & Mot & "*" Or Bd.Cells(i, 8).Text Like "*" & Mot & "*" Or Bd.Cells(i, 9).Text Like "*" & Mot & "*" Then
Range(Bd.Cells(i, 2), Bd.Cells(i, 2).End(xlToRight)).Copy
Rech.Cells(der + j, 1).PasteSpecial xlPasteValuesAndNumberFormats
j = j + 1
End If
End If
End If
Next i
End Sub |
Partager