Bonjour,
Après avoir épluché internet et tester je ne sais combien d'options je n'arrive pas à trouver mon problème sur mon code lié à month(date).
A chaque fois j'ai une "erreur d’exécution 13, incompatibilté de type" sur la ligne suivante:
e = Month(Worksheets("STAFF.& FIN. DETAILS").Range("E9"))
Mon code qui se trouve dans un module et est activité par un bouton:
Je précise que mes cellules E9 et F9 sont configurées US du type 12/21/2015.
Dim i As Integer
Dim j As Integer
Dim k As Variant
Dim e As Date
Dim f As Integer
DernLign1 = Worksheets("TURNOVER (2)").Range("A65536").End(xlUp).Row
DernLign2 = Worksheets("STAFF.& FIN. DETAILS").Range("A65536").End(xlUp).Row
For i = 9 To DernLign1
For j = 9 To DernLign2
e = Month(Worksheets("STAFF.& FIN. DETAILS").Range("E9"))
f = Month(Worksheets("STAFF.& FIN. DETAILS").Range("F9"))
If Worksheets("STAFF.& FIN. DETAILS").Cells(j, 1).Value = Worksheets("TURNOVER (2)").Cells(i, 1).Value Then
Do Until e = f
Worksheets("TURNOVER (2)").Cells(i, e).Value = Worksheets("INV. DAYS").Cells(i, e).Value * Worksheets("STAFF.& FIN. DETAILS").Cells(j, "S").Value
e = e + 1
Loop
End If
Next j
Next i
End Sub