Code de la fonction Datedif

Version imprimable

Bonjour à tous ! :)

Je veux créer une macro permettant de faire des différences de dates.
Je sais que manuellement pour effectuer une différence de date en mois par exemple, on utilise la fonction DateDiF.
Malheureusement je connais pas le code de cette fonction.

Ainsi je veux un code permet d'effectuer une différence de date en mois svp :oops::oops::oops::oops:..

Voila mon code pour l'instant (qui ne fonctionne pas):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim a&, plage, j& a = [A65536].End(xlUp).Row plage = Application.Transpose(Range("AQ1:AQ" & a)) On Error Resume Next 'si toutes les valeurs ne sont pas des dates For j = 1 To a plage(i) =DATEDIF(RC[-33],R2C34,""m"" Next With [J1].Resize(d) .Value = Application.Transpose(plage) End With End Sub
PS: je veux faire une boucle pour faciliter le traitement, car j'ai beaucoup de données.

Je vous remercie d'avance pour l'aide! :oops::oops:

20/12/2012, 15h51
Invité

Bonjour

Citation:

Malheureusement je connais pas le code de cette fonction.

As-tu consulté l'aide ? Mets le curseur sur la fonction et clique sur la touche F1.

Philippe
20/12/2012, 16h46
Didier Gonard

Bonjour,

je pense que tu fais la confusion avec le fonction "Excel Feuille" DateDif qui n'est plus documentée et n'apparaît pas dans les listes ou aide, mais fonctionne toujours et le fonction VBA DateDiff (2 "f"), qui est bien présente dans l'aide VBA, mais a un "f" de plus que l'autre et surtout une syntaxe différente :)

Tout serait trop simple sinon, une fois ceci posé, je te dis comme Philippe fait un F1 sur DateDiff avec 2 f en VBA et ça sera OK

Citation:

DateDiff, fonction

Renvoie une valeur de type Variant (Long) indiquant le nombre d'intervalles de temps entre deux dates données.
Syntaxe

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

cordialement,

Didier

voila mon nouveau code qui ne fonctionne pas :calim2::oops::oops::(

NB: je veux faire une différence de date en mois via une boucle :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub calculret()
 
'nomme colonne retards
Range("AQ1").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveCell.FormulaR1C1 = "Retards"
    Columns("AP:AP").EntireColumn.AutoFit
 
 
Dim a&, plage, j&
Dim date1, date2 As Long
date1 = CDate(Range("J2"))
 
date2 = CDate(Range("$AH$2"))
 
a = [A65536].End(xlUp).Row
plage = Application.Transpose(Range("AQ1:AQ" & a))
 
On Error Resume Next 'si toutes les valeurs ne sont pas des dates
For j = 1 To a
  plage(j) = DateDiff(m, Range("J2"), Range("$AH$2"), vbMonday, vbUseSystem)
 
date1 = date1 + 1
Next
With [J1].Resize(d)
  .Value = Application.Transpose(plage)
  End With
End Sub

HELP :oops:

21/12/2012, 10h04
Philippe Tulliez

Bonjour,
Tu as reçu deux messages de Philippe et Didier te suggérant de placer ton curseur sur la fonction DateDiff et appuyer sur F1.
Lis bien l'aide sur cette fonction et tu verras que tu utilises mal l'argument Interval
21/12/2012, 10h42
Tiviia

On a :

interval:Expression de chaîne correspondant à l'intervalle de temps utilisé pour calculer la différence entre date1 et date2.

J'ai mis comme valeur "m" pour une différence en mois.

date1 est la valeur de la cellule J2, on incrémente J2+1=J3 ..
date2 est la valeur de la cellule $AH$2

Je ne vois pas où je me trompe...:oops::oops:
21/12/2012, 10h52
Philippe Tulliez
Bonjour,
A moins que tu aies changé ton code par rapport à celui que tu affiches dans ton post de 9h57 qui indique m (nom d'une variable) et pas "m"
Code:

1 2 3 For j = 1 To a plage(j) = DateDiff(m, Range("J2"), Range("$AH$2"), vbMonday, vbUseSystem) date1 = date1 + 1
Or je ne trouve nulle trace de variable m qui pourrait être égal à la chaîne "m".
Je te confirme que cette syntaxe fonctionne parfaitement

Code:

Debug.Print DateDiff("m", Range("K2"), Date)

Me renvoie bien 10. Où la cellule K2 est égal au 10/02/2012 et la fonction Date la date d'aujourd'hui.

si votre syntaxe fonctionne la mienne n'a aucuns effet sur ma feuille de calcul :cry:..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim a&, plage, j& Dim date1, date2 As Date date1 = Range("J2") date2 = Range("$AH$2") a = [A65536].End(xlUp).Row 'Application.Transpose plage = (Range("AQ2:AQ" & a)) On Error Resume Next 'si toutes les valeurs ne sont pas des dates For j = 1 To a plage(j) = DateDiff("m", date1, date2, "", "") date1 = date1 + 1 Next With [J1].Resize(d) .Value = Application.Transpose(plage) End With End Sub
Comment faire une boucle avec votre code?

Sachant que je veux effectuer la différence de date en mois entre les colonnes J et AH; avec le résultat dans la colonne AQ.
Je fige la valeur $AH$2 car c'est la même date sur toute la colonne AH.

Bonjour,
Voici un exemple de code qui écrit dans la colonne B la différence en mois entre la date se trouvant en colonne A et la date du jour et ce de la ligne 2 à la dernière ligne de la table de données se trouvant dans la feuille nommée Feuil1 du classeur où se trouve le code VBA (ThisWorkbook).
Code:

1 2 3 4 5 6 7 8 9 Sub t() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil1") Dim r As Long With sht For r = 2 To .Range("A1").CurrentRegion.Rows.Count .Cells(r, 2) = DateDiff("m", .Cells(r, 1), Date) Next End With End Sub
Petite précision, la ligne 1 de cette feuille contient les étiquettes de colonnes.

21/12/2012, 11h49
Tiviia

Merci Philippe Tulliez ! ;) :) :)

Votre code fonctionne très bien! :ccool:

Je vous remercie pour votre aide :oops::oops:.

à bientôt :)

Tiviia
21/12/2012, 12h17
Philippe Tulliez

Bonjour,

Citation:

Envoyé par Tiviia

Merci Philippe Tulliez ! ;) :) :)
Votre code fonctionne très bien! :ccool:
Je vous remercie pour votre aide :oops::oops:.
à bientôt :)
Tiviia

Magnifique, comme quoi tout arrive et il ne faut pas désespérer.
Je me permet d'insister comme l'a très bien rappeler Didier dans sa réponse qu'il existe également la formule DATEDIF présente dans excel. Non documentée mais néanmoins tout aussi efficace.

Code:

=DATEDIF(A2;AUJOURDHUI();"m")
21/12/2012, 12h29
Tiviia

Je viens de remarquer que la fonction :

Code:

.Cells(r, 43) = DateDiff("m", .Cells(r, 10), .Cells(r, 34))

rajoute un mois à la différence.

Exemple différence entre 18/11/2012 et 01/12/2012 = 1 ( normalement c'est 0)

Qu'en pensez-vous ?

ps: J'obtiens 0 avec la fonction datedif via excel (manuellement).
21/12/2012, 12h55
Philippe Tulliez

Bonjour,
Effectivement à la différence de la formule DATEDIF d'excel, la fonction DateDiff du VBA semble ne pas tenir compte des jours du mois que l'on compare.
J'avoue privilégier les fonctions natives d'excel et j'utilise très peu DateDiff pour les mois. Je n'avais donc jamais remarqué ce problème (comme quoi on apprends tous les jours).
Je te conseille la lecture du tutoriel Comprendre et gérer les dates sous Excel et en VBA de Didier Gonard.
Je ne sais pas s'il en parle mais de toute façon sa lecture est très instructive.
21/12/2012, 13h07
Tiviia

Je viens de lire le tutoriel..:oops::oops:

Mais comment doit-je faire pour obtenir des résultats exacts sans l'ajout d'un mois :oops::oops::oops:...?
21/12/2012, 13h31
Philippe Tulliez

Bonjour,
Si tu n'as pas trouvé la réponse dans ce tutoriel, je serais tenté de te proposer de faire une simple opération arithmétique doublé d'un test logique.
Vérifie si le jour de la date de départ n'est pas inférieure à la date d'arrivée et dans l'affirmative retranche 1 mois.
21/12/2012, 13h42
Tiviia

reBonjour,

Je sais que je vous demande beaucoup mais vous pouvez me faire le code..svp :oops::oops::oops:
Je ne sais pas faire de test en vba :oops::oops::oops:

Merci d'avance
Tiviia

Bonjour,
Voici un exemple avec un test booléen.
Dans cet exemple Cells(1, 2) contient la date d'arrivée

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Exemple1()
 Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil1")
 Dim r As Long
 Dim diff As Boolean
 With sht
  For r = 2 To .Range("A1").CurrentRegion.Rows.Count
   diff = Day(.Cells(r, 1)) > Day(.Cells(1, 2))
   .Cells(r, 3) = DateDiff("m", .Cells(r, 1), .Cells(1, 2)) - (Abs(diff) * 1)
  Next
 End With
End Sub

21/12/2012, 13h45
Philippe Tulliez

Bonjour,

Citation:

Envoyé par Tiviia

reBonjour,
Je sais que je vous demande beaucoup mais vous pouvez me faire le code..svp :oops::oops::oops:
Je ne sais pas faire de test en vba :oops::oops::oops:
Merci d'avance
Tiviia

Si tu commence à programmer en VBA, il est urgent que tu apprennes à faire des tests. De même d'ailleurs avec Excel.
C'est vraiment la base.
Se borner à faire du copier/coller sans comprendre ce que l'on fait n'est pas la bonne approche et n'est pas dans l'esprit de ce forum.
21/12/2012, 14h18
Tiviia

Bonjour

Merci pour le code.

Je tiens à dire que je sais faire des tests sur excel tel que avec la fonction SI ou NB.SI .
Malheureusement, ce n'est que cette année que j'apprends(seule,car on a fait juste une initiation au VBA) à programmer en VBA.
Auparavant, j'ai appris le C++ et l'utilisation de Labview.

Quand je pose une question sur le forum, c'est dû à mon manque d'expérience en VBA.

De plus quand je prends vos codes, j'essaye de les comprendre et de les modifier selon mes critères.

Je vous remercie pour l'aide que vous apportez:ccool::ccool:!

Cdt
Tiviia
21/12/2012, 14h28
Philippe Tulliez

Bonjour,
Et bien les tests en VBA ne sont pas différents de ceux d'Excel.
Les six opérateurs logiques =, <>, >, <=, <, >= et les deux fonctions AND et OR renvoient TRUE ou FALSE.
La seule différence entre Excel et VBA c'est que VRAI en Excel vaut 1 alors que TRUE en VBA vaut -1, d'où Abs(diff) * 1 dans l'exemple.
21/12/2012, 14h43
Tiviia

Merci pour ce ptit cours :).
Depuis mon inscription à ce forum, j'apprends tous les jours un peu plus choses sur le VBA.:oops::oops:

J'en suis très heureuse! :)

Cdt
Tiviia
21/12/2012, 15h13
Didier Gonard

Bonjour,

Citation:

Envoyé par Tiviia

Je viens de remarquer que la fonction :

Code:

.Cells(r, 43) = DateDiff("m", .Cells(r, 10), .Cells(r, 34))

rajoute un mois à la différence.

En effet, c'est dû à sa façon d'opérer les calculs, qui n'est, il est vrai, pas trop détaillée dans l'aide VBA.

C'est dû au fait aussi que le mois n'est pas une unité de mesure temporelle comme le jour par exemple. Nul ne s'étonne d'avoir la même paye de base tous les mois, alors que le calcul devrait varier entre 28 et 31 jours, c'est dû à la loi de la mensualisation des salaires qui lisse le tout et fait une usine à gaz derrière avec les add-in ;)

Donc pour ce qui nous concerne, il faut se référer à ceci :

Citation:

Intervalles plus grands. Si Interval a la valeur DateInterval.Year, la valeur de retour est calculée exclusivement à partir des parties année de Date1 et Date2. De la même façon, la valeur de retour de DateInterval.Month est calculée exclusivement à partir des parties année et des parties mois des arguments et de celles de DateInterval.Quarter à partir des trimestres qui contiennent les deux dates.

Par exemple, en comparant le 31 décembre au 1er janvier de l'année suivante, DateDiff retourne 1 pour DateInterval.Year, DateInterval.Quarter ou DateInterval.Month, bien qu'un seul jour se soit écoulé.

In : http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx

donc cette fonction VBA n'est pas forcément le plus adapté à ta recherche.

~~Par contre si DateDif "Feuille" fait ce que tu veux, tu dois pouvoir passer par l'utilisation de l'objet WorksheetFunction, à tester ;)~~
Edit : non, pas compatible, cf Test de Philippe à suivre...

cordialement,

Didier
21/12/2012, 15h20
Philippe Tulliez

Bonjour Didier,

Citation:

Par contre si DateDif "Feuille" fait ce que tu veux, tu dois pouvoir passer par l'utilisation de l'objet WorksheetFunction, à tester

Mon premier réflexe avait été de proposer cette solution mais évidemment un beau message d'erreur vient perturber ce bel enthousiasme et de plus Excel a fermé l'application. La totale
21/12/2012, 15h49
Didier Gonard

Salut Philippe,

Ok, toutes les fonctions ne sont pas compatibles avec WorksheetFunction, c'est donc ici les cas, j'ai édité mon post en conséquence, j'avais mis d'ailleurs à tester, ce que j'ai fait suite à ton post, mais j'ai juste un message d'erreur :D ouf !

cordialement,

Didier