Filtre automatique dans userform

Version imprimable

13/07/2011, 04h52
duplaly

1 pièce(s) jointe(s)

Filtre automatique dans userform

Bonjour tout le monde
Je joins mon fichier pour mieux m'aider.
je veux mettre des filtres avec les cbox dans mon fichier et je n'arrive pas. Surtout, je veux pouvoir filtrer sur la colonne A qui contient des dates.
Un coup de pouce sera très apprécié de votre part.

J'ai mis un bouton recherche, mais peut être que je devrais y aller avec l'option combobox change. Vous me direz quoi faire.
Merci

1 pièce(s) jointe(s)

Bonjour,

Dans ton cas, j'utiliserais les filtres auto de ton onglet données puis j'alimenterais ma listview avec les lignes non cachées

Chargement de la listview dans une procédure qui utilise elle même une procédure de filtre

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
37
38
39
40
41
42
43
Sub ChargeList()
Dim i As Long
 
'filtre
Filtre "", "", "", ""
 
Filtre ComboBox1.Text, ComboBox2.Text, ComboBox3.Text, ComboBox4.Text
 
 
With Me.ListView1
 .ListItems.Clear
    With .ColumnHeaders
       .Clear
       .Add , , "Date", 110, lvwColumnLeft
       .Add , , "Prénom", 100, lvwColumnLeft
       .Add , , "Nom", 100, lvwColumnLeft
       .Add , , "Titre", 100, lvwColumnCenter
       .Add , , "Quart", 100, lvwColumnCenter
       .Add , , "Heure", 100, lvwColumnCenter
       .Add , , "Hopital", 100, lvwColumnCenter
       .Add , , "Étage", 100, lvwColumnCenter
       .Add , , "Taux", 100, lvwColumnCenter
       .Add , , "Montant", 105, lvwColumnCenter
    End With
 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        For i = 8 To Sheets("Données").Range("A65536").End(xlUp).Row
            If Sheets("Données").Rows(i).Hidden = False Then
                .ListItems.Add , , Sheets("Données").Cells(i, 1)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 2)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 3)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 4)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 5)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 6)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 7)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 8)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 9)
                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Données").Cells(i, 10)
           End If
        Next
End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Filtre(champ1 As String, champ2 As String, champ3 As String, champ4 As String)
 
Range("A7:J7").Select
 
Selection.AutoFilter
 
If champ1 <> "" Then Selection.AutoFilter Field:=1, Criteria1:=champ1, VisibleDropDown:=False
If champ2 <> "" Then Selection.AutoFilter Field:=2, Criteria1:=champ2, VisibleDropDown:=False
If champ3 <> "" Then Selection.AutoFilter Field:=3, Criteria1:=champ3, VisibleDropDown:=False
If champ4 <> "" Then Selection.AutoFilter Field:=7, Criteria1:=champ4, VisibleDropDown:=False
 
End Sub

Pièce jointe 80250

13/07/2011, 22h40
duplaly

Merci beaucoup JFontaine
j'apprécie grandement ce que tu me proposes, mais le filtre ne marche pas avec la colonne date (A).
Peux-tu le fixer pour moi.

Bah la, je cale

Truc bizard, si tu utilises l'enregistreur de macro pour filtre ne date, il te proposera

Code:

Selection.AutoFilter Field:=1, Criteria1:="=01-juil-11", Operator:=xlAnd

Par contre si tu lances la macro, il ne trouve pas la date et retourne alors aucune ligne

Si quelqu'un a une idée, car se serait dommage de partir sur une autre voie si prêt du but

Une modif pour coller a l'enregistreur de macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Filtre(champ1 As String, champ2 As String, champ3 As String, champ4 As String) Range("A7:J7").Select Selection.AutoFilter If champ1 <> "" Then Selection.AutoFilter Field:=1, Criteria1:="=" & CDate(Format(champ1, "dd-mmm-yy")), VisibleDropDown:=False If champ2 <> "" Then Selection.AutoFilter Field:=2, Criteria1:=champ2, VisibleDropDown:=False If champ3 <> "" Then Selection.AutoFilter Field:=3, Criteria1:=champ3, VisibleDropDown:=False If champ4 <> "" Then Selection.AutoFilter Field:=7, Criteria1:=champ4, VisibleDropDown:=False End Sub

Bonsoir
Un exemple d’illustration avec les dates (je n'ai pas encore compris le pourquoi)

Dans TextBox1 une date
Code:

1 2 3 4 5 6 7 Dim Champs1 As Long Champs1 = DateValue(TextBox1) With Sheets("Feuil1") .AutoFilterMode = False .Range("A:A").AutoFilter field:=1, Criteria1:="<=" & Champs1, Criteria2:=">=" & Champs1, Operator:=xlAnd End With
PS: Peut on se surpasser des Select et Selection?

14/07/2011, 19h59
jfontaine

Salut mercatog,

J'ai essayé

Code:

If champ1 <> "" Then Selection.AutoFilter Field:=1, Criteria1:="<=" & champ1, Criteria2:=">=" & champ1, Operator:=xlAnd, VisibleDropDown:=False

et

Code:

If champ1 <> "" Then Selection.AutoFilter Field:=1, Criteria1:="<=" & Format(champ1, "dd-mmm-yy"), Criteria2:=">=" & Format(champ1, "dd-mmm-yy"), Operator:=xlAnd, VisibleDropDown:=False

Mais toujours le même problème
14/07/2011, 20h13
mercatog

Champs1 est un long?

Bonsoir tout le monde,

Et avec :
Code:

1 2 Selection.AutoFilter 1, ">=" & CDate(champ1), xlAnd, "<=" & CDate(champ1)
Bonsoir mercatog, non Champ1 est un string :
Code:

1 2 Sub Filtre(champ1 As String, champ2 As String, champ3 As String, champ4 As String)
Hervé.

Bonsoir These
As tu testé avec Cdate(champs1)?

J'ai posé la question à jFontaine parce que Champs1 avec lequel j'ai testé est un Long

Sinon mon exemple autrement (indépendamment du format date du critère)
Code:

1 2 3 4 5 6 7 8 9 Dim Champs1 As String Dim Crit As Long Champs1 = "10 janvier 11" 'ou "8/1/2011" 'Pour l'exemple Crit = DateValue(Champs1) With Sheets("Feuil1") .AutoFilterMode = False .Range("A:A").AutoFilter field:=1, Criteria1:="<=" & Crit, Criteria2:=">=" & Crit, Operator:=xlAnd, VisibleDropDown:=False End With

14/07/2011, 23h46
jfontaine

Citation:

Champs1 est un long?

Le type long ne fonctionne pas.
Champs 1 retourne une date au format 01/07/2011.
La colonne de recherche à ses dates au format 01-Juil-11.

J'ai essayé avec Format(Champs1,"dd-mmm-yy") puis avec un Cdate devant, mais rien y fait.

Eureka,

Il faut lui envoyer la date au fomat mm/dd/yyyy

Code:

If champ1 <> "" Then Selection.AutoFilter Field:=1, Criteria1:="<=" & Format(champ1, "mm/dd/yyyy"), Criteria2:=">=" & Format(champ1, "mm/dd/yyyy"), Operator:=xlAnd, VisibleDropDown:=False

C'est bon à savoir

Bonjour
Désolé d'insister, mais sur le fichier de l’intéressé, j'ai testé le code (et indépendamment du format des dates en colonne A). Le résultat est bon avec le critère Long
Ou mettre Double si les dates comprennent les heures

Code:

Crit = DateValue(Champs1) + TimeValue(Champs1)

Code appliqué au fichier joint par l'intéressé.
Code:

1 2 3 4 5 6 7 8 9 10 Dim Champs1 As String Dim Crit As Long, LastLig As Long Champs1 = "20 juillet 11" 'ou "20/7/2011" 'Pour l'exemple Crit = DateValue(Champs1) With Sheets("Données") .AutoFilterMode = False LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A7:A" & LastLig).AutoFilter field:=1, Criteria1:="<=" & Crit, Criteria2:=">=" & Crit, Operator:=xlAnd, VisibleDropDown:=False End With

15/07/2011, 22h19
Theze

Bonsoir tout le mode,

Mercatog, j'ai testé avec un string mais j'ai au préalable mis la plage à un format date standard et non personnalisé.

Hervé.
16/07/2011, 17h54
duplaly

Merci tout le monde pour votre aide. Le fichier fonctionne très bien.
20/07/2011, 00h42
duplaly

1 pièce(s) jointe(s)

Bonjour vous deux
une dernière question. le filtre fonctionne très bien et je vous en remercie.
Une petite difficulté que j'ai est la suivante:
lorsque j'applique le filtre et je sélectionne la ligne recherchée pour la modifier, le programme me rajoute une nouvelle ligne.
Pouvez-vous le fixer pour moi.
Merci.