Discussion :

[le-guedin]

Bonjour à tous
Je reviens ici car j'essai mais en vain de trouver une solution que Philippe avait trouvé pour les filtres très poussé faut dire mais actuellement j'essai de pouvoir avec son filtre réussir a intégrer une filtre multi

Je veux dire par la je selection une colonne on va dire " nom "
Dans cette colonne il y a 10 nom dont certain identique
Je souhaiterai réussir a executé le filtre avec plusieurs nom

Je joint le fichier test

Encore une fois merci de vous penchez sur mon cas

[le-guedin]

Mon filtre actuellement filtre tout mais sans garder la selection ...
Je sais pas si c'est un bug dans mon code où si c'est pas faisable avec ma manière

Voir test feuil2 du ZIP

[Philippe Tulliez]

Bonjour,
Pour filtrer un champ avec plusieurs valeurs, on peut utiliser la fonction ARRAY
Exemple

Code :

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

1
2
3
 Dim rng As Range
 Set rng = ActiveSheet.Range("$A$1:$J$106")
 rng.AutoFilter Field:=10, Criteria1:=Array("AUDI", "BMW"), Operator:=xlFilterValues

Pour pouvoir faire une muli-sélection dans un ListBox ou ComboBox, il y a lieu de modifier la propriété MultiSelect du contrôle ListBox.
On peut alors récupérer les éléments sélectionnés, par exemple, à l'aide de cette procédure.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 Dim Elem As Byte, txt As String
 txt = "Vous avez sélectionné "
 For Elem = 0 To lbData.ListCount - 1
  If lbData.Selected(Elem) = True Then
   txt = txt & vbCrLf & "- " & lbData.List(Elem)
  End If
 Next
 MsgBox txt
End Sub

Où lbData est le nom du contrôle ListBox.

[le-guedin]

Merci Philippe de te pencher à nouveau à mon problème
J'avais déjà essayé ce matin avec un ARRAY mais en vain
Je viens de tester ton code il fonctionne mais je galère à réussir le filtre

[Philippe Tulliez]

Bonjour,

Code :

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

Je viens de tester ton code il fonctionne mais je galère à réussir le filtre

J'ai rêvé où tu es bien développeur informatique ?

[le-guedin]

je suis en reconvertion pro depuis 5 mois donc j'apprends de jour en jour
Avant debut du mois j'avais jamais fait du VBA c'est pour ça que je galère comme fou