Bonjour,

Déjà bonne fête à tous!!!

J'ai un problème, j'essaie d'intégrer une recherche multicritère à un boutton de userform mais ca rien ne se passe.

Ci dessous le code que j'ai crée.

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
Private Sub CommandButton2_Click()
 
    For ln = 2 To Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row 'début de la boucle
 
         If Sheets("BDD").Range("E" & ln) = Interface.ComboBox1 Then 'Première fonction si
 
            If Sheets("BDD").Range("D" & ln) = Interface.ComboBox4 Then 'Deuxième fonction si
 
               If Sheets("BDD").Range("F" & ln) = Interface.ComboBox2 Then 'Troisieme fonction si
 
                    If Sheets("BDD").Range("G" & ln) = Interface.ComboBox3 Then 'Quatrième fonction si
 
                        If Sheets("BDD").Range("I" & ln) = 1 Then 'Cinquième fonction si (Classement)
 
                Resultat.Show
 
                          Sheets("BDD").Range("B" & ln).Copy Resultat.TextBox1 'Des qu'un hôtel est trouvé, le copier.
                         Sheets("BDD").Range("C" & ln).Copy Resultat.TextBox2 'Des qu'un hôtel est trouvé, le copier.
                         Sheets("BDD").Range("D" & ln).Copy Resultat.TextBox3 'Des qu'un hôtel est trouvé, le copier.
                         Sheets("BDD").Range("E" & ln).Copy Resultat.TextBox4 'Des qu'un hôtel est trouvé, le copier.
                         Sheets("BDD").Range("F" & ln).Copy Resultat.TextBox5 'Des qu'un hôtel est trouvé, le copier.
                         Sheets("BDD").Range("G" & ln).Copy Resultat.TextBox6 'Des qu'un hôtel est trouvé, le copier.
                         Sheets("BDD").Range("D" & ln).Copy Resultat.TextBox3 'Des qu'un hôtel est trouvé, le copier.
 
 
                Else
                MsgBox "Try again"
                       End If
                    End If
                End If
            End If
        End If
    Next ln
 
 
End Sub