(Résolu) format automatique heure

Lone-wolf

XLDnaute Barbatruc

• 31 Mars 2018

• #2

Bonjour crown

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #3

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #4

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 31 Mars 2018

• #5

Re

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #6

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 31 Mars 2018

• #7

Bonsoir.
Essayez comme ça :

VB:

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

 

Dernière édition: 31 Mars 2018

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 31 Mars 2018

• #8

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #9

Dranreb à dit:

Bonsoir.
Essayez comme ça :

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 31 Mars 2018

• #10

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.

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 31 Mars 2018

• #11

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #12

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

 

Pièces jointes

• badgeages 2017.xlsm

  42.3 KB · Affichages: 19

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #13

Victor21 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 31 Mars 2018

• #14

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

 

Vote positif 0 Vote négatif

C

crown54

XLDnaute Junior

• 31 Mars 2018

• #15

Dranreb à dit:

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

Cliquez pour agrandir...

ben écoutez chez moi ça ne fonctionne pas

 

Vote positif 0 Vote négatif