Function TotalFrais(DateDeb As Date, DateFin As Date)
Dim Jour As Date
Dim sNomF As String, MemNomF As String, Lig As Long
Dim Total As Single, ValD As Single, ValE As Single
'
Lig = 6: Total = 0
For Jour = DateDeb To DateFin
sNomF = Application.Proper(Format(Jour, "Mmmm yyyy"))
If MemNomF = "" Then MemNomF = sNomF ' Mémoriser le nom
With Sheets(sNomF)
' Si on change de mois
If MemNomF <> sNomF Then
MemNomF = sNomF: Lig = 6
End If
' Sinon
ValD = 0: ValE = 0
If .Range("D" & Lig) <> "" Then ValD = CSng(.Range("D" & Lig))
If .Range("E" & Lig) <> "" Then ValE = CSng(.Range("E" & Lig))
Total = Total + ValD + ValE
Lig = Lig + 1
End With
SuiteJour:
Next Jour
' Retour du total
TotalFrais = Round(Total, 2)
End Function