Discussion :

[JulienLeno]

Bonjour je vous expose mon problème. J'ai un tableau avec des valeurs sur lequel je veux appliquer un tri. Par exemple dans la collone B j'ai les les noms des différents continents (europe, asie,..) et je viens récupérer ces noms pour venir remplir ma listbox. Ceci fonctionne. Ce que je veux faire maintenant c'est en fonction de ce que je selectionne dans ma listbox (je peux selectionner plusieurs valeurs) je viens cacher les lignes qui ne posséde pas la valeur selectionné dans la listbox. Savez vous comment faire?

merci

[Daniel.C]

Bonjour,

Fais un filtre automatique (Autofilter). Si tu as besoin de plus d'aide, précise où tu as placé ta listbox (sur une feuille ou sur un userform).

[Jean-Pierre49]

Bonjour Daniel

fonction de ce que je selectionne dans ma listbox (je peux selectionner plusieurs valeurs)

un filtre automatique (sur 2003) ne peut prendre que 2 valeurs dans la personnalisation

Il me semble que ce serait bien d’abord le fichier pour mieux comprendre
Afin de faire quelque chose qui fonctionnerait sur toutes les versions.

Cordialement

[Daniel.C]

Bonjour,

un filtre automatique (sur 2003) ne peut prendre que 2 valeurs dans la personnalisation

Avec Excel 2010, tu peux sélectionner autant de valeurs entières que tu le désires, même si le filtre perso façon XL 2003 existe toujours.

Afin de faire quelque chose qui fonctionnerait sur toutes les versions.

C'est se priver de toutes les nouvelles fonctionnalités.

[JulienLeno]

Ce n'est pas vraiment ce a quoi j'avais pensé. en fait au départ j'avais une combobox qui était dans un userform je venais choisir la valeur qui m'interessait et excel affichait toute les lignes ayant la valeur entré dans la combobox du genre

Code :

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

If combobox.value= cells(a,i)

. Il cachait les autres avec la propriété

Code :

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

Rows(i).hidden = true

. La je veux faire la même chose mais avec une listbox c'est a dire que plusieurs valeurs sont sélectionnés et il cache toute les lignes qui n'ont pas cette valeur. est ce que c'est plus clair dans la démarche?

Merci de vos réponse

[Jean-Pierre49]

Bonjour

C'est se priver de toutes les nouvelles fonctionnalités.

Ce n'est pas idiot bien sur, mais je reste convaincu que si on règle ce type de problème par Vba on doit essayer a que ce soit au moins pour 2003 aussi, beaucoup on cette version et vont continuer à l'avoir pendant encore quelque temps.

Si on est dans l’Excel classique (dans la feuille, je veux dire) bien sur qu’il ne faut pas se priver des nouvelles fonctionnalités

Une Piste

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
 
Private Sub commandButton1_Click()
Dim Table() As String
    Dim CompA As Long
    Dim CompB As Byte
    Dim Mouchard As Boolean
 
    Dim Ind As Byte
    For CompA = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(CompA) = True Then
            Ind = Ind + 1
            ReDim Preserve Table(Ind)
            Table(Ind) = ListBox1.List(CompA)
        End If
    Next CompA
 
    For CompA = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        Mouchard = False
        For CompB = 1 To UBound(Table)
            If Cells(CompA, 1).Value = Table(CompB) Then Mouchard = True
        Next CompB
        If Mouchard = False Then Rows(CompA).Hidden = True
    Next CompA
End sub

Tu dis

Bon courage