Recherche multicritère VBA

Version imprimable

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:

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

30/12/2014, 13h50
pgz

Bonjour.

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

Cordialement,

PGZ
30/12/2014, 13h51
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. :)
30/12/2014, 14h17
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

Citation:

Envoyé par Gige91

... 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:

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

30/12/2014, 15h45
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é.
30/12/2014, 15h54
Kimy_Ire
J'imagine que tu auras compris que cette ligne :

Code:

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
30/12/2014, 16h13
SfJ5Rpw8
en continuant avec des message box tu peu aussi écrire avant ta condition 3 :
Code:

1 2 3 4 (..) MsgBox Sheets("BDD").Range("F" & ln) & vbCrLf & Interface.ComboBox2 If Sheets("BDD").Range("F" & ln) = Interface.ComboBox2 Then 'Troisieme fonction si (..)
pour afficher le contenu des variables ...

tu peu aussi arrêter ton programme à ce moment la par une instruction stop :
Code:

1 2 3 4 (..) stop If Sheets("BDD").Range("F" & ln) = Interface.ComboBox2 Then 'Troisieme fonction si (..)
et tu passe ensuite la souris sur les variables pour voir leur valeurs s'afficher dans les bulles d'aides.... (actionne F8 ensuite pour passer ta ligne stop..)
30/12/2014, 16h41
Gige91

J'ai trouvé grâce à votre aide, merci.

J'ai modifier mes caractères et ça marche.

Par contre un autre problème survient, une erreur 1004, la méthode copy. Je vais chercher encore.

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

Code:

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:

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.

30/12/2014, 17h19
Gige91
Merci casefayere,

Ça marche.

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

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

cette partie
Code:

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