UserForm pour tri

Résolu

Yoyo01000 Messages postés 1639 Date d'inscription Statut Membre Dernière intervention -
Yoyo01000 Messages postés 1639 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

UserForm pour tri
Comment faire un tri personnalisé sur excel - Guide
Logiciel tri photo - Guide
Tri turf - Télécharger - Sport
Votre colis est retenu au centre de tri - Accueil - Arnaque
En cours de traitement sur le site de tri local ✓ - Forum Consommation & Internet

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

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 Statut Membre Dernière intervention 168

Merci beaucoup pour ton aide :)

Discussions similaires

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

Peut-on retirer un colis diretement chez chronopost ?

colis dans centre de traitement

Automatisation du tri google sheet

Colis bloqué depuis le 05-03 dans un centre de distribution local

Votre réponse

Discussions similaires