Catégories
Macro VBA Date Macros VBA

VBA TimeSerial() : créer une heure à partir de 3 valeurs

Partager :

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 5

ActiveCell.Offset(0, 0).FormulaR1C1 = _
TimeSerial(Cells(i, col_heure), Cells(i, col_minute), Cells(i, col_seconde))

ActiveCell.Offset(1, 0).Select
Next i

End Sub

Les données sources

ABCDE
1212
241020
372550
4102040
511632

Le résultat

ABCDE
121202:01:02
24102004:10:20
37255007:25:50
410204010:20:40
51163201:16:32