Discussion :

[k-eisti]

Bonjour ,

je veux récuperer les contenus des cellules d'une colonne dans une ListBox pour construire un filtre , j'ai une macro qui recupere tout les contenus des cellules, et sa c'est pas bon , car si il y'a deux cellules qui ont le même contenu il seront affichés deux fois dans la ListBox , et le bute est de créer un filtre.


Merci de votre aide

[tirex28]

Bonjour,

Essaye ceci en adaptant ta plage source et le nom de ta listbox

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim i As Integer, Tabl()
Tabl = WorksheetFunction.Transpose(Range("A1:A8"))
With ListBox1
    .AddItem Tabl(1)
    For i = 2 To UBound(Tabl)
        If WorksheetFunction.Match(Tabl(i), Tabl, 0) = i Then .AddItem Tabl(i)
    Next
End With

Cordialement,

Tirex28/

[k-eisti]

j'ai essayé d'éxécuté la macro et j'ai bogue avec le message
"Objet requis (erreur 424)" a la ligne suivante:

Code :

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

1
2
 
 .AddItem Tabl(1)

j'ai déclaré Tabl comme variant mais sa ne marche pas

[k-eisti]

Sa marche , je me suis tromé j'ai met la macro dan un module alor je crois qu'il falait la mettre dans le UserForm , je vais essayer de l'adapter selon mes besoins.

Merci tirex28

[k-eisti]

je veux passer a cette macro en argument le nom de la feuille et l'indice du champs (Num de colonne du champs)

car je récupere les noms des feuilles du classeur dans un ComboBox et les cahmps des feuille dans une ListBox . j'ai essayé toutes les possibilités mais sa bogue je n'arrive pas a l'adapter , j'ai trouvé sur l'aide cette macro mais j'avou que je ne comprend pas bien

Code :

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

1
2
3
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer

Merci de votre aide

[k-eisti]

j'arrive a donner comme argument a la macro le nom de la feuille mais quant elle rencontre une cellule vide elle bogue
le code est :

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
 
Sub filtre(feuille As String)
Dim i As Integer 
 Set rang = Worksheets(feuille).Range("A2:A450")
Tabl = Application.WorksheetFunction.Transpose(rang)
 
With ListBox4
    .AddItem Tabl(1)
    For i = 2 To UBound(Tabl)
        If WorksheetFunction.Match(Tabl(i), Tabl, 0) = i Then .AddItem Tabl(i)
      Then .AddItem Tabl(i)
    Next
   End With
 
End Sub

et j'aimerais bien si c'est possible d'avoir dans la liste les criteres (VIDE et NON VIDE) pour permettre a l'utilisateur de filtrer ses données selon sons choix

Merci de m'avoir lu car je sais que j'écrit mal