Aide pour tri multiple

Bonjour,

Voici mon code :

Sub SuppHeureNuitSelectionPR()
    Dim Dln&, i&, j%, sens, h, hd, hf, pk, pkd, pkf, aaX, xln(1 To 6), c As Range
    hd = TimeSerial(0, 0, 0): hf = TimeSerial(24, 0, 0)
    pkd = Array(0, 0.01, 1, 21, 22.4, 42, 45)
    pkf = Array(0, 0.6, 3, 22.1, 24, 44, 48)
    For j = 1 To 6
        With ThisWorkbook.Worksheets("X" & j)
            xln(j) = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        End With
    Next j
    With ThisWorkbook.Worksheets("CollageBase")
        Dln = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To Dln
            'h = TimeValue(.Cells(i, 3).Value)
            h = .Cells(i, 3)
            sens= . cells(i, 11) ' c'est cette fonction qui est a modifier
            If h > hd And h < hf Then
                pk = Val(Replace(.Cells(i, 9).Value, ",", "."))
                For j = 1 To 6
                    If pk > pkd(j) And pk < pkf(j) and sens = "PP1" Then 'Celle la est a modifier aussi
                        .Cells(i, 40) = "X" & j
                        .Cells(i, 3) = h: .Cells(i, 9) = pk
                    End If
                Next j
            End If
        Next i
        .Range("A1:AN" & Dln).Sort key1:=.Range("AN1"), order1:=xlAscending, _
         Header:=xlYes
        For j = 1 To 6
            pk = "X" & j
            Set c = .Columns("AN").Find(pk)
            If Not c Is Nothing Then
                h = c.Row: i = h
                Do
                    i = i + 1
                Loop While .Cells(i, 40) = pk
                aaX = .Range("A" & h).Resize(i - h, 40).Value2
                ThisWorkbook.Worksheets(pk).Range("A" & xln(j)) _
                 .Resize(UBound(aaX), 40).Value = aaX
            End If
        Next j
        .Range("A1").CurrentRegion.ClearContents
    End With
End Sub

Je souhaite faire de nouveau tri sur la colonne "k" (colonne 11) qui est composées de nom différent.

"PP1, Sens1, PP2, sens2 ou Hors tracé."

Est ce que quelqu'un peut m'aider?

bonjour

peux-tu mettre un fichier exemple de 3 colonnes et 15 lignes et le résultat attendu ?

sais-tu faire des TCD de filtre et/ou de tri ?

à te relire

amitiés

bonne année

Bonjour,

je vous joint un fichier source initialement sous format *.dbf

Ensuite, j'ai mon programme de traitement des données qui permet de lire le fichier, traiter les données (via des filtres), puis les insérer dans des onglets fichiers final. (Fichier "Compteur...")

Le tout est ensuite traité par des tableaux de croisé dynamique. (Faire des stats)

Le fichier compteur est protègé par mot de passe (Soucis de confidentialitée).

Je vous envois tout les MDP par mail direct.

2gps-01-11-2018.zip (39.96 Ko)

Le résultat final doit etre le suivant

1 fichier composé de plusieurs onglet

X1 X2 X3, etc

Chaque onglet doit etre égal à un PR et un sens.

Sachant que le dossier source utilise deux languages différents par sens (Sens1 et PP1) ou (Sens2 et PP2)

Sens1 et PP1 = Sens1

Sens2 et PP2 = Sens2

Voici les deux critères manquant sur mon code de départ mais je sais pas comment les traiter dans les boucles dejà mise en place.

1 critère je sais mais multi critères pas savoir

bonjour

pas facile de comprendre en 15 secondes (ma limite ! )

joins un fichier de 3 colonnes et 10 lignes et le résultat attendu

à te relire

amitiés

j'espere etre plus clair sur le fichier joint.

4classeur1.xlsx (12.15 Ko)

Bonjour,

Je répond à ta question, Oui je sais faire quelques TCD.

Actuellement, ma base de données est composé des 12 tableaux avec un traitement par jour et par moi....

pour un an

12*30 jours*12 mois = 4320 tableaux intraitable...

Ce fichier me permettra de sortir que 12 tableaux.

A moi de voir sur quelle longueur (par jour/par moi/ par ans) je veux sortir les stats.

Il me suffit de copier coller mes fichiers sources dans bon dossier (C:user/.../.../...)

PS : 1 fichier base de données = 1 journée de 25000 lignes environs.

Rechercher des sujets similaires à "aide tri multiple"