(VBA) Transformer une heure en secondes

Bonjour! J'aimerais un petit coup de main pour terminer ces lignes de code. Je dois simplement récupérer une heure entrée dans la colonne "S", la transformer en secondes et la réinscrire dans la même cellule précédé de "-:" .
Sur internet je trouve des façons de le faire avec une formule ou des façons de transformer des secondes en heure, mais pas de façon de transformer une heure en secondes en VBA. Je vous remercie d'avance pour votre aide.

If Not Intersect(Target, Range("S21:S100000")) Is Nothing Then
 Target.Activate
 If IsDate(Cells(ActiveCell.Row, "S").Value) Then
    variable = Cells(ActiveCell.Row, "S").Value
    'transformer ici la variable en secondes
     Cells(ActiveCell.Row, "S").Value = "-:" & variable
 End If
End If

Bonjour,

Essayez ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim items As Variant
    Dim Heures As Long, Minutes As Long, Secondes As Long

    On Error GoTo Sortie 'en cas d'erreur, on bascule sur la "Sortie" pour réactiver les évènements détectés par excel
    Application.EnableEvents = False 'Désactive les évènements détectés par excel
    If Not Intersect(Target, Range("S21:S" & Range("S" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        If IsDate(Format(Target, "hh:mm:ss")) Then
            'isoler chaque élément séparé par ":"
            items = Split(Format(Target, "hh:mm:ss"), ":")
            If UBound(items) = 2 Then
                Heures = CInt(items(0))
                Minutes = CInt(items(1))
                Secondes = CInt(items(2))
                Target = "'-:" & Heures * 3600 + Minutes * 60 + Secondes 'Restitution sous la forme demandée
            End If
        End If
    End If
Sortie:
    Application.EnableEvents = True 'on réactive les évènements détectés par excel
End Sub

Cdlt

Bonjour à tous,

plus simplement, excel stocke les heures en fraction de jours. Par exemple 0.5 => 12:00

Tu as juste à multiplier :
Cells(ActiveCell.Row, "S").Value = "-:" & variable * 24 * 60 * 60
ou * 86400
eric