Discussion :

[candyneige]

Bonjour,

J'ai un fichier que je n'arrive pas à traiter sur VBA. Je suis novice dans le domaine.

En fait je dois créer une macro qui devra ranger les données d'une badgeuse contenues dans des colonnes sur des lignes et cela en fonction des dates.
En gros, les données dans la colonne A se répètent, mais les informations dans les autres colonnes sont un peu différentes.

le fichier excel explique mieux.

Merci pour votre compréhension

[Menhir]

Je n'ai pas ouvert ton fichier joint, entre autre pour les raisons expliquées ici : https://www.developpez.net/forums/d8...s-discussions/

S'il s'agit juste d'un tri, peut-être suffirait-il de placer un filtre sur tes données.
Ensuite, elle pourrait être triée en deux clics.

[Yves_VBA]

Bonjour candyneige,
dans ton exemple tu n'as mis que la valeur "138" de la colonne A.
Comment doit-on présenter les résultats pour les autres valeurs ? Le "79" on le met où ?
Avant le 138 ? (classé par ordre numérique croissant ?)
Si tu pouvais compléter l'exemple dans le fichier joint.
Yves

[candyneige]

Merci Yves.
J'ai rajouté quelques lignes pour que vous ayez une meilleure vision

[candyneige]

En fait l'ordre importe peu, c'est juste que en fonction du matricule dans la colonne A, on doit afficher dans la colonne b la date, l'heure d'entrée dans la colonne c, l'heure de sortie pause dans la colonne d; l'heure de retour de pause dans la colonne e et l'heure de sortie dans la colonne f

[patricktoulon]

bonsoir
avec un dico ,retranscription en sheets(2) colonne "A" puis colonne("A").texttocolumn.... et basta terminé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub test()
    Dim dico As Object, i&, elem, lig
    Set dico = CreateObject("scripting.dictionary")
    With Sheets("X_Attlog - Copie")
        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            dico(.Cells(i, 1).Text & "|" & .Cells(i, 2).Text) = dico(.Cells(i, 1) & "|" & .Cells(i, 2)) & "|" & TimeValue(.Cells(i, 3).Text)
        Next
    End With
    lig = 4    'tu commence en ligne 4 dans ton exemple
    With Sheets(2)
        .Cells.Clear
        For Each elem In dico: .Cells(lig, 1) = elem & "|" & dico(elem): lig = lig + 1: Next
        .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
                                      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Other:=True, OtherChar:="|", TrailingMinusNumbers:=True
    End With
End Sub

edit: petite correction sur le format de date dans texttocolumn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Other:=True, OtherChar:="|", TrailingMinusNumbers:=True, _
        FieldInfo:=Array(Array(1, 1), Array(2, 3), Array(3, 1))

[candyneige]

Merci beaucoup, je viens de voir le code. Je vais essayer de l'adapter a mon programme. J#espere que ca va marcher. Je reviens vers vous au cas ou. Merci encore.

[candyneige]

Bonsoir patricktoulon.

Désolée pour mon retour tardif. J'étais en déplacement. Juste pour te dire merci pour ta grande aide. J'ai réussi à adapter ton code et tout marche très bien. Merci encore. Je te suis depuis longtemps et j'apprends beaucoup de toi. Merci de nous aider comme tu fais. Dieu te le rendra au centuple.
Merci encore