Omelli
Nouveau membre
Bonjour à tous,
Je travaille sur un fichier avec 2 colonnes : la colonne A avec des dates, la colonne B avec les temps.
8/2/2012 3:20
8/2/2012 6:30
8/2/2012 1:02
9/2/2012 2:01
10/2/2012 4:05
10/2/2012 4:06
10/2/2012 3:01
J'écris une macro qui à la dernière ligne de chaque jour doit faire une somme des temps de la colonne B dans la colonne C.
Seulement voilà, mon code ne fonctionne pas :
Auriez une idée d'où pourrait venir mon problème ? C'est la première fois que j'essaye d'intégrer une variable dans une fonction SUM, donc je suis ouvert aux conseils
Bonne journée
Je travaille sur un fichier avec 2 colonnes : la colonne A avec des dates, la colonne B avec les temps.
8/2/2012 3:20
8/2/2012 6:30
8/2/2012 1:02
9/2/2012 2:01
10/2/2012 4:05
10/2/2012 4:06
10/2/2012 3:01
J'écris une macro qui à la dernière ligne de chaque jour doit faire une somme des temps de la colonne B dans la colonne C.
Seulement voilà, mon code ne fonctionne pas :
Code:
Sub TotalTemps()
Dim B As Integer
Dim DEBUT As Integer
Dim FIN As Integer
B = ActiveSheet.UsedRange.Rows.Count
Columns("G:G").NumberFormat = "hh:mm"
For B = 2 To B
If Cells(B, 1) <> "" And Cells(B - 1, 1) = "" Then
Cells(B, 2).Value = DEBUT
ElseIf Cells(B, 1) <> And Cells(B + 1, 1) = "" Then
Cells(B, 2).Value = FIN
Cells(B, 3).FormulaR1C1 = "=SUM(" & DEBUT& " : " &FIN& ")"
ElseIf Cells(B - 1, 2) = "" And Cells(B + 1, 2) = "" Then
Cells(B, 3) = Cells(B, 2)
End If
Next B
End Sub
Auriez une idée d'où pourrait venir mon problème ? C'est la première fois que j'essaye d'intégrer une variable dans une fonction SUM, donc je suis ouvert aux conseils
Bonne journée