soustraire deux dates en VBA [Résolu]

[debutVBA]

Bonjour à tous et à toutes


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

Merci à tous et a toutes..

[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.

[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")

[debutVBA]

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.

[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.

[pc75]

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

[debutVBA]

Bonjour,

MErci à tous ca fonctionne à Merveille

[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