Bonjour,
Je cherchais le moyen de rentrer des heures en tapant par exemple pour 10:00 je tape 1000, au debut je voulais un "h" au lieu des ":" mais ça marchais pô
j'ai trouvé une macro qui fonctionne à peu près mais lorsque j'efface les heures entrées, le ":" restent et impossible de les supprimer.
le problème vient surement de la macro mais d'où ?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set Var = Application.Intersect(Target, Range("F5:G51"))
If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
If Not Var Is Nothing And IsNumeric(Target.Value) Then
Target.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Format(Target, "0000"), 2)
End If
End If
Application.EnableEvents = True
End Sub
je vous mets un fichier de test, regardez la première semaine.
Merci