Discussion :

[Yvanou]

Bonjour,

Je souhaiterais créer un format de nombre qui me convertisse automatiquement des valeurs numériques en heures.

Ex: je rentre 17,5 et Excel m'affiche 17h30

J'ai essayé de tripoter les formules de mises en forme mais je ne parviens pas à mes fins (les formules du type hh:mm n'indiquent que l'heure mais ne font pas de conversion).

Quelqu'un aurait une idée ?

Merci d'avance,

[Didier Gonard]

Bonjour,

voir :
Comprendre et gérer les dates sous Excel

Sur un cellule, je ne vois pas trop, par contre avec 2 colonnes :

cf image jointe sur 2 approches avec résultats différents.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Didier Gonard]

bonjour,

pour avoir précisément : 17h30, dans le format personnalisé tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hh"h"mm

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hh:mm

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Daniel.C]

Bonjour,

Ormonth, ça ne fonctionne pas ici, j'obtiens : 12:00 avec 17.5 et le format hh"h"mm.

[Didier Gonard]

Bonjour,

Ormonth, ça ne fonctionne pas ici, j'obtiens : 12:00 avec 17.5 et le format hh"h"mm.

????

[Daniel.C]

On est d'accord en divisant la valeur par 24.

[Daniel.C]

Pour Yvanou, un exemple de code à mettre dans le module de la feuille pour la plage F1:F10 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect(Target, [F1:F10]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each c In Intersect(Target, [F1:F10])
        c.Value = c.Value / 24
        c.NumberFormat = "hh:mm"
 
    Next c
    Application.EnableEvents = True
End Sub

[Didier Gonard]

On est d'accord en divisant la valeur par 24.

Bonjour Daniel,

Il serait bon avant de reprendre un post, de lire l’historique du fil !!!

Mon message en #3 suivait, et oui, mon message en #2 ou la division par 24 est clairement montrée dans l'image jointe qui sert d'explicitation...

Simplement à ce niveau, par défaut j'avais donné un format basique hh:mm.

Yvanou ayant noté 17h30 voulu, je lui ai rajouté le complément si besoin, en solution feuille vu qu'il a posté sur le forum Excel pur.

[Daniel.C]

Au temps pour moi, mais je ne suis pas trop "bandes dessinées"

[Didier Gonard]

Au temps pour moi, mais je ne suis pas trop "bandes dessinées"

pas de problème

pour les images, lire ceci en #1

[Nouveautés] Pièces jointes : libération des quotas

Ce sera une nouvelle habitude, mais je pense très riche car si les fichiers joints sont problématiques à juste raison sur plusieurs points, un ScreenShot bien construit peut apporter énormément sans verbiage :

"Un bon croquis vaut mieux qu'un long discours. "

selon Napoléon 1er qui Excellait dans le domaine.


Sinon, pour obtenir le même formatage via le VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.NumberFormat = "hh""h""mm"

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Daniel.C]

Hip hip hip !!!