Discussion :

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

S�lectionner tout - Visualiser dans une fen�tre � part

=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 :

S�lectionner tout - Visualiser dans une fen�tre � part

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 :

S�lectionner tout - Visualiser dans une fen�tre � part

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 :

S�lectionner tout - Visualiser dans une fen�tre � part

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 :

S�lectionner tout - Visualiser dans une fen�tre � part

=DATEDIF(A6;B6;"d")

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