Discussion :

[slyphe]

Bonjour,

Je construis une base de données sur une bibliothèque d'articles. Avec VBA j'ai créé un formulaire qui me permet d'alimenter le tableau et j'ai une colonne dans laquelle je rentre des mots-clés.
J'ai créé un deuxième formulaire qui doit me servir à filtrer le tableau selon les mots-clés qui seront saisis dans le champ. J'aimerais avoir jusqu'à 5 mots-clés pour pouvoir filtrer. Faut-il qu'il soit rentrés dans 5 textbox différentes ou est-il possible de tous les mettre dans une même textbox ?
Que dois-je mettre dans le bouton pour que la recherche s'effectue ?

Pour l'instant j'ai mis cela, mais ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
 
    ActiveSheet.Range("$A$1:$F$90000").AutoFilter Field:=6, Criteria1:="=*TextBox6.Value*", _
        Operator:=xlAnd, Criteria2:="=*TextBox7.Value*"
        Operator:=xlAnd, Criteria3:="=*TextBox8.Value*"
        Operator:=xlAnd, Criteria4:="=*TextBox9.Value*"
        Operator:=xlAnd, Criteria5:="=*TextBox10.Value*"
    ActiveWindow.SmallScroll Down:=-9
End Sub

Merci beaucoup pour votre aide !

[ARTURO83]

Bonsoir,

Voici une proposition non testée, mais qui peut vous éclairer un peu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Crit_1 = TextBox6.Value
    Crit_2 = TextBox7.Value
    Crit_3 = TextBox8.Value
    Crit_4 = TextBox9.Value
    Crit_5 = TextBox10.Value
    NbCrit = 5 'Valeur à modifier si ajout de nouveaux critères
    For i = 1 To NbCrit
        On Error Resume Next
        Crit = Choose(i, "~*" & Crit_1 & "~*", "~*" & Crit_2 & "~*", "~*" & Crit_3 & "~*", "~*" & Crit_4 & "~*", "~*" & Crit_5 & "~*")
        If Err.Number = 0 Then
            ActiveSheet.Range(Votre tableau).AutoFilter Field:=6, Criteria1:=Crit
        End If
        On Error GoTo 0
    Next i

A essayer et à adapter si besoin

Cdlt

Cdlt

[Philippe Tulliez]

Bonjour,
Si tu utilises le VBA pour filtrer des données et que tu souhaites avoir une grande souplesse pour préparer tes critères, je ne peux que te conseiller d'utiliser la méthode AdvancedFilter de l'objet Range (Les filtres avancés d'excel)

C'est une ligne de code en VBA si tu utilises des plages nommées

A lire sur le sujet Les filtres avancés ou élaborés dans Excel

[boisgontierjacques]

Bonjour,

Avec un seul TextBox

Code :

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

1
2
3
4
Private Sub B_filtre_Click()
  Tbl = Split(Me.TextBox1, " ")
  ActiveSheet.Range("$A$1:$B$10000").AutoFilter Field:=2, Criteria1:=Tbl, Operator:=xlFilterValues
End Sub

Boisgontier

[slyphe]

Bonjour,

Avec un seul TextBox

Code :

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

1
2
3
4
Private Sub B_filtre_Click()
  Tbl = Split(Me.TextBox1, " ")
  ActiveSheet.Range("$A$1:$B$10000").AutoFilter Field:=2, Criteria1:=Tbl, Operator:=xlFilterValues
End Sub

Boisgontier

Bonjour,
Merci pour votre aide. Votre proposition filtre bien plusieurs selon plusieurs mots-clés, mais cela ne fonctionne pas s'il y a plusieurs mots-clés associés à une même ligne. Exemple : si dans la première ligne je mets "a d" et que je filtre avec "a b", je ne vois pas la ligne "a d" dans les résultats.

[Philippe Tulliez]

Bonjour,
As-tu tenté les filtres avancés d'excel ?

[boisgontierjacques]

Bonjour,

Plusieurs mots clés par ligne

Code :

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

1
2
3
4
5
6
7
Private Sub B_filtre_Click()
 If Me.TextBox1 <> "" Then
   Tbl = Split(Me.TextBox1, " ")
   For i = LBound(Tbl) To UBound(Tbl): Tbl(i) = "*" & Tbl(i) & "*": Next i
   ActiveSheet.Range("$A$1:$B$10000").AutoFilter Field:=2, Criteria1:=Tbl, Operator:=xlFilterValues
  End If
End Sub

Boisgontier

[slyphe]

Bonsoir,

Voici une proposition non testée, mais qui peut vous éclairer un peu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Crit_1 = TextBox6.Value
    Crit_2 = TextBox7.Value
    Crit_3 = TextBox8.Value
    Crit_4 = TextBox9.Value
    Crit_5 = TextBox10.Value
    NbCrit = 5 'Valeur à modifier si ajout de nouveaux critères
    For i = 1 To NbCrit
        On Error Resume Next
        Crit = Choose(i, "~*" & Crit_1 & "~*", "~*" & Crit_2 & "~*", "~*" & Crit_3 & "~*", "~*" & Crit_4 & "~*", "~*" & Crit_5 & "~*")
        If Err.Number = 0 Then
            ActiveSheet.Range(Votre tableau).AutoFilter Field:=6, Criteria1:=Crit
        End If
        On Error GoTo 0
    Next i

A essayer et à adapter si besoin

Cdlt

Cdlt

Bonjour,
J'ai testé votre proposition, cela me dit "erreur de syntaxe" et cela me surligne en jaune "Private Sub CommandButton1_Click()". J'ai mis votre proposition suite à cette ligne. Etait-ce ce qu'il fallait faire ?
Merci, bonne journée.