Bonjour
J'ai un petit script en VBA qui me récupère et me classe dans une feuille, ID des salariés et leurs heures de travail pour chaque activité. Ces données sont récupérer à partir d'un tableau d'une autre feuille
Voici mon script:
Sub tableau()
k = 2
Sheets("Feuil2").Cells.ClearContents
With Sheets("Feuil1")
For i = 5 To .Range("A" & .Rows.Count).End(xlUp).Row - 1
For j = 3 To .Cells(3, .Columns.Count).End(xlToLeft).Column
If .Cells(i, j) <> "" Then
Sheets("Feuil2").Cells(k, 1) = .Cells(i, 2)
Sheets("Feuil2").Cells(k, 2) = CDbl(Split(.Cells(i, j), ":")(0) & "," & Split(.Cells(i, j), ":")(1))
Sheets("Feuil2").Cells(k, 3) = .Cells(3, j)
k = k + 1
End If
Next j
Next i
End With
End Sub
Et mon fichier excel pour plus de compréhension
Merci d'avance pour votre aide