UserForm pour tri [Résolu]

Messages postés
262
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 septembre 2019
- - Dernière réponse : Yoyo01000
Messages postés
262
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 septembre 2019
- 2 sept. 2019 à 12:57
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

Afficher la suite 

1 réponse

Messages postés
1995
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 septembre 2019
224
0
Merci
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
Yoyo01000
Messages postés
262
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 septembre 2019
20 -
Merci beaucoup pour ton aide :)
Commenter la réponse de Frenchie83