Discussion :

[Oliv'83]

Bonjour à tous,

Je souhaiterais créer un format personaliser qui transformerait 8.5 en 8h30.

J'arrive à le transformer en 8h1/2 via #"h"?/? mais quand j'essaye avec mm ou [mm] Excel n'aime pas du tout mes formulations.

J'ai lu le tuto de Jeannot45 http://jeannot45.developpez.com/arti...personnalises/ mais je n'y arrive pas plus.

Si quelqu'un peut me donner un coup de main ce serait sympa.

Merci d'avance et bonne soirée

Oliv'

[Invité]

Bonjour

Attention, ce n'est pas un formatage qu'il te faut, mais une conversion.

Un formatage est un aspect différent des chiffres, mais qui ont toujours la même valeur. Là tu demandes de transformer des heures décimales en heures minutes secondes.

A mon avis il va falloir passer par une routine qui va agir sur le changement de valeur dans une cellule.

Philippe

[cocosteph]

Bonjour,

En effet si tu saisis 8.5 ou 8,5 selon tes options
cela sera interpreté comme 8 jours et demi
il faut donc une conversion et non un format
pour cela tu devra dans ta feuille d'abord

Définir un nom plageheures correspondant aux cellules où la conversion devra etre prévue sur saisie ou collage de l'utilisateur

puis dans le CodeModule de la feuille mettre cette routine evennementielle:

''''''''''''''''

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim iSect As Range, c As Range
 
Set iSect = Intersect([plageheures], Target)
 
    If Not iSect Is Nothing Then
 
    Application.EnableEvents = False
 
        For Each c In iSect.Cells
        c.FormulaLocal = c.Value / 24
        Next
 
        [plageheures].NumberFormat = "[h]""h""mm"
 
    Application.EnableEvents = True
 
    End If
 
End Sub

'''''''''''''''''''''''''''''

'Commentaire de code


'cette routine intervient en cas de modification
'dans la feuillesur la cible nommée target

'on définit deux variable range
'une pour la plage concernée l'autre
'pour la ou les cellules à traiter

'la plage est délimtée à l'itersection entre la cible
' et la plage de feuille nommée plageheures

'on intervient s'il résulte une intersection

'la routine modifie donc
'on désactive les évennements
'sinon on sombrerait dans une bouccle infernale

'la boucle sert juste pour
'si utilisateur colle plusieurs valeurs

'on divise la valeur entrée par 24
'puisque 1 est unjour ca ramene en h

'on remet le format si collage différent

'on rétablit les évennements

'Cordialement

'LSteph

[Didier Gonard]

Bonjour,

vois ce tuto :

III-F. Gymnastique sur la gestion des Calculs Horaires et Mise en application

cordialement,

Didier