soustraire deux dates en VBA

Version imprimable

26/12/2011, 11h30
debutVBA

soustraire deux dates en VBA

Bonjour à tous et à toutes :D

J'ai dans un tableau une date de début et une date de fin ,je dois avec une macro VBA soustraire pour chaque ligne les deux dates et selon le cas doit m'afficher le bon nombre de jours écoulés :

Voici les exemples concrets ci -dessous.

28/10/2011 10:03 - 02/11/2011 09:30 doit afficher 5 jours

07/11/2011 15:58 - 08/11/2011 16:57 doit afficher 1 jours

28/02/2010 - 3 /03/210 si le mois de fevrier termine 29 doit m'afficher 4 sinon 3

31/12/2011 - 5 /01/2012 m'affiche 5 jours

Quelqu'un aurait une idée du code VBA pour faire cela :oops::oops:

Merci à tous et a toutes..
26/12/2011, 11h39
AlainTech

Bonjour,

Une simple soustraction entre les 2 dates te donnera le nombre de jours.

Ne jamais oublier qu'une date, pour Excel, est un nombre entier.
P. ex.: 28/02/2010 = 40237 et 03/03/2010 = 40240
Leur soustraction donne bien 3.
26/12/2011, 11h42
jfontaine

Bonjour,

Tu peux aussi utiliser la fonction datedif (Fonction cachée)

Ici les dates sont en A6 et B6

Code:

=DATEDIF(A6;B6;"d")
26/12/2011, 12h11
debutVBA

suite reponse
Bonjour Alain tech,Bonjour jfontaine

En effet,en faisant la soustraction il me donne un resultat mais pas entier .

exemple pour la difference de ces deux dates 28/10/2011 10:03 - 02/11/2011 09:30 doit afficher 5 jours

cela va afficher 4,97

Comment faire pour obtenir une valeur entière ?

Ps pour jfontaine

j'ai tenté d'écrire cela mais visiblement ce n'est pas la bonne synthaxe..
Code:

1 2 Dim maDate As Date set maDate = DATEDIF(Cells(ligne, colonne1).Value; Cells(ligne, colonne2).Value;"d")
Merci par avance.
26/12/2011, 12h26
AlainTech
Oups, pas lu tout l'énoncé...

Quoi qu'il en soit, tu cherches un nombre de jours et pas une date:
Code:

1 2 3 4 Dim lngDiff As Long With ThisWorkbook.Sheets("Feuil1") lngDiff = Int(.Cells(1, 2)) - Int(.Cells(1, 1)) End With
Quand la date contient les heures, elle possède une partie décimale.
Il faut donc ne garder que la partie entière, d'où le Int.

J'ai fait le test avec les 2 dates en A1 et B1 d'une feuille nommée Feuil1 du classeur où est écrite la macro.

Bonjour,

La syntaxe pour DateDiff :

Code:

1
2
3
4
 
Function NbJours(d1 As Date, d2 As Date) As Integer
    NbJours = DateDiff("d", d1, d2)
End Function

26/12/2011, 13h54
debutVBA

suite reponse

Bonjour,

MErci à tous ca fonctionne à Merveille :D

:ccool::ccool::ccool:
27/12/2011, 10h12
jfontaine

La fonction DateDif proposée fonctionne en tant que formule dans une cellule.

C'est pour cela que j'ai écrit

Code:

=DATEDIF(A6;B6;"d")

http://silkyroad.developpez.com/excel/dateheure/#LIV-D