Discussion :

[Gige91]

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

[pgz]

Bonjour.

Tu peux exécuter ta procédure au pas à pas, sous VBE F8, et regarder ce qui se passe.

Cordialement,

PGZ

[Kimy_Ire]

Bonjour Gige91,

C'est simplement parce que tu n'as jamais les 4 premières conditions de remplies.
Vérifie à l'aide du mode pas à pas pour chacune de tes lignes, sur un faible nombre d'entrés, avec l'une d'entre elle passante, et tu verras d'où vient ton erreur.

Au passage, le mot-clé "and" te permet de mettre plusieurs conditions dans un même "If".
Mais c'est plus difficile d'analyser ce qui pose problème au debugage, forcément.

Cordialement,
Kimy

EDIT : au même moment, pgz.

[Gige91]

Merci de votre réponse rapide.

J'ai oublié de vous précisez... Je suis vraiment un novice. Donc trouver une erreur va relever de l'exploit.

Je vous joins le fichier. (Le problème se trouve sur l'Userforme "Interface")

---

Fichier joint dans vos discussions

---

[SfJ5Rpw8]

... Je suis vraiment un novice. Donc trouver une erreur va relever de l'exploit...]

bonjour,

être novice ne te dispense pas de chercher un peu ...

si l'utilisation du mode pas à pas comme proposé plus haut te semble insurmontable, tu pourrais aussi rajouter des message box par exemple :

Code :

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

1
2
3
(...) If Sheets("BDD").Range("E" & ln) = Interface.ComboBox1 Then 'Première fonction si
                     MsgBox  "Première fonction si  vérifiée"
            If Sheets("BDD").Range("D" & ln) = Interface.ComboBox4 Then 'Deuxième fonctio(...)

ainsi tu pourras voir ou tu en est de tes conditions ..

---

Fichier joint dans vos discussions

---

[Gige91]

J'ai déjà effectué cette procédure.

La première et deuxième condition marche, puis il revient à la condition 1.

Apparemment la troisième conditions pose problème. Pourtant j'ai bien vérifié la colonne et la textbox concerné.

[Kimy_Ire]

J'imagine que tu auras compris que cette ligne :

Code :

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

If Sheets("BDD").Range("F" & ln) = Interface.ComboBox2 Then

signifie que tu vérifies que dans la feuille intitulée "BDD" tu cherches à la même ligne "ln" (qui va de 2 à la dernière ligne non-vide de la colonne A), en colonne F et tu compares avec le Combobox2.

Les possibilités envisageables :

1. La colonne A contient moins d'élément que ta liste à comparer.
2. La Combobox2 n'est pas celle que tu crois.
3. Une erreur de ta part sur la colonne ou la ligne.
4. Des caractères différents.

Cordialement,
Kimy

[casefayere]

Bonjour,
essaies cette partie,sans avoir analyser le reste de ton programme

Code :

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

1
2
3
4
5
6
Dim x As Integer
With Sheets("BDD")
  For x = 1 To 6
    Resultat.Controls("Textbox" & x) = .Cells(Ln, x + 1) 'Des qu'un hôtel est trouvé, le copier.
 Next x
End With

à la place de

Code :

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

1
2
3
4
5
6
7
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.

[Gige91]

Merci casefayere,

Ça marche.

Cette partie de code permet de tous copier en évitant de tous détailler?

Code :

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

1
2
For x = 1 To 6
    Resultat.Controls("Textbox" & x)

[casefayere]

cette partie

Code :

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

1
2
3
4
5
6
Dim x As Integer
With Sheets("BDD")
  For x = 1 To 6
    Resultat.Controls("Textbox" & x) = .Cells(Ln, x + 1) 'Des qu'un hôtel est trouvé, le copier.
 Next x
End With

copie les valeurs des cellules dans les textbox concernés, effectivement en faisant une boucle