Discussion :

[chyanon]

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

[casefayere]

Bonsoir,
remplaces ta première recherche par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chyanon]

UN grand, grand merci à toi Casefayere,

Cà marche impeccable !

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

Encore merci et bonne soirée