Formater une plage en horaire
Résolu
vieuxray
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Formater une plage en horaire
- Formater clé usb - Guide
- Formater son pc - Guide
- Formater un pc bloqué par administrateur - Guide
- Horaire 2x7 - Forum Réseaux sociaux
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Graphisme
4 réponses
Bonjour Ray,
Dans le module de la feuille, essaies :
Dans le module de la feuille, essaies :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [F2:F16]) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
Target.Value = (Int(Target.Value / 100) / 24) + _
((Target.Value Mod 100) / (24 * 60))
Application.EnableEvents = True
Target.NumberFormatLocal = "hh""h""mm;@"
End Sub
Bonjour Ray
Je me suis encore fais piéger par une bizarrerie d'Excel !!!
J'avais oublié que la fonction IsNumeric() considère qu'une cellule vide contient un zéro !
Voici le code modifié :
Je me suis encore fais piéger par une bizarrerie d'Excel !!!
J'avais oublié que la fonction IsNumeric() considère qu'une cellule vide contient un zéro !
Voici le code modifié :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [F2:F16]) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Target.Formula = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = (Int(Target.Value / 100) / 24) + _
((Target.Value Mod 100) / (24 * 60))
Application.EnableEvents = True
Target.NumberFormatLocal = "h""h""mm;@"
End Sub
Salut Patrice33740,
Tout d'abord merci de t'etre interresser a mon post, et merci pour le code.
j'ai essayer ca fonctionne bien, mais quand je tape 0155 il m'écrit bien 1h55 ça OK
mais en supposant que je me sois tromper alors j'efface la cellule et ca me laisse des zéros ecrit comme suit 0h00
quand j'efface je souhaiterai svp effacer toute la cellule et entrer une nouvelle valeur
Encore merci pour ton aide
Cordialement Ray
Tout d'abord merci de t'etre interresser a mon post, et merci pour le code.
j'ai essayer ca fonctionne bien, mais quand je tape 0155 il m'écrit bien 1h55 ça OK
mais en supposant que je me sois tromper alors j'efface la cellule et ca me laisse des zéros ecrit comme suit 0h00
quand j'efface je souhaiterai svp effacer toute la cellule et entrer une nouvelle valeur
Encore merci pour ton aide
Cordialement Ray
Salut Patrice33740,
Merci bien pour ta réponse et pour la modification.
ça fonctionne bien comme souhaiter et je te remercie
beaucoup pour ton aide que j'ai beaucoup apprécier.
Je clos donc le sujet avec encore pleins de merci, bonnnes
vacances si tu part et a bientot sans doute.
Bye, Bien cordialement Raymond
Merci bien pour ta réponse et pour la modification.
ça fonctionne bien comme souhaiter et je te remercie
beaucoup pour ton aide que j'ai beaucoup apprécier.
Je clos donc le sujet avec encore pleins de merci, bonnnes
vacances si tu part et a bientot sans doute.
Bye, Bien cordialement Raymond
pour supprimer le 0 de 0144, il faut remplacer :
.
par
.