format heure forcé dans une céllule

[Guigui]

Bien le bonjour à tous,

Voici mon souci

Dans un tableau, je dois saisir des heures.. beaucoup d'heures ...

je voudrais donc éviter d'avoir à taper les ":" et saisir directement (par ex: 1212) et pouf ! magie .. 12:12 apparait ...

en Vba (dans un textbox), j'avais déja fais un pti code qui une fois taper 4 carateres, j'isolais les 2 à gauche et les 2 à droite et je mettais un ":" au millieu ... mais comment faire pour avoir le meme résultat dans une cellule, directement lors de la saisie ...

merci d'avance pour votre aide .
Slts
Guillaume

 

[Cousinhub]

Re : format heure forcé dans une céllule

Bonsoir,
dans l'évènement de feuille, tu peux essayer ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) = 4 And IsNumeric(Target) Then _
    Target = Left(Target, 2) & ":" & Right(Target, 2) & ":00"
End Sub

A adapter si tu ne veux que sur une ou des colonnes particulières

 

[Guigui]

Re : format heure forcé dans une céllule

Re,

Yeah génial !
merci bcp

par contre ca ne marche pas en cas d'heure comme ceci : 0615 (06:15) on dirais qu'il ne prend pas le "0". Une idée ?

merci encore
Slts
Guillaume

 

[Cousinhub]

Re : format heure forcé dans une céllule

re-,
remplace par :

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) = 4 Or Len(Target) = 3 And IsNumeric(Target) Then _
    Target = Left(Target, Len(Target) - 2) & ":" & Right(Target, 2) & ":00"
End Sub

 

[Guigui]

Re : format heure forcé dans une céllule

OK nikel merci bien !
slts
Guillaume