[E-97] Recherche multi-critères

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je fais une fonction de recherche adaptée à mon tableau. Suite à de divers topics et posts, j'arrive à faire un affichage à la suite d'une recherche sur un critère.

Maintenant, je dois faire la même chose avec 1 ou plusieurs critères.

Soyons plus clair, je dois pouvoir effectuer une recherche avec ma fonction qu'il y ai 1, 2,....,x paramètres rentrés dans mon usf.

J'ai bien la possibilité de mettre tous mes paramètres les uns à cotés des autres mais cela risque de me faire une ligne immense.

Voilà le code (qui ne fonctionne pas) auquel j'ai pensé: (ici il n'y a que deux paramètres)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton1_Click() Dim thecell As Range Feuil1.Activate For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp)) With thecell.Offset(0, 1) .EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox_annee.Value) End With Next and '<- erreur à ce niveau For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp)) With thecell.Offset(0, 1) .EntireRow.Hidden = (.Value) <> CInt(TextBox_valeur.Value) End With Next End Sub
Je vous mets le fichier (disons que pour les besoins de l'exemple, je n'ai besoins d'avoir que les lignes contenant l'année 2009 et la valeur 10 sur la même ligne).

Merci pour votre aide.

Bonjour,
je viens d'essayer ton code, eet j'ai corrigé comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim thecell As Range
Feuil1.Activate
For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
    With thecell.Offset(0, 1)
        .EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox_annee.Value) And .EntireRow.Hidden = (.Value) <> CInt(TextBox_valeur.Value)
 
    End With
Next
 
Unload UserForm1
End Sub

16/03/2009, 11h37
Qwazerty

Salut
Heu

Code:

.EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox_annee.Value) And .EntireRow.Hidden = (.Value) <> CInt(TextBox_valeur.Value)

Je suis pas d'accord

ce serait plutôt

Code:

.EntireRow.Hidden = (Year(CDate(.Value)) <> CInt(TextBox_annee.Value)) Or (.Value <> CInt(TextBox_valeur.Value))

;) surement un copier coller malheureux ^^

[Edit]
Pour ce qui est d'avoir plusieurs critères, tout dépend de la nature des ces critères, s'ils sont tous des entiers, il te suffit de passer un tableau d'entier et de boucler sur chaque valeur, si les critères sont de natures différentes, le mieux serait peut etre de passer par un tableau de string.
[/Edit]
A++
Qwaz
23/03/2009, 11h49
Chicard

Salut,

En fait le tableau que j'utilise comporte des entier amis aussi des chaines de caractères.

Et donc je veux pouvoir combiner les chiffres ainsi que les caractères pour arriver par exemple si j'ai un tableau avec plus de 1000 lignes (ça m'étonnerais que cela arrive) à disons une dizaine (ou plus ou moins) de résultats correspondant aux critères rentrés.

Par exemple, l'année (2007), une commune (XXXX), fourchette de prix ( min et max) .....
Le (ou les) résultats seront de la commune X durant l'année 2007 et dans la fourchettes de prix min max.

Au passage comme les trois quarts des posts que j'ai fait sur excel, je passe par un usf et j'ai donc plusieurs textbox et surement une combo.

bon j'ai essayé avec le or et je perds tout (ce qui ne serait pas genant si j'utilisais des valeurs inexistantes dans le tableau). Au niveau du And cela fonctionne mais je suis obligé de rentrer toutes mes valeurs ce que je ne souhaite pas forcément faire.

Salut,

j'ai tenté une recherche sur un string "tout court" et cela a fonctionné. Mais lorsque j'ai fait un And:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim thecell As Range, champ1 As Variant
Feuil1.Activate
If (TextBox_annee.Value <> "") Then
    champ1 = TextBox_annee.Value
    Else
    champ1 = Null
End If
 
For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
    With thecell.Offset(0, 1)
        .EntireRow.Hidden = (Year(CDate(.Value)) <> CInt(champ1)) And (.Value <> CStr(TextBox_valeur.Value))
    End With
Next
 
Unload UserForm1
End Sub

Il s'arrete à la recherche sur l'année. Sachant que cela pourra arriver, je voudrais aussi résoudre ce problème en plus de celui de ne pas avoir un nombre de champ rempli fixe (je dois pouvoir faire un tri sur un seul champ malgré le fait d'avoir 8 champs potentiellements remplissables).

Une solution à mes problèmes serait une recherche séquentielle de mes paramètres mais je voudrais faire ça qu"en une seule fois comme cela si un paramètre manqueon peut continuer (enfin je crois et surtout j'espère).

J'ai résolu mon problème merci
voici le code

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
Private Sub CommandButton1_Click()
Dim thecell As Range
Feuil1.Activate
 
If (TextBox_annee.Value <> "") Then
    For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
        With thecell.Offset(0, 1)
            .EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox_annee.Value)
        End With
    Next
End If
 
If (TextBox_valeur.Value <> "") Then
    For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
        With thecell.Offset(0, -1)
            .EntireRow.Hidden = .Value <> CLng(TextBox_valeur.Value)
        End With
    Next
End If
 
If (ComboBox1.Value <> "") Then
    For Each thecell In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        With thecell.Offset(0, 1)
            .EntireRow.Hidden = (.Value) <> CStr(ComboBox1.Value)
        End With
    Next
End If
Unload UserForm1
End Sub