masquer les lignes listbox

Version imprimable

bsr
j'ai une listbox de la forme
Code:

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.

12/11/2008, 11h03
decondelite

Citation:

Envoyé par abouhossam

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. :D

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:

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.

12/11/2008, 11h29
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
12/11/2008, 11h36
abouhossam

oui elle est liée par des donnée
j'ai bien expliquer ceci.
12/11/2008, 11h39
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.
12/11/2008, 11h44
decondelite

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

le code est :

Code:

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.

12/11/2008, 12h01
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 ...
12/11/2008, 13h37
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. :mrgreen: