Discussion :

[spleen92]

Bonjour,

J'ai un fichier excel un peu particulier.

Je dispose de 8 000 lignes différentes. Chaque ligne correspond à un événement pour un individu. L'individu est identifié par un matricule alphanumérique en colonne 1, les colonnes suivantes contiennent les différentes informations de l'événement.

Je souhaiterai transformer mon tableau de façon à obtenir une ligne par individu (donc 1 ligne par matricule) et en colonne avoir les différentes informations des événements (Il peut y avoir entre 1 et 21 événements par individus).

Je pense qu'avec une Macro ce n'est pas très compliqué, mais je suis complètement néophyte en VBA.

Je n'arrive pas à identifier le processus pour effectuer cette opération et donc mes recherches sous google sont peu fructueuses.

Avez-vous une idée? ou un exemple de macro que je pourrais adaptée

Merci d'avance pour votre aide

[mercatog]

Bonjour
Tu veux regrouper les évènements en colonne B (séparés par un séparateur) ou en autant de colonnes que d'évènements.

[Daranc]

et un tri sur la colonne a pour débuter ?

[mercatog]

Un exemple à adapter

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
18
19
20
21
22
Sub Test()
Dim LastLig As Long, i As Long
Dim Mat As String
Dim c As Range
Dim k As Byte
 
Application.ScreenUpdating = False
With Sheets("Feuil1")    'à adapter
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
        Mat = .Range("A" & i).Value
        If Application.CountIf(.Range("A1:A" & i - 1), Mat) > 0 Then
            Set c = .Range("A1:A" & i - 1).Find(Mat, lookat:=xlWhole)
            For k = 2 To 12    '12 colonnes
                .Cells(c.Row, k).Value = .Cells(c.Row, k).Value & IIf(.Cells(i, k).Value <> "", "-" & .Cells(i, k).Value, "")
            Next k
            .Rows(i).Delete
            Set c = Nothing
        End If
    Next i
End With
End Sub

[spleen92]

Effectivement, j'ai fait un tri sur la colonne j'ai vérifié le nombre maximum d'événements par individu qui est 21.

En fait je veux conserver 1 événement par colonne, plus précisément je veux conserver 2 attributs la durée de l'événement et le code descriptif de l'événement.

En gros, l'idéal serait:
Matricule Even-1-durée Even-1-motif(...) Even-21-durée Even-21-motif

Je vais regarder l'exemple.

Merci beaucoup pour votre aide précieuse !

J'ai regardé l'exemple. Mais vu que je suis vraiment nouveau dans le monde des Macro j'ai du mal à saisir ce que je dois adapter...

Est ce que quelqu'un aurait une version d'une macro commentée pour que je comprenne un peu plus?


Merci d'avance

[mercatog]

Il faut peut être expliquer davantage ton problème, le cas échéant avec un fichier exemple.