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

tchi456 · 7 Octobre 2021

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

job75 · 7 Octobre 2021

Bonjour tchi456, sylvanu, Modeste geedee,

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

VB:

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...

sylvanu · 7 Octobre 2021

Bonjour Tchi,
Mettez en format personnalisé : hhmm

Modeste geedee · 7 Octobre 2021

sylvanu à dit:
Bonjour Tchi,
Mettez en format personnalisé : hhmm

Regarde la pièce jointe 1117634

?????

job75 · 7 Octobre 2021

Bonjour tchi456, sylvanu, Modeste geedee,

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

VB:

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 · 8 Octobre 2021

Bonjour à tous,

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

VB:

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 · 8 Octobre 2021

Bonjour à tous
Tu peux simplifier les formules

Code:

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

par

Code:

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

tchi456 · 8 Octobre 2021

Effectivement c'est plus simple.

Merci Chris

Bernard_XLD · 8 Octobre 2021

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 · 21 Janvier 2022

tchi456 à dit:

Bonjour à tous,

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

VB:

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

job75 à dit:
Bonjour tchi456, sylvanu, Modeste geedee,

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

VB:

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 · 21 Janvier 2022

tchi456 à dit:
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:

VB:

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 · 21 Janvier 2022

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 · 21 Janvier 2022

job75 à dit:
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 !

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

tchi456

XLDnaute Occasionnel

Pièces jointes

job75

sylvanu

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

Chris401

XLDnaute Accro

tchi456

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

tchi456

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

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

Discussions similaires