Discussion :

[Ipéfix]

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

Cordialement,
Ipéfix

[casefayere]

Bonjour,

J'avais fait ce code :

peut-etre que tu peux l'adapter

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
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

[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

[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

[ouskel'n'or]

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 :

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

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

[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

[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

[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