UserForm pour tri [Résolu]

Signaler
Messages postés
785
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
13 août 2020
-
Messages postés
785
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
13 août 2020
-
Bonjour le forum :)

Je vous joins un fichier, où tout est expliqué dessus.

Je reste à disposition si les informations ne sont pas assez claires, pour ceux qui vont ou veulent se pencher sur mon problème !

Je vous remercie par avance, de vous pencher sur mon sujet :)

https://mon-partage.fr/f/jzCZteh6/


Configuration: Windows / Chrome 76.0.3809.132

1 réponse

Messages postés
2102
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
4 août 2020
278
Bonjour,

Code dans le module du UserForm
Private Sub CommandButton1_Click()
    Jour = ComboBox1.Text
    Mois = ComboBox3.Text
    Secteur = ComboBox2.Text
    Ajout_Ligne_Filtre
    If Jour <> "" Then Filtrer_Jour
    If Mois <> "" Then Filtrer_Mois
    If Secteur <> "" Then Filtrer_Secteur
End Sub


Code dans le module TRI
Option Compare Text

Public DerLig As Long
Public Jour As String, Mois As String, Secteur As String

Sub BoutonTri()
UserForm1.Show
End Sub

Sub Ajout_Ligne_Filtre()
    Rows(2).Select
    ActiveSheet.AutoFilterMode = False
    Selection.AutoFilter
    DerLig = ActiveSheet.[A100000].End(xlUp).Row
End Sub

Sub Filtrer_Jour()
    ActiveSheet.Range("A2:N" & DerLig).AutoFilter Field:=1, Criteria1:="=" & Jour
End Sub

Sub Filtrer_Mois()
    ActiveSheet.Range("A2:N" & DerLig).AutoFilter Field:=2, Criteria1:="=" & Mois
End Sub

Sub Filtrer_Secteur()
    'Chargement des Critères Secteur USF TL1
    Nb = Worksheets("listes").[F100].End(xlUp).Row - 1
    ReDim Crit(Nb) As String
    If Secteur = "TL1" Then Col = "F" Else Col = "G"
    For i = 1 To Nb
        Crit(i) = Sheets("listes").Cells(i, Col)
    Next i
    ActiveSheet.Range("A2:N" & DerLig).AutoFilter Field:=3, Criteria1:=Array(Crit), Operator:=xlFilterValues
End Sub



Le fichier
https://mon-partage.fr/f/A8nXKmiN/

Cdlt
Messages postés
785
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
13 août 2020
78
Merci beaucoup pour ton aide :)