La fonction Weekday permet de réaliser une macro renvoie le jour de la semaine sous forme de nombre entier.
La fonction Weekday
La fonction VBA Weekday suit la syntaxe suivante :
Weekday(date, premier_jour)
où :
premier_jour correspond au premier jour de la semaine et peut prendre l'une des valeurs suivantes :
- vbSunday : la semaine commence dimanche
- vbMonday : la semaine commence lundi
- vbTuesday : la semaine commence mardi
- vbWednesday : la semaine commence mercredi
- vbThursday : la semaine commence jeudi
- vbFriday : la semaine commence vendredi
- vbSaturday : la semaine commence samedi
Exemple de macro avec Weekday
La macro
Sub macro()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Plage
ActiveCell.Offset(0, 0).FormulaR1C1 = _
Weekday(c)ActiveCell.Offset(1, 0).Select
Next c
End Sub
Les données sources
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 01/02/2019 09:09 | ||||
2 | 29/04/2019 09:01 | ||||
3 | 25/07/2019 13:04 | ||||
4 | 20/10/2019 21:18 | ||||
5 | 16/01/2020 09:44 |
Le résultat
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 01/02/2019 09:09 | 6 | |||
2 | 29/04/2019 09:01 | 2 | |||
3 | 25/07/2019 13:04 | 5 | |||
4 | 20/10/2019 21:18 | 1 | |||
5 | 16/01/2020 09:44 | 5 |