Problème Month(date)

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

Bonjour et bienvenu(e)

Un fichier serait souhaitable

Mais je vois que tu déclares la variable e en Date, peut-être qu'en la déclarant en Integer ?

En effet, mais c'est une erreur de copie. J'avais fait un essai avec date alors qu'à la base je la déclare en integer.

Pour un fichier c'est un peu compliqué.

Rechercher des sujets similaires à "probleme month date"