Comment puis-je ajouter une durée fixe à toutes les chaînes "hh:mm" d'un document ?

Je doute que ce soit la meilleure façon de procéder, mais voici une solution. Elle n'est évidemment pas très aboutie, car je ne sais pas comment vous mettrez votre incrément de temps ou si les données ne sont qu'un paragraphe dans une seule cellule, mais elle devrait vous permettre de faire une bonne partie du chemin.

Il divise la valeur de la cellule active en un tableau à la recherche de "[", puis il ajuste les 2 premiers caractères en fonction du pas de l'heure et les caractères 4 et 5 en fonction du pas de la minute, puis il remet le tout en ordre.

De plus, cela fonctionne sur la cellule active, ce qui n'est pas une très bonne pratique de codage.

Sub update_times()

    Dim sParts() As String
    Dim input_text As String
    Dim output_text As String
    Dim split_on As String
    Dim hours_add As Integer
    Dim minutes_add As Integer
    Dim hours_final As Integer
    Dim minutes_final As Integer

    split_on = "["
    hours_add = 9
    minutes_add = 30
    input_text = ActiveCell.Value

    sParts = Split(input_text, split_on)
    output_text = sParts(0)

    For i = 1 To UBound(sParts)
        hours_final = Left(sParts(i), 2) + hours_add
        minutes_final = Mid(sParts(i), 4, 2) + minutes_add
        'checks to wrap data
        If minutes_final > 59 Then
            hours_final = hours_final + 1
            minutes_final = minutes_final - 60
        End If
        If hours_final > 23 Then
            hours_final = hours_final - 24
        End If
        'put the part back together with the new hour and minutes
        sParts(i) = "[" & Format(hours_final, "00") & ":" & Format(minutes_final, "00") & Right(sParts(i), Len(sParts(i)) - 5)
        'add the part to the final string
        output_text = output_text & sParts(i)
    Next
    ActiveCell.Value = output_text

End Sub