Filtrage dans Listbox/Combobox

Version imprimable

23/06/2008, 09h00
Ipéfix

Filtrage dans Listbox/Combobox

Bonjour,
Est il possible de n'afficher dans une listbox que des enregistrements correspondant à certains "critères" ?.
Par exemple, n'afficher dans la listbox les enregistrements pour lesquels un champ "date" de la base de données est vide ?
J'ai beau chercher, je ne vois pas trop par quel bout appréhender ce problème...
Merci de votre aide :roll:

Cordialement,
Ipéfix

Bonjour,

J'avais fait ce code :

peut-etre que tu peux l'adapter

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
Private Sub TextBoxproduitcherche_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim cel As Range, ERREUR As Integer
Application.ScreenUpdating = False
With Sheets("references")
    If .AutoFilterMode Then
     .AutoFilterMode = False
    End If
    ERREUR = .Range("b2").End(xlDown).Offset(0, 0).Row
    .Range("b2").AutoFilter
    .Range("b2").AutoFilter Field:=2, Criteria1:="*" & TextBoxproduitcherche & "*"
    Set plage = .Range("b2", .Range("b2").End(xlDown))
    Set plage = plage.Cells.SpecialCells(xlCellTypeVisible)
 
    If plage.Count > ERREUR Then
    If .AutoFilterMode Then
     .AutoFilterMode = False
    MsgBox "AUCUN CRITERE NE CORRESPOND A LA RECHERCHE"
    Exit Sub
    End If
    End If
    With REFCHOISIE 'c'est ma listbox
    .Clear
    For Each cel In plage
      .AddItem cel(1, 0)
      .Column(1, .ListCount - 1) = cel(1, 1)
      .Column(2, .ListCount - 1) = VBA.Format(cel(1, 2), "#,##0.00 €")
      .Column(3, .ListCount - 1) = VBA.Format(cel(1, 3), "#0.00 %")
      .Column(4, .ListCount - 1) = cel(1, 5)
      .Column(5, .ListCount - 1) = VBA.Format(cel(1, 6), "#0.00")
      .Column(6, .ListCount - 1) = VBA.Format(cel(1, 8), "# ##0.00 €")
      .Column(7, .ListCount - 1) = VBA.Format(cel(1, 9), "##0")
      .BoundColumn = 1
    Next cel
 
    End With
Selection.AutoFilter
.Select
If .AutoFilterMode Then
    .AutoFilterMode = False
    End If
End With
Application.ScreenUpdating = True
End Sub

23/06/2008, 09h18
Ipéfix

Merci Casefayere pour ta réponse rapide...
Je regarde çà de plus près et ne manquerai pas de faire un retour...
Bonne journée:)
23/06/2008, 09h21
casefayere

Mon textbox permet d'entrer le critère de filtre pour la listbox,

Si je peux, pour d'autres précisions, à suivre....

Bonne journée

Bonjour casefayere, Ipéfix, les autres,
Pour le coup on peut peut-être simplifier ;)
Le principe reste le même :
- Parcours de la plage de données dans la colonne date (A dans l'exemple)
- Si la cellule date est vide, prendre le renseignement dans la colonne "donnée" (D dans l'exemple) pour l'ajouter à la liste avec additem
Comme tu ne précises pas où se trouvent l'une et l'autre, j'ai donc mis les dates en colonne A et les données en colonne D, tu adapteras
Code:

1 2 3 4 5 6 7 8 Sub Userform_Activate() Dim derlig as long, Cell as range Worksheets("Lafeuille").activate Derlig = Split(ActiveSheet.UsedRange.Address, "$")(4) For each cell in Range("A1:A" & derlig) if Cell = "" then listbox1.additem Cell.offset(0, 3) 'pour colonne D Next End sub
Bonne journée

23/06/2008, 09h35
casefayere

Bonjour ouskel'n'or,

Toujours sur la brèche !

J'essayerai ta propo pour moi, ça m'apprend et peut-etre ça soulagne le code

Bonne journée
23/06/2008, 09h58
Ipéfix

Chers Excel..ents,
Effectivement, le raccourci que propose Ouskel'n'or représente une approche simplifiée du problème.
J'adapte çà à ma situation et ne manquerai pas de vous relayer l'issue de mes travaux.
encore merci :king:
23/06/2008, 10h15
casefayere

A Ouskel'n'or

Je n'arrive pas à adapter ta solution dans mon cas car l'alimentation de ma listbox se fait par les critères donnés dans ma textbox et avec ma formule si je n'inscrit rien dans la textbox, la listbox se remplit entièrement (ça m'arrange), si je ne mets qu'une partie de nom dans la textbox, la listbox se remplit avec les critères recherchés. Bien sur mon code est plus rébarbatif mais j'ai plusieurs colonnes dans la listbox

enfin, voilà quoi

Bonne continuation et tout et tout