Discussion :

[kiss6]

Bonjour le forum et bonne année a tous(tes)


Voila j'ais du faire le tour du web avant de venir vous embeter

comme vous le verrez dans le fichier joint j' ais un userform avec une combobox1 en liste deroulante ou je choisi un cheval ou une date etc

et une textbox ou je tape les premieres lettres ou date etc

ceci ce copie tres bien sur la feuille "trot monté" en R5:R6 et T5:AI5 mais je n'arrive pas a mettre le résultat filtre dans la listbox

je vous signal aussi que je suis autodidacte donc tous ce que j'ais fais je l'est pioche a droite et gauche

cordialement kiss6

[unparia]

Bonjour

je suis autodidacte donc tous ce que j'ais fais je l'est pioche a droite et gauche

ton "donc" (et ce qui le suit) , dans cette phrase, contredit totalement sa première proposition
Ceci étant dit : veux-tu s'il te plait bien exposer avec clarté et précision les tenants et boutissants de la difficulté rencontrée, accompagnés du code tenté pour la résoudre ?
Comme beaucoup ici, je ne prends en effet jamais le risque d'ouvrir un classeur tiers.

[kiss6]

bonsoir unparia et merci de vous pencher sur mon probleme

je vous met un code qui bien sur ne fonctionne pas pour ce que je recherche

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
Private Sub ListBox1_Click()
   Dim Critere
   Dim DerniereLigne As Integer, x As Integer
 
   Critere = Range("T5:AI5")
 
   If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
        DerniereLigne = 2
    Else
         DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
    End If
 
    Listtrotmonté.Clear
 
    For x = 1 To DerniereLigne
 
        If Cells(x, 11) = Critere Then
 
            Me.Listtrotmonté.AddItem Cells(x, 1)
End Sub

[patricktoulon]

un exemple comme ca vite fait
met la plage "A:B" dans la listbox en ne gardant que les chiffre 2015 en colonne A

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
Private Sub UserForm_Activate()
    ListBox1.Clear
    With ActiveSheet.Range("$A$4:$B$24")    ' plage a adapter
        .AutoFilter Field:=1, Criteria1:="2015"    'mot recherché a adapter
        For Each ro In .Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
            i = i + 1:
            If i > 1 Then
                With ListBox1
                    .AddItem ro.Cells(1)
                    .List(.ListCount - 1, 1) = ro.Cells(2)
                End With
            End If
        Next
        .AutoFilter    ' stop le filtre
    End With
End Sub

[kiss6]

Bonjour PATRICK et tous mes voeux pour 2017

Je vous remercie pour cet exemple vite fait

mais j'ais toujour le meme résultat j'ais le résultat dans le critere et le résultat filtre

Mais rien dans la listbox de mon userform

je vous remet votre code avec les changements que vous me demander "si toute fois j'ais bien compris"

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
Private Sub UserForm_Activate()
    ListBox1.Clear
    With ActiveSheet.Range("$T$5:$AI$5")    ' plage a adapter
        .AutoFilter Field:=1, Criteria1:="Cheval"    'mot recherché a adapter
        For Each ro In .Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
            i = i + 1:
            If i > 1 Then
                With ListBox1
                    .AddItem ro.Cells(1)
                    .List(.ListCount - 1, 1) = ro.Cells(2)
                End With
            End If
        Next
        .AutoFilter    ' stop le filtre
    End With
End Sub

cordialement kiss6

[patricktoulon]

re
je ne suis pas sur que tu es bien compris ton environnement

cheval c'est l'entete de colonne dans ton fichier forcement tu n'aura rien d'autant plus que tu a laisser le "field" a 1 alors que la colonne cheval c'est la 2d

pour utiliser les filtres il te faut le faire avec un nom sinon tu t'es vraiment mal expliqué sur ta demande
si c'est simplement mettre dans la liste un colonne précise les filtres te servent a rien
bref tu devrais commencer par les bases