Format heure personnalisé
K
Bonjour,
Bon ça doit être un problème très simpliste que je dois avoir mais ça me rend fou de ne pas trouver comment faire
Voila mon code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E200")) Is Nothing Then ActiveCell.Value = Now()
Selection.NumberFormat = "hh:mm"
End Sub
Donc ce que je voudrais c'est qu'au lieu que les heures s'affichent en mode "20:00" elles s'affichent comme cela "20H00" mais j'ai beau faire toute les modifications je n'arrive pas à les faire changer de format donc j'ai laissé en mode "hh:mm".
Si une âme charitable veut bien m'accorder son aide ça m'aiderait beaucoup
Bonjour,
À tester si ça convient ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E200")) Is Nothing Then Target.Value = Format(Now(), "hh:mm")
End SubGelinotte
K
Ouf ça marche impec' merci bien !!!