Recherche multicritère VBA

**Gige91** · 30/12/2014, 14h15

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** · 30/12/2014, 14h50

Bonjour.

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

Cordialement,

PGZ

**Kimy_Ire** · 30/12/2014, 14h51

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** · 30/12/2014, 15h17

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** · 30/12/2014, 15h39

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 :

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** · 30/12/2014, 16h45

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** · 30/12/2014, 16h54

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 :

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

Cordialement,
Kimy

**SfJ5Rpw8** · 30/12/2014, 17h13

en continuant avec des message box tu peu aussi écrire avant ta condition 3 :

Code :

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

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 :

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

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

**Gige91** · 30/12/2014, 17h41

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.

**casefayere** · 30/12/2014, 17h53

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** · 30/12/2014, 18h19

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** · 30/12/2014, 18h24

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

Recherche multicritère VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager