UserForm pour tri

Résolu/Fermé

Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 29 août 2019 à 11:26
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 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

A voir également:

UserForm pour tri
Tri excel - Guide
Logiciel de tri de photos - Guide
Peut on récupérer un colis au centre de tri chronopost - Forum Mobile
Userform liste déroulante - Forum VB / VBA
Ouvrir un userform avec un bouton - Forum VB / VBA

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
2 sept. 2019 à 10:13

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 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
2 sept. 2019 à 12:57

Merci beaucoup pour ton aide :)

Discussions similaires

Automatisation du tri google sheet

Est-ce que je peux aller chercher un colis à l'agence Chronopost

tri automatque sur excel sans créer de macro

erreure de tri Colissimo

Problème de tri de date sur Excel

Discussions similaires

Newsletters