Filtre sur une list Box

Fermé

lauraSoe Messages postés 29 Date d'inscription mercredi 25 juin 2014 Statut Membre Dernière intervention 10 juillet 2014 - 7 juil. 2014 à 11:35
lauraSoe Messages postés 29 Date d'inscription mercredi 25 juin 2014 Statut Membre Dernière intervention 10 juillet 2014 - 7 juil. 2014 à 11:44

Bonjour :)

Je re-re-reviens vers vous ! pour un peu d'aide je cherche un peu partout mais je ne trouve pas...

En faite j'ai un UserForm et dans ce UserForm j'ai deux listes. Dans la première j'ai toute mes références et j'ajoute dans la seconde celles que je veux filtrer à partir de la première.

Jusque là c'est bon.

En fait ce qui me manque, c'est que quand j'appuie sur le bouton valider, ça filtre automatiquement ma feuille par rapport aux références qui sont dans ma list2.

Comment faire?

Merci d'avance de votre aide !

Bonne journée!
Laura

PS: voici le lien de mon fichier https://www.cjoint.com/?0GhlH0eT1st

A voir également:

Filtre sur une list Box
Photo filtre gratuit - Télécharger - Retouche d'image
Créer une liste déroulante excel - Guide
List disk - Guide
Adresse ip box - Guide
Tera box - Télécharger - Stockage

1 réponse

Réponse 1 / 1

lauraSoe Messages postés 29 Date d'inscription mercredi 25 juin 2014 Statut Membre Dernière intervention 10 juillet 2014
7 juil. 2014 à 11:44

Je viens de trouver un bout de code dans un autre forum , en adaptant , ça donne ça:

Private Sub CommandButton3_Click()

Dim i As Integer
Dim j As Integer
Dim tableau(1 To 20)

nb = ListBox2.ListCount
j = 1
For i = 0 To nb - 1
If ListBox2.Selected(i) Then
tableau(j) = ListBox2.List(i)
j = j + 1
End If
Next i
 
If j <> 1 Then
    Worksheets("Feuil1").Range("$A$1:$DJ$500000").AutoFilter Field:=1, Criteria1:=tableau, Operator:=xlFilterValues
Else
    Worksheets("Feuil1").Range("$A$1:$DJ$500000").AutoFilter Field:=1
End If

'Masquer le Userform
UserForm2.Hide


End Sub

Seul hic, ça marche pas ...

Discussions similaires

bash boucle for avec une variable liste

Arnaque du site light in the box

comment contourner la fonction FILTRE

Discussions similaires

Newsletters