La fonction TimeSerial permet de réaliser une macro pour créer une valeur à partir de 3 valeurs dans Excel.
La variable TimeSerial
La fonction VBA TimeSerial suit la syntaxe suivante :
TimeSerial (heure, minute, seconde)
La variable TimeSerial en exemples
La macro
Sub macro3()
Dim col_heure, col_minute, col_seconde 'Variables
Dim i As Integer
col_heure = 1 'colonne A contenant le jour
col_minute = 2 'colonne B contenant le mois
col_seconde = 3 'colonne C contenant l'année
For i = 1 To 5ActiveCell.Offset(0, 0).FormulaR1C1 = _
TimeSerial(Cells(i, col_heure), Cells(i, col_minute), Cells(i, col_seconde))ActiveCell.Offset(1, 0).Select
Next iEnd Sub
Les données sources
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 2 | 1 | 2 | ||
2 | 4 | 10 | 20 | ||
3 | 7 | 25 | 50 | ||
4 | 10 | 20 | 40 | ||
5 | 1 | 16 | 32 |
Le résultat
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 2 | 1 | 2 | 02:01:02 | |
2 | 4 | 10 | 20 | 04:10:20 | |
3 | 7 | 25 | 50 | 07:25:50 | |
4 | 10 | 20 | 40 | 10:20:40 | |
5 | 1 | 16 | 32 | 01:16:32 |