Discussion :

[Neutthsch]

Salut le forum,

L'objectif c'est de créer un moteur de recherche multi-critères géré comme suit :

1. 1 ListBox qui est alimenté sans doublons sur la colonne 3 et qui sert à filtrer sur cette colonne
2. 1 ListBox qui est alimenté sans doublons sur la colonne 4 et qui sert à filtrer sur cette colonne
3. 3 OptionButton qui doivent renvoyer des filtres sur les colonnes 7 et 12
   
   • Si All est coché, il n'y a pas de filtre sur 7 et 12
   • Si Metro est coché, il filtre les non vide sur 7 et pas de filtre sur 12
   • Si Maintenance est coché, il filtre les non vide sur 12 et pas de filtre sur 7
4. Et pour finir on a une TextBox que l'opérateur peut remplir au besoin
   
   
5. Toutes les lignes trouvées sont répertoriées dans un combobox

Bon tout va bien pour l'instant, ça fonctionne bien avec des fonctions AutoFilter

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
rivate Sub Filter_Procedure()
 
Dim FirstAddress As String
Dim FoundRange As Range
 
If AvailableClick = True Then
    If ServButton1 = True Then
        InitData.Columns("A:P").AutoFilter field:=7
        InitData.Columns("A:P").AutoFilter field:=12
    ElseIf ServButton2 = True Then
        InitData.Columns("A:P").AutoFilter field:=7, Criteria1:="<>"
        InitData.Columns("A:P").AutoFilter field:=12
    ElseIf ServButton3 = True Then
        InitData.Columns("A:P").AutoFilter field:=7
        InitData.Columns("A:P").AutoFilter field:=12, Criteria1:="<>"
    End If
 
    If ZoneComboBox <> "" Then
        InitData.Columns("A:P").AutoFilter field:=3, Criteria1:=ZoneComboBox.Text
    Else
        InitData.Columns("A:P").AutoFilter field:=3
    End If
 
    If LocalComboBox <> "" Then
        InitData.Columns("A:P").AutoFilter field:=4, Criteria1:=LocalComboBox.Text
    Else
        InitData.Columns("A:P").AutoFilter field:=4
    End If
 
    ReDim EquipRowList(0)
 
    Me.EquipListBox.Clear  'On nettoie les Combobox avant de les réalimenter - ceci active le EquipListBox_Change()
    Me.PieComboBox.Clear   '- ceci active le PiecomboBox_Change()
    If SearchTextBox.Text <> "" Then
 
        Set FoundRange = InitData.Columns("A:P").Find(What:=SearchTextBox.Text, After:=InitData.Cells(2, 1), LookIn:=xlFormulas, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
 
        If FoundRange Is Nothing Then
            MsgBox "Votre recherche n'a donnée aucun résultat"
        ElseIf Not FoundRange Is Nothing Then
 
            FirstAddress = FoundRange.Address
 
            Do
                If InitData.Cells(FoundRange.Row, 10) = "Supprimé" Then
                    Me.EquipListBox.AddItem InitData.Cells(FoundRange.Row, 2) & Chr(9) & "SUPPRIME"
                Else
                    Me.EquipListBox.AddItem InitData.Cells(FoundRange.Row, 2) & Chr(9) & InitData.Cells(FoundRange.Row, 1)
                End If
                ReDim Preserve EquipRowList(UBound(EquipRowList) + 1) 'on alimente une variable tableau qui va stocker les numéros de ligne de Initdata
                EquipRowList(UBound(EquipRowList)) = FoundRange.Row
 
                Set FoundRange = InitData.Columns("A:P").Cells.FindNext(FoundRange)
            Loop While Not FoundRange Is Nothing And FoundRange.Address <> FirstAddress
        End If
    Else
        For VarInc = 2 To LastEquipment
            If InitData.Cells(VarInc, 2).EntireRow.Hidden = False Then
                If InitData.Cells(VarInc, 10) = "Supprimé" Then
                    Me.EquipListBox.AddItem InitData.Cells(VarInc, 2) & Chr(9) & "SUPPRIME"
                Else
                    Me.EquipListBox.AddItem InitData.Cells(VarInc, 2) & Chr(9) & InitData.Cells(VarInc, 1)
                End If
                    ReDim Preserve EquipRowList(UBound(EquipRowList) + 1) 'on alimente une variable tableau qui va stocker les numéros de ligne de Initdata
                    EquipRowList(UBound(EquipRowList)) = VarInc
            End If
        Next  
 
 
    End If
    Me.EquipListBox.ListIndex = 0
End If
 
End Sub

Sauf que j'aimerais le faire sans filtrer physiquement les colonnes, ce qui est pas très "propre" à mon gout et qui fait ramer pas mal quand même. le pied se serait de lancer un bon gros .find mais bon je vois difficilement comment réaliser ça.

Tout est dit je crois
D'avance merci,

[Gado2600]

Bonjour,

Si le problème de ton filtrage "physique" est que tu filtres ton principal onglet, duplique celui-ci et sers de ton onglet copié comme source.

Sinon, en idée de tri, tu peux avoir la manipulation via des tableaux numériques ou alors en SQL.

Cordialement,

[Neutthsch]

Merci pour cette réponse,

J'ai encore jamais mis de SQL sous excel, je savais même pas que c'était possible. Je vais aller jeter un coup d’œil dans ce sens, en plus va falloir que je me fasse une petite piqûre de rappel parce que ça date ça

[Neutthsch]

Bon ma question n'ayant pas fait des émules, je vais m'auto répondre :

J'ai utilisé une boucle For-Next qui court sur toutes les lignes de mon tableau et si au moins une des conditions de recherche n'ai pas remplie, une boolean devient fausse.
Si ma valeur est resté vrai jusqu'à la fin de ma boucle alors je la récupère.
En faite, c'est une solution simple et rapide

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
37
    For VarInc = 2 To LastEquipment
        FoundInfo = 1
 
        If ServButton2 = True And InitData.Cells(VarInc, 7) <> "<>" Then
                FoundInfo = 0
                GoTo NextRow
        ElseIf ServButton3 = True And InitData.Cells(VarInc, 12) <> "<>" Then
                FoundInfo = 0
                GoTo NextRow
        End If
 
        If ZoneComboBox <> "" And InitData.Cells(VarInc, 3) <> ZoneComboBox Then
            FoundInfo = 0
            GoTo NextRow
        End If
 
        If LocalComboBox <> "" And InitData.Cells(VarInc, 4) <> LocalComboBox Then
            FoundInfo = 0
            GoTo NextRow
        End If
 
        If SearchTextBox.Text <> "" And InitData.Cells(VarInc, 1) Like SearchTextBox.Text Then
            FoundInfo = 0
        End If
 
        If FoundInfo = 1 Then 'Si tout les paramètres ont été trouvé sur la ligne en cours alors on peut alimenter EquipListBox
            If InitData.Cells(VarInc, 10) = "Supprimé" Then
                Me.EquipListBox.AddItem InitData.Cells(VarInc, 2) & Chr(9) & "SUPPRIME"
            Else
                Me.EquipListBox.AddItem InitData.Cells(VarInc, 2) & Chr(9) & InitData.Cells(VarInc, 1)
            End If
                ReDim Preserve EquipRowList(UBound(EquipRowList) + 1) 'on alimente une variable tableau qui va stocker les numéros de ligne de Initdata
                EquipRowList(UBound(EquipRowList)) = VarInc
        End If
 
NextRow:
    Next

EDIT : j'utilise un Goto pour accélérer la boucle, mais je pourrais m'en passer normalement (je sais pas si ça accélère à dire vrai