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

[kiss6]

bonjour Patrick

je vous remercie de votre réponse je vais faire ce que vous me dite

car je cherche toujour et tout a l'heure en mettant "Me.ListBox1.List = [Base].Value" juste dans ce code

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
 
    ' on charge les en-tetes de la table dans la liste déroulante
             ComboBox1.List = WorksheetFunction.Transpose(Feuil1.Range("A5:P5"))
             Me.ListBox1.List = [Base].Value
    End Sub

et ce code

Code :

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

1
2
3
4
5
6
7
Private Sub ListBox1_Change()
 
  Range("T5:AI5").ClearContents
     For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then j = j + 1: Range("T5:AI5").Cells(j, 1).Value = Me.ListBox1.List(i, 1)
  Next i
End Sub

j' ai réussi a mettre la colonne "code" dans ma listbox1 mais au centre de celle-ci

je vous met un autre fichier joint avec les nouveau code si toute fois vous voudriez jeter un oeil

encore merci Patrick

cordialement Kiss6

formulaire saisie.xlsm

[kiss6]

bonjour

je vois que mon post n'interresse plus personne donc je clique sur résolue

je me suis débrouillé autrement

merci a vous tous qui mon répondu sur cette question et a bientot sur ce forum

cordialement kiss6

[Philippe Tulliez]

Bonjour,

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

Cette phrase dans le troisième Post est en contradiction avec ce que tu écris lors de ta demande initiale

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

A cette lecture on a tendance à penser que tu as pu filtrer mais que ton problème est de charger les données filtrées dans le ListBox

[patricktoulon]

re
bonsoir a tous
perso c'est vrai que je n'ai toujours pas compris ca demande

je ne vois pas le soucis de remplir une liste box avec les lignes contenu dans autofilter.range

Code :

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

1
2
additem  (premiere cellule de la ligne )a chaque boucle sur ces lignes  
.list(list.count-1,x)= '>>>>> cela multiplié par le nombre de colonne de la plage x étant incrémenté

non je ne vois pas le soucis

[kiss6]

bonsoir a tous les deux

comme je le dit ans mon dernier post je me suis débrouiller a faire le tri sans userform

mais philippe vous avez raison mon probleme etais de de charger les données filtrées dans le ListBox

comme je l'explique plus haut en R5:R6 il y a le critere et T5:AI5 le résultat filtré c'est le

résultat filtré qui ne ce copie pas dans la listbox

Mais comme je vous le dit j'ai fais un tri differant et sans userform

je vous remercie tous les deux de m' avoir aidé

cordialement kiss6