Discussion :

[mat_lefebvre]

Bonjour, Je me retrouve face a un problême :

J'ai un fichier par numper personne avec plusieurs contrats :

NUMPER NUMCON
PERSONNE 1 contrat 1
PERSONNE 1 contrat 2
PERSONNE 1 contrat 3
PERSONNE 2 contrat 4
PERSONNE 2 contrat 5
PERSONNE 3 contrat 6
PERSONNE 4 contrat 7
PERSONNE 5 contrat 8
PERSONNE 5 contrat 9
PERSONNE 5 contrat 10

Je souhaite faire un tableau avec 1 personne par colonne. Sachant qu'une même personne peux avoir 8 contrats au max -->
NUMPER NUM contrat 1 NUM contrat 2 NUM contrat 3
PERSONNE 1 contrat 1 contrat 2 contrat 3
PERSONNE 2 contrat 4 contrat 5
PERSONNE 3 contrat 6
PERSONNE 4 contrat 7
PERSONNE 5 contrat 8 contrat 9 contrat 10


Avez vous une idée ?
Je peux utiliser EXCEL ou ACCESS, peu importe.

[Daniel.C]

Bonjour,

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
Sub test()
    Dim c As Range, Plage As Range, Ligne As Long
    With Sheets("Feuil2")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    Ligne = 1
    With Sheets("Feuil3")
        For Each c In Plage
                If c <> c.Offset(-1) Then
                    Ligne = Ligne + 1
                    .Cells(Ligne, 1) = c.Value
                    .Cells(Ligne, 2) = c.Offset(, 1).Value
                Else
                    .Cells(Ligne, 10).End(xlToLeft).Offset(, 1) = c.Offset(, 1).Value
                End If
        Next c
    End With
End Sub

[mat_lefebvre]

Bonjour,

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
Sub test()
    Dim c As Range, Plage As Range, Ligne As Long
    With Sheets("Feuil2")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    Ligne = 1
    With Sheets("Feuil3")
        For Each c In Plage
                If c <> c.Offset(-1) Then
                    Ligne = Ligne + 1
                    .Cells(Ligne, 1) = c.Value
                    .Cells(Ligne, 2) = c.Offset(, 1).Value
                Else
                    .Cells(Ligne, 10).End(xlToLeft).Offset(, 1) = c.Offset(, 1).Value
                End If
        Next c
    End With
End Sub

Merci ,

C'est vraiment génial.
1000 merci !