XL 2010 Insérer des heures rapidement (4 chiffres sans ":")

[tchi456]

Bonjour,

J'ai un tableur Excel avec des additions et des soustractions d'heures et j'aimerais que dans certaines cellules je puisse écrire des heures en 4 chiffres sans ":" entre les heures et les minutes.

Exemple: j'aimerai écrire 0730 et que ça me note 07:30:00 dans la cellule.

Avez-vous une astuce?

Meilleures salutations,

Thierry

 

[sylvanu]

Bonjour Tchi,
Mettez en format personnalisé : hhmm

 

[Modeste geedee]

Bonjour Tchi,
Mettez en format personnalisé : hhmm

Regarde la pièce jointe 1117634

?????

 

[job75]

Bonjour tchi456, sylvanu, Modeste geedee,

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille "Heures" :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Dim x$
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples
    If CStr(Target) Like "###" Or CStr(Target) Like "####" Then
        x = Format(Target, "0000")
        If Left(x, 2) < "24" And Right(x, 2) < "60" Then Target = Left(x, 2) & ":" & Right(x, 2)
    End If
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Les heures peuvent être entrées n'importe où sous la forme 815 pour 08:15 ou 2359 pour 23:59.

A+

 

[tchi456]

Bonjour à tous,

Je vous remercie pour votre aide.
Le code de job75 fonctionne parfaitement.
Celui-ci est aussi possible:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Not Intersect([C2:C225,H2:H225,J2:J225,L2:L225,N2:N225], Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
            If Target <> 0 Then
                If InStr(Target.Text, ":") = 0 Then
                    Temp = Format(Target, "0000")
                    Temp = Left(Temp, 2) & ":" & Right(Temp, 2) & ""
                        If IsDate(Temp) Then
                            Target = Temp
                        End If
                End If
            End If
        Application.EnableEvents = True
    End If
End Sub

Meilleures salutations et bon week-end!

Thierry

 

[Chris401]

Bonjour à tous
Tu peux simplifier les formules

=SI(C2<>"";(HEURE(C2)*60+MINUTE(C2))/60;"")

par

=SI(C2<>"";C2*24;"")

 

[tchi456]

Effectivement c'est plus simple.

Merci Chris

 

[Bernard_XLD]

Bonjour tchi456, sylvanu, modeste geedee, job75, chris401, le forum

J'avais fait un truc comme cela il y a très longtemps, l'avantage est que la saisie n'est transformée en horaire que si la cellule est au format horaire et que la saisie d'horaires négatifs est acceptée. La limite de 9999 heures en saisie saute aussi.

Bien cordialement, @+
https://www.excel-downloads.com/threads/yeahou-300e-demo-saisie-horaire.41983/post-245890

 

[tchi456]

Bonjour à tous,

Je vous remercie pour votre aide.
Le code de job75 fonctionne parfaitement.
Celui-ci est aussi possible:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Not Intersect([C2:C225,H2:H225,J2:J225,L2:L225,N2:N225], Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
            If Target <> 0 Then
                If InStr(Target.Text, ":") = 0 Then
                    Temp = Format(Target, "0000")
                    Temp = Left(Temp, 2) & ":" & Right(Temp, 2) & ""
                        If IsDate(Temp) Then
                            Target = Temp
                        End If
                End If
            End If
        Application.EnableEvents = True
    End If
End Sub

Meilleures salutations et bon week-end!

Thierry

Bonjour tchi456, sylvanu, Modeste geedee,

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille "Heures" :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Dim x$
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples
    If CStr(Target) Like "###" Or CStr(Target) Like "####" Then
        x = Format(Target, "0000")
        If Left(x, 2) < "24" And Right(x, 2) < "60" Then Target = Left(x, 2) & ":" & Right(x, 2)
    End If
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Les heures peuvent être entrées n'importe où sous la forme 815 pour 08:15 ou 2359 pour 23:59.

A+

Bonjour Job75,

Est-il possible d'adapter votre code qui fonctionne très bien pour pouvoir insérer également une date rapidement en 4, 5 ou 6 chiffres et que ça note cette date en 6 chiffres avec un points entre le jour.mois.année ?

Mes meilleures salutations,
Thierry

 

[tchi456]

Bonjour Job75,

Est-il possible d'adapter votre code qui fonctionne très bien pour pouvoir insérer également une date rapidement en 4, 5 ou 6 chiffres et que ça note cette date en 6 chiffres avec un points entre le jour.mois.année ?

Mes meilleures salutations,
Thierry

J'imaginais ceci mais ça me donne une date complètement différente:

Private Sub Worksheet_Change2(ByVal Target As Range)
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Dim x$
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples
    If CStr(Target) Like "######" Or CStr(Target) Like "#######" Or CStr(Target) Like "########" Then
        x = Format(Target, "00000000")
        If Left(x, 2) > "1" < "31" And Mid(x, 2) > "1" < "12" And Right > "2000" < "3000" Then Target = Left(x, 2) & "." & Mid(x, 2) & "." & Right(x, 4)
    End If
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

 

[job75]

Bonjour tchi456, le fil,

Ce n'est plus du tout le sujet de ce fil.

Comme le préconise la Charte du forum, créez une nouvelle discussion.

A+

 

[tchi456]

Bonjour tchi456, le fil,

Ce n'est plus du tout le sujet de ce fil.

Comme le préconise la Charte du forum, créez une nouvelle discussion.

A+

Bonjour Job,

C'est noté. Voici le lien ci-dessous :

XL 2010 - VBA - Insérer une date rapidement (6, 7 ou 8 chiffres sans ".")

Bonjour, Je recherche un code pour pouvoir insérer rapidement une date en 6, 7 ou 8 chiffres sans les "." dans les cellules de la colonne B uniquement. Exemple: 112022 -> 01.01.2022 J'imaginais adapter ce code qui fonctionne très bien pour insérer rapidement des heures mais ça ne...

www.excel-downloads.com

Bon week-end !