Bonjour
je possède un script qui me permet à partir d'un tableau de récupérer les ID des salariés ainsi que leurs heures de travail pour chaque services dans une autre feuille. Ce script me récupère mes heures écrit sous la forme 8:30 en 8,30 dans la deuxième ce que je cherche à faire c'est de modifier mon script pour qu'il me convertisse automatiquement mes heures en centième, si cela n'est pas possible alors de créer une macro qui me convertisse à partir de la deuxième feuille mes heures décimal en centième automatiquement suivant la première colonne (exécuté la macro tant que celle-ci est "rempli")
Voici mon script:
ub 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 - 1
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
Je vous joint un fichier excel pour plus de compréhension
Merci d'avance pour votre aide