Trier une listbox (userform_initialise)

Re bonjour a tous,

Alors une nouvelle, j'ai mis en place un USF composé de :

Un textbox ; une listbox; et 2 bouton filtrer et fermer

elle fonctionne (au depart il n'y avait que la listbox), je voudrais juste des compléments de code si possible, pour faire ceci :

Je clique sur mon bouton "Filtrer par OI", mon USF s'ouvre (il faudrait qu'il me trie le tout de A>Z, les valeurs sont de type "N0234434"

Ensuite le textbox sert à entrer le N° de l'OI, pour simplifier la saisie.

Je vous présente le code actuel

Private Sub CommandButton1_Click()
'code du filtre à mettre en place
    Dim lbVal As String
    Dim arrCriteres()
    If ListBox1.ListIndex = -1 Then Exit Sub
     'Not sure that I need the next line.  Listbox is a SingleSelect.
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            lbVal = ListBox1.List(i)
            ReDim Preserve arrCriteres(i)
            arrCriteres(i) = lbVal
        End If
    Next i
    Range("$C$3:$C$65536").AutoFilter Field:=1, _
                      Criteria1:=arrCriteres, _
                      Operator:=xlFilterValues
End Sub
Private Sub CommandButton3_Click()
On Error Resume Next
ActiveSheet.ShowAllData
'Selection.AutoFilter
End Sub

Private Sub CommandButton2_Click()
'ActiveSheet.ShowAllData
Unload INSP_FiltreOI
End Sub

Comme vous pouvez le voir le code pour le textbox n'y apparait pas,

Si vous auriez un petit coup de pouce

Merci à vous

Chris

Bonsoir Chris,

Puisqu'il ne faut pas hésiter quand tu t'éloignes...

Tu parles de deux boutons et tu nous donne le code de 3 ?!...

Tu parles de cliquer dans le bouton "Filtrer par OI" mais quel est le nom ([(Name)] pas la [Caption]) de ce contrôle ?

Pour le reste j'ai pas lu. Je préfère commencer quand c'est clair dans ma tête. Mais il serait préférable que tu joignes le fichier qui va bien...

Salut ThauTheme,

Merci de ta réponse, effectivement... que dire ...

Bon je joint un fichier, le bouton se trouve dans le ruban (c'est le module 2), j'ai viré le code inutile aussi

Merci pour ton aide, passe une bonne journée

Chris

Bonjour,

Désolé pour le retard je me suis absenté ces trois derniers jours...

En pièce jointe ton fichier modifié. Pas sûr d'avoir bien compris. J'ai remplacé la TextBox par une ComboBox. Tu choisis un Numéro d'OIN, la ListBox1 te montres la liste de tous les Numéros de Constat correspondants au numéro d'OIN. Tu sélectionnes dans la ListBox1 un ou plusieurs numéros de constat et tu lances le filtre via le bouton.

Est-ce que ça convient ?

72cco-v01.xlsm (261.92 Ko)

Salut TheauThème,

Merci de m'aider la dessus, mais ce n'est pas trop ce que je veux... je vais essayer d'être plus précis :

En faite, j'avais mis une textbox, une listbox et 2 boutons uniquement pour filtrer sur l'est N° d'OI, mais je pense que cela fait des contrôle pour pas grand chose, donc en simplifiant, si on met un bouton qui appel une inputBox, ou dedans j'entre mon N° d'OI, et en cliquant sur ok, il me filtre la colonne OI ...

Ne serait ce pas plus simple ...

Merci pour ton aide

Bonne journée et bon we

Chris

Re,

Ok Chris, je ne sais pas pourquoi dans ton premier post tu dis : les valeurs sont de type "N0234434" ?!... C'est ça qui m'a enduit d'erreur (comme dirait un peintre..)

En pièce jointe la version 2 qui devrait correspondre à tes besoins. J'ai gardé la ComboBox car elle permet d'éviter une faute de frappe dans le numéro d'OIN. Tu choisis un numéro d'OIN et le filtre opère...

166cco-v02.zip (256.52 Ko)

Re,

Alors là... c'est parfait, même mieux que ce que je voulais

Merci pour ton aide, c'est sympas, je te souhaite un bon we (presque fini malheureusement)

Bonne soirée, a+

Chris

Rechercher des sujets similaires à "trier listbox userform initialise"