La fonction TimeValue permet de réaliser une macro pour convertir une heure au format texte en valeur.
La fonction TimeValue
La fonction VBA TimeValue suit la syntaxe suivante :
TimeValue (heure)
Exemple de macro avec TimeValue
La macro
Sub macro()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Colonne
ActiveCell.Offset(0, 0).FormulaR1C1 = _
TimeValue(c)ActiveCell.Offset(1, 0).Select
Next c
End Sub
Les données
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 12:10:22 | ||||
| 2 | 13:15:23 | ||||
| 3 | 08:12:24 | ||||
| 4 | 22:10:34 | ||||
| 5 | 04:10:27 |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 12:10:22 | 0,552349537037037 | |||
| 2 | 13:15:23 | 0,552349537037037 | |||
| 3 | 08:12:24 | 0,341944444444444 | |||
| 4 | 22:10:34 | 0,92400462962963 | |||
| 5 | 04:10:27 | 0,173923611111111 |