nombre décimal au format heure

sonskriverez

XLDnaute Occasionnel
Bonjour le forum,

Dans une cellule, je saisie 16,35 et je voudrais avoir dans la même cellule 16h35.

Merci de votre aide
 

Dranreb

XLDnaute Barbatruc
Bonjour.
En éduquant (impérativement) vos utilisateurs pour qu'ils tapent une virgule s'ils désirent entrer des heures décimale et deux points pour heures minutes (c'est pas plus fatigant de taper ':' que ','), dans le module de la feuille :
VB:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'if … then … Exit Sub 'les test habituels pour vérifier si on est dans la plage concernée
If Target.Value > 1 Then
   Application.EnableEvents = False
   Target.Value = Target.Value / 24
   Application.EnableEvents = True: End If
Target.NumberFormat = "hh\hmm"
End Sub
 

Modeste geedee

XLDnaute Barbatruc
bonsour®
Ben oui ça marche mais dans la cellule à côté. Mois c'est dans la même... Durement une histoire de mise en forme, mais je sais pas faire
sans réponse à ma question précédente ....
:mad: :D :eek: o_O à mettre dans module de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Application.Substitute(Target.Text, ",", "h")
End Sub
il faudra peut-être limiter la plage concernée...:p
 
Dernière édition:

piga25

XLDnaute Barbatruc
Bonjour,
avec la correction automatique cela est possible mais il faut taper 16..36 tout sur la pavé numérique.
Aller dans correction automatique, ajouter ceci " ,," changer par ":" le tout sans les guillemets.
Puis dans format personnalisé mettre hh"h"mm
comme ceci le résultat est toujours en format horaire.
 

Discussions similaires

Statistiques des forums

Discussions
312 103
Messages
2 085 314
Membres
102 860
dernier inscrit
fredo67