différence entre 2dates format 05/05/05(en jours )

[ludi]

Je me permet de vous deranger à nouveau mais il se trouve ke j'ai un autre programme comportant un erreur mais je n'arrive pas à resoudre ce probleme pouvez vou m'aider s'il vous plait
je pense que mon instruction concernant la différence entre deux date est mauvaise





Sub affichageretardpaiement()
'
' affichageretardpaiement Macro
' Macro enregistrée le 02/08/2005 par ludi
'

Dim i As Integer 'i correspond à la ligne étudiée '
Dim Msg As Variant
Dim Style As Variant
Dim Title As Variant
Dim Response As Variant
Dim t As Integer ' t correpond à l'intervalla de temps pour les factures non payées entre le jour de création de la facture et le jour j'

i = 5
t = 0 'initialisation de la valeur de t '

While (Range('D' & i).Value <> '') 'tant kil y a quelque chose dans la cellule d de la ligne i faire '

If (Range('K' & i).Value = '') Then ' si la cellule k de la ligne i vaut RIEN faire'
DateDiff(d, Range('I' & i).Value, Date) = t 'calcul de la différence de jours entre deux dates '
If (t > 50) Then
Msg = 'Le paiement de cette facture n'a pas été honoré. Souhaitez-vous proceder au rappel de facture?'
Style = vbYesNo + vbQuestion
Title = 'Rappel Factures Impayées'
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = 'Oui'
Else
MyString = 'Non'
End If
End If
End If
i = i + 1
Wend

End Sub

 

[marco57]

Bonsoir Ludi et le Forum,

Remplace donc la ligne :

DateDiff(d, Range(\\'I\\' & i).Value, Date) = t

par la suivante

t = DateDiff('d', Range('I' & i).Value, Date)

et ça marchera

Bonne programmation

Marco

 

[remercieme,nt à marco57]

merci beaucoup marco 57 ca marche tu vien de m'enlever un belle épine du pied à bientot bonne journée