Trie selon valeur de listBox

Version imprimable

06/07/2010, 22h13
chikitin

Trie selon valeur de listBox
Bonsoir à tous,
J'aimerais trier selon des valeurs selectionnées dans un Listbox multiselect,
le code n'affiche pas d'erreur mais ne réagit pas non plus.
help?
Code:

1 2 3 4 5 6 If Len(Me.ListBox2) > 0 Then With Sheets("Table").Columns("B:B") .AutoFilter .AutoFilter field:=1, Criteria1:="=" & CDbl(Me.ListBox2.List) End With
d'ailleurs je me demande si ce n'est pas mieux une fois d'effacer dans la feuille ce qui est différent de ce qui est selectionnés mais je ne connais pas la synthaxe.

Une proposition, en boucle sur les items sélectionnés, on filtre et on ajoute un F dans le dernière colonne qu'on prendra pour filtrer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i As Long, LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Table")
   LastLig = .Cells(Rows.Count, "B").End(xlUp).Row
   .Columns(Columns.Count).Delete
   For i = 0 To ListBox2.ListCount - 1
      If ListBox2.Selected(i) Then
         .Range("B1:B" & LastLig).AutoFilter field:=1, Criteria1:="=" & CDbl(Me.ListBox2.List(i))
         .Range(.Cells(2, Columns.Count), .Cells(LastLig, Columns.Count)).SpecialCells(xlCellTypeVisible).Value = "F"
      End If
   Next i
   .Range("B1").AutoFilter
   .Range(.Cells(1, Columns.Count), .Cells(LastLig, Columns.Count)).AutoFilter field:=1, Criteria1:="F"
End With

06/07/2010, 23h27
chikitin
Il me met L'autofilter dans la classe range a échoué dans la dernière ligne ici:
Code:

1 2 .Range(.Cells(1, Columns.Count), .Cells(LastLig, Columns.Count)).AutoFilter field:=1, Criteria1:="F" End With
mais je n'ai pas bien compris le F?

le code fait une boucle sur les item sélectionnés
à chaque application du filtre, il inscrit la lettre F dans la dernière colonne d'excel dans les ligne visibles. (tu peux faire n'importe quoi à la place du F)
à la fin, il filtre sur la lettre F, la dernière colonne

l'erreur chez toi n'apparait pas chez moi
encore une fois, j'ai testé avant de répondre
sinon on peut modifier la dernière ligne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim i As Long, LastLig As Long Application.ScreenUpdating = False With Sheets("Table") LastLig = .Cells(Rows.Count, "B").End(xlUp).Row .Columns(Columns.Count).Delete For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then .Range("B1:B" & LastLig).AutoFilter field:=1, Criteria1:="=" & CDbl(Me.ListBox1.List(i)) .Range(.Cells(2, Columns.Count), .Cells(LastLig, Columns.Count)).SpecialCells(xlCellTypeVisible).Value = "F" End If Next i .Range("B1").AutoFilter .Columns(Columns.Count).AutoFilter field:=1, Criteria1:="F" End With

07/07/2010, 08h54
chikitin

1 pièce(s) jointe(s)

Je me demande vraiment s'il y a un probléme entre les versions d'Excel car je suis au travail et tout ce qui marchait à la maison hier ne fonctionne pas au bureau. La seule différence, c'est que je suis sur Mac , mais j'ai installé windows XP pour pouvoir travailler avec Office 2007.
Quand il n'affiche pas d'erreur chez toi, j'ai l'air d'un plouc?!
j'AI changé la dernière ligne comme tu l'as proposé, et ici au bureau, il me met l'erreur: La commande n'a pas pu être exécuter avec la plage spécifiée, selectionnez une seule cellule et réessayez., et il met toujours en surbrillance la dernière ligne de code. J'ai ajouté ici le classeur si jamais....Le UserForm qui contient le code est "EMPLOYE", un userForm qui contient un combo1 dans lequel je choisi l'usine, dans la ListBox1 affiche les noms avec Checkbox, dans la listBox2 affiche les noms cochés auparavant, Le commandButton1 valide les choix et c'est le CommandButton2 qui contient le code avec ERREUR. il doit me trier le classeur avec les noms que j'ai choisi auparavant.