Tri puis déplacement

[tousport]

Bonjour,

Je reçois un fichier brut (txt) d'une liste de concurrents avec des temps de passage, les concurrents arrivant dans le désordre. Je souhaite les trier par numéros puis traiter des données en éliminant une partie des infos reçues.
Avez vous des pistes pour moi ?

En annexe: le fichier : 2 onglets : "source" le fichier que je reçois et "final" ce à quoi j'aimerais arriver .

merci pour votre aide

 

[Minick]

Re : Tri puis déplacement

Salut,

Un petit exemple :

Option Explicit

Sub Traitement()
    Dim CptSrc As Integer, CptDst As Integer
    Dim CptPoste As Byte
    Dim Tmp As String
    
    Dim ShtSrc As Worksheet, ShtDst As Worksheet
    
    Set ShtSrc = Sheets("Source")
    Set ShtDst = Sheets("Final")
    
    CptDst = 5
    
    ShtSrc.UsedRange.Sort key1:=ShtSrc.Range("D4"), order1:=xlAscending, header:=xlNo
    ShtDst.Rows(CptDst & ":" & ShtDst.Range("A" & CptDst).End(xlDown).Row).Clear
    
    For CptSrc = 1 To ShtSrc.Range("A65536").End(xlUp).Row
        ShtDst.Range("A" & CptSrc + CptDst - 1).Value = ShtSrc.Range("D" & CptSrc).Value
        
        For CptPoste = 1 To 5
            Tmp = Right(ShtSrc.Cells(CptSrc, CptPoste + 4), 11)
            Tmp = Left(Tmp, 8)
            If Tmp <> "--:--:--" Then
                ShtDst.Cells(CptSrc + CptDst - 1, CptPoste + 1).Value = Tmp
            End If
        Next
    Next
End Sub

++
Minick

 

[Modeste]

Re : Tri puis déplacement

Bonjour tousport, Minick,

Un peu tard par rapport à la macro de Minick (mais comme j'étais dessus, je dépose quand même !) ... une version avec formules qui "extrait" le temps. Je ne me suis pas intéressé au classement (ne sachant pas si le n° renseigné était un n° de dossard ou un classement en fonction de critères ... qui restent ténébreux pour moi)
Ceci dit, la macro de Minick m'a tout l'air de donner "pile poil" le résultat attendu, du début à la fin.

Modeste

 

[tousport]

Re : Tri puis déplacement

Bonjour,
Incroyable, la rapidité, la précision et la justesse de la réponse.
grand merci