Discussion :

[Tiviia]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Invité]

Bonjour

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

[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

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

[Tiviia]

voila mon nouveau code qui ne fonctionne pas

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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