Discussion :

[abouhossam]

bsr
j'ai une listbox de la forme

Code :

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

1
2
3
4
5
6
7
8
9
date..............sté.................article
1/1/7.............d.....................f
1/1/7.............f......................g
2/1/7.............d.....................r
3/4/7.............f.....................g
.
.
.
.

par clic sur un bouton de commande
je voulais afficher que les ligne contient la sté "d"
veuillez m'aider
merci.

[decondelite]

veuillez m'aider

Dit de cette façon, ce n'est pas très bien formulé et cela semble impératif...
=> Je te suggère de revoir tes formules de politesse en disant plutôt "pouvez-vous m'aidez svp" par exemple.

Ceci dit, cherche à modifier le contenu de ta listbox lorsque tu cliques sur le bouton de commande, car il n'y a pas de fonction de masquage de ses éléments. Tu supprimes tous les éléments qui ne contiennent pas la société "d": tout est dit dans cette phrase.

[abouhossam]

j'essaye d'expliquer bien le broblème
dans Userform1 j'ai 3 textbox : date;sté;article
et une listbox:récap qui renvoie les données d'une feuille "feuillerecap" à l'ouverture
1- je veux que la listbox soit remplie selon les critères dans les textbox
2- si un textbox est vide on ignore son critère

Code :

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

1
2
3
4
5
6
7
8
9
date..............sté.................article
1/1/7.............d.....................f
1/1/7.............f......................g
2/1/7.............d.....................r
3/4/7.............f.....................g
.
.
.
.

je pense que c'est bien expliquer
merci de ton aide.

[ucfoutu]

Bonjour,

Ben...
On ne sait pas l'essentiel : cette listbox est-elle liée à des données ?


Car :
- si oui : c'est le recordset qu'il convient de modifier
- si non : il suffit en effet de supprimer les articles à ne plus voir

[abouhossam]

oui elle est liée par des donnée
j'ai bien expliquer ceci.

[ucfoutu]

Tu ne peux donc rien y supprimer directement et il te faudra alors :
- modifier ton recordSet
- rafraichir ta listbox

Bien qu'existe la possibilité d'une acrobatie alourdissnte :

Utiliser une listbox non liée, "miroir" de celle liée. L'alimenter (par une boucle) des seuls articles à retenir pour l'affichage. Jouer avec les propriétés visible des deux listboxes

Il est bien plus orthodoxe de modifier le recordset, comme dit plus haut.

[decondelite]

Je reformule la question de ucfoutu: quel est le code que tu utilise pour remplir la listbox?

[abouhossam]

le code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
Dim cel As Range
récap.Clear
    With Worksheets("feuillerecap")
    For Each cel In .Range("a2:a" & .Range("a" & Rows.Count).End(xlUp).Row)
            With récap
                .AddItem cel(1, 1)
                .Column(1, .ListCount - 1) = cel(1, 2)
                .Column(2, .ListCount - 1) = cel(1, 3)
            End With 
    Next cel
    End With
End Sub

merci pour votre aide.

[ucfoutu]

Mais....
Ton code ne donne pas à penser, bien au contraire (AddItem), que ta listbox est une listbox liée !!!
Elle supporte alors la suppression d'articles ...

[decondelite]

Petite synthèse sur la manière de procéder:
-remplir la totalité de la listbox lors de l'initialisation via une priocédure annexe
-réinitialiser le contenu via la procédure annexe et enlever une partie de ce contenu en fonction du contenu des textbox

Voilà, moi c'est comme ça que je ferais: la procédure annexe me servirait uniquement à ne pas me taper 2 fois le même code à l'initialisation et la ré-initialisation.