filtrer avec 2 combobox

Bonjour au Forum,

J'ai un problème avec une recherche avec deux combobox.

Pour résumer:
J'ai une feuille qui contient des données sur des appareils.
colonneA= Ref ancien
colonneB= Ref nouveau
colonneC= Donné 1
colonneD= Donné 2
...Etc

J'ai créé un userform avec 2 combobox pour faire mes recherches suivant la nouvelle ou l'ancienne ref(car tous mes appareils n'ont pas de nouvelles référence et certain on la même référence).
Aujourd'hui, j'arrive a faire mes recherche suivant les deux critères et indiquer les données 1-2.etc dans des textbox suivant le résultat.

Mon problème:
J'ai des nouvelle référence qui sont identique à l'ancienne, et quand je sélectionne ces références j'ai une erreur d'exécution 1004.

Le code de mes combobox:
Code:

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 34 35 36 37 38 39 Private Sub ComboBox3_Change() Dim cherche1 As String Sheets("BD").Select If Not IsNull(ComboBox3.Value) Then cherche1 = ComboBox3.Value Set cellule = Sheets("BD").Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext) If Not cellule Is Nothing Then ComboBox4.Value = cellule.Offset(0, 1).Value TextBox9 = cellule.Offset(0, 3).Value TextBox10 = cellule.Offset(0, 4).Value TextBox11 = cellule.Offset(0, 5).Value TextBox12 = cellule.Offset(0, 6).Value TextBox13 = cellule.Offset(0, 7).Value Else End If End If End Sub Private Sub ComboBox4_Change() Dim cherche2 As String Sheets("BD").Select If Not IsNull(ComboBox4.Value) Then cherche2 = ComboBox4.Value Set cellule = Sheets("BD").Cells.Find(What:=cherche2, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext) If Not cellule Is Nothing Then ComboBox3.Value = cellule.Offset(0, -1).Value Else End If End If End Sub
Si quelqu'un a une idée, je suis preneur !
Merci

Bonsoir,
remplaces ta première recherche par

Code:

1
2
3
4
5
6
Dim lg As Long
.......
With Sheets("BD")
lg = .Range("a" & .Rows.Count).End(xlUp).Row
Set cellule = .Range("a2:a" & lg).Find(cherche1, .Range("a" & lg), , SearchOrder:=xlNext)
End With

et la deuxième par

Code:

1
2
3
4
5
.......
With Sheets("BD")
lg = .Range("b" & .Rows.Count).End(xlUp).Row
Set cellule = .Range("b2:b" & lg).Find(cherche1, .Range("b" & lg), , SearchOrder:=xlNext)
End With

et adaptes le résultat de ta recherche pour les offset
Bonne soirée

:lol::P UN grand, grand merci à toi Casefayere,:ccool::ccool:

Cà marche impeccable !

Je suis super contant, je bloquais dessus depuis un bon moment!

Encore merci et bonne soirée