Format horaire et calcul d'heures

Victor21 à dit:

Re, Pilpoil.

Tout est fait par la macro (Merci à son auteur

VB:

  Private Sub Worksheet_Change(ByVal Target As Range)

    Dim HeurNum As String
    Dim HeurHeur As String
    Dim LongSaisie As Integer

    If Not Intersect(Target, Range("Heures")) Is Nothing Then
    'Si on saisit une formule, on sort
        If Target.HasFormula Then Exit Sub

    'Si on ne saisit rien, on sort (permet de supprimer les ":" en cas d'effacement)
        If Target = "" Then Exit Sub

    'Si on saisit du texte, on sort
        If IsNumeric(Target.Value) = False Then Exit Sub

        On Error Resume Next
        Application.EnableEvents = False

    'Initialisation des variables
        HeurNum = Target.Value
        LongSaisie = Len(HeurNum)

    'Test de la longueur de la chaîne saisi
        Select Case LongSaisie
            Case 1
                HeurNum = "000" & HeurNum
            Case 2
                HeurNum = "00" & HeurNum
            Case 3
                HeurNum = "0" & HeurNum
            Case 4
                HeurNum = HeurNum
        End Select
    'Initialisation de la variable retournée
        HeurHeur = Left(HeurNum, 2) & ":" & Right(HeurNum, 2)

    'Modification de la valeur saisie
        Target = HeurHeur
        Application.EnableEvents = True
        On Error GoTo 0
    Else
    End If

End Sub

Alt+F11 pour y accéder, mais vous n'aurez pas à pas à y toucher.
Seule la définition de la zone Heure sera à modifier si vous désirez étendre ou restreindre la possibilité de saisie des heures sous la forme hhmm.

Cliquez pour agrandir...

Victor21 à dit:

Bonjour, Pilpoil.

Alt+F11 ouvre l'éditer VBA.
A gauche une arborescence
Sélectionnez le nom du classeur, puis le nom de la feuille concernée par double clic, et copiez le code ci-dessus dans la partie droite.
Recommencez pour chaque feuille concernée.

Cliquez pour agrandir...