La fonction DateAdd() permet de réaliser une macro pour ajouter un intervalle de temps à une date.
La fonction DateAdd
La fonction VBA DateAdd suit la syntaxe suivante :
DateAdd(intervalle,nombre,date)
où :
- intervalle correspond à la période à ajouter et peut prendre l'une des valeurs suivantes :
- yyyy : Année
- q : Trimestre
- m : Mois
- y : Jour de l’année
- d : Jour
- ww : Semaine
- h : Heure
- n : Minute
- nombre est un entier positif / négatif qui correspond au nombre de l'intervalle de temps à ajouter
Exemple de macro avec la fonction DateAdd
La macro
Sub nommacro()
Dim c As Range 'Variables
For Each c In Range("A1:A5") 'Colonne
ActiveCell.Offset(0, 0).FormulaR1C1 = _
DateAdd("ww", 2, c)ActiveCell.Offset(1, 0).Select
Next c
End Sub
Les données sources
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 01/02/2018 | ||||
| 2 | 01/03/2018 | ||||
| 3 | 01/04/2018 | ||||
| 4 | 01/05/2018 | ||||
| 5 | 01/06/2018 |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 01/02/2018 | 15/02/2018 | |||
| 2 | 01/03/2018 | 15/03/2018 | |||
| 3 | 01/04/2018 | 15/04/2018 | |||
| 4 | 01/05/2018 | 15/05/2018 | |||
| 5 | 01/06/2018 | 15/06/2018 |