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 : Sélectionner tout - Visualiser dans une fenêtre à part
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