(Résolu) format automatique heure

[crown54]

Bonjour à tous,
je souhaiterais pouvoir faire du calcul horaire sur mes badgeages 2017. J'aimerais simplifier la saisie en évitant de taper les : systématiquement. Un format de cellule de ce style ##\:## fonctionne sauf que du coup je ne peux effectuer aucun calcul. Y a t-il un moyen macro ou format personnalisé qui permette ceci.
D'avance merci
Cordialement,

 

[Lone-wolf]

Bonjour crown

La c'est vraiment de la flemmardise, juste pour 1 caratère de plus.

 

[crown54]

peut être oui mais rentrer près de 2000 cellules. C'est plus pour simplifier la saisie que de la flemme

 

[crown54]

cela fonctionne mais me donne 00:00 avec une date inscrite quand format cellule est en heure.

 

[Lone-wolf]

Re

La macro n'était pas bonne. J'ai essaié d'autres façons, mais sans succès, désolé.

 

[crown54]

pas grave merci quand même. Bonne soirée

 

[Dranreb]

Bonsoir.
Essayez comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value < 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = TimeSerial(Target.Value \ 100, Target.Value Mod 100, 0)
Application.EnableEvents = True
End Sub

Edit: Bonsoir Victor21

 

[Victor21]

Bonsoir crown54, Lone-wolf.
Jouons un peu aves les fonctions texte :
1730 en A1
=STXT(A1;1;NBCAR(A1)-2)/24+DROITE(A1;2)/24/60 renvoie 0.729166666666667 au format standard et 17:30 au format hh:mm.
730 en A1
=STXT(A1;1;NBCAR(A1)-2)/24+DROITE(A1;2)/24/60 renvoie 0.3125 au format standard et 7:30 au format hh:mm.

Edit :Bonsoir Dranreb 🙂

 

[crown54]

Bonsoir.
Essayez comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value < 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = TimeSerial(Target.Value \ 100, Target.Value Mod 100, 0)
Application.EnableEvents = True
End Sub

Edit: Bonsoir Victor21

merci pour votre proposition Dranreb mais ça me renvoie la même chose

 

[Dranreb]

Alors je pense qu'il doit y avoir un format de texte sur la cellule qui empêche la saisie d'un nombre.
Ou alors la procédure n'est pas écrite dans le module de la feuille.

 

[Victor21]

Re,

Mais quelle est donc cette même chose que la proposition de Dranreb renvoie ?
(un fichier joint court, mais représentatif permettrait de vous aiguiller...)

 

[crown54]

Merci Lone-Wolf mais malheureusement ça ne marche toujours pas je vous joints le fichier

 

[crown54]

Re,

Mais quelle est donc cette même chose que la proposition de Dranreb renvoie ?
(un fichier joint court, mais représentatif permettrait de vous aiguiller...)

en fait quand je rentre les 4 chiffres par exemple 1730, la cellule affiche 00:00 et quand on clique dessus dans la barre supérieure s'affiche une date alors que ma cellule est en format hh:mm

 

[Dranreb]

Mise dans le module Feuil1 (Feuil1), ma procédure fonctionne.

 

[crown54]

Mise dans le module Feuil1 (Feuil1), ma procédure fonctionne.

ben écoutez chez moi ça ne fonctionne pas