Arrondi d'heure

[isa44]

Bonjour , j'ai un fichier de conversion d'heures en centièmes d'heures.

Seulement lorsque je repasse en heures l'arrondi au suppérieur ne se fait pas.

Je joint le fichier en question.
Merci pour votre aide

 

[Roland_M]

Re : Arrondi d'heure

bonjour

voir ici :
Cells(x, y) = Format(Valeur, "0.00")

essais comme ceci en faisant les deux calculs et tu comprendras !
Cells(x, y) = Valeur
perte au calcul des centièmes et tu ne retrouves plus tes valeurs dans le sens retour

il faut revoir ton format !

 

[job75]

Re : Arrondi d'heure

Bonjour isa44, Roland,

Perso j'aurais fait ça, beaucoup plus simple :

Sub Bouton5_QuandClic() 'heure en centième
Dim cel As Range
For Each cel In Range("D10:H13")
 [COLOR="Red"] If cel.Text Like "*:*" Then[/COLOR]
    cel = cel * 24
  End If
Next
Range("D10:H14").NumberFormat = "0.00"
End Sub

Sub Bouton6_QuandClic() 'centième en heure
Dim cel As Range
For Each cel In Range("D10:H13")
  If IsNumeric(cel.Text) Then
    cel = cel / 24
  End If
Next
Range("D10:H14").NumberFormat = "hh:mm"
End Sub

Mais il serait plus simple aussi de n'utiliser qu'un seul bouton dont le libellé s'inverse à chaque clic 🙂

A+

 

[Roland_M]

Re : Arrondi d'heure

re

salut à toi Job75 !
tout à fait et ça marche très bien !
je lui ai rectifié son classeur avec tes codes ci-dessus !

EDIT: avec modif faites par Job75 !

 

[job75]

Re : Arrondi d'heure

Re,

J'ai édité mon post précédent avec le code en rouge, c'est mieux.

A+

 

[pierrejean]

Re : Arrondi d'heure

bonjour isa44

Vois si cela te convient
L'astuce consiste en fait a ne jamais changer la valeur des cellules mais uniquement le format d'affichage
Avec en prime l'utilisation toujours possible pour des calculs

Arf : tres en retard sur ce coup !

 

[job75]

Re : Arrondi d'heure

Re, salut pierrejean 🙂

Voici ce que peut donner le fichier avec un seul bouton.

La macro :

Sub Convertir() 'heure en centième
Dim cel As Range
Application.ScreenUpdating = False
With ActiveSheet.DrawingObjects(Application.Caller)
  .Text = "Tableau en " & IIf(InStr(.Text, "centième"), "", "centième d'") & "heures"
  Range("D7") = "En " & IIf(InStr(.Text, "centième"), "", "centième d'") & "heures"
  For Each cel In Range("D10:H13")
    If cel.Text Like "*:*" Then
      cel = cel * 24
    ElseIf IsNumeric(cel.Text) Then
      cel = cel / 24
    End If
  Next
  Range("D10:H14").NumberFormat = IIf(InStr(.Text, "centième"), "hh:mm", "0.00")
End With
End Sub

A+

 

[pierrejean]

Re : Arrondi d'heure

Re

Pour le fun avec un seul bouton
(Mais moins brillant que celui de Job 🙂 🙂)

Sub centiemes()
Set plage = Range("D10:H14")
ActiveSheet.Shapes("Button 5").Select
If Selection.Characters.Text = "Centiemes" Then
  plage.NumberFormat = "hh:mm"
  Selection.Characters.Text = "Heures"
Else
For Each cel In plage
x = Int(cel.Value * 2400) / 100
cel.NumberFormat = CStr(Int(x)) & "\," & CStr(Int((x - Int(x)) * 100))
Next cel
 Selection.Characters.Text = "Centiemes"
End If
Range("D9").Select
End Sub

 

[isa44]

Re : Arrondi d'heure

Merci a vous tous pour votre EXCELant travail.
J' ai opté pour le fichier de Job 75

 

[isa44]

Re : Arrondi d'heure

Je reviens vers vous car j'ai des petits soucis avec les boutons de macros et l'affichage des heures négatives.
Je joint le fichier

 

[job75]

Re : Arrondi d'heure

Bonjour,

Pour afficher les heures négatives, cocher l'option "Calendrier depuis 1904".

A+

 

[job75]

Re : Arrondi d'heure

Re,

Et attention à vos formules en ligne 15 : elles soustraient des choux et des carottes quand les unités utilisées sont différentes...

A+

 

[job75]

Re : Arrondi d'heure

Re,

Et attention à vos formules en ligne 15 : elles soustraient des choux et des carottes quand les unités utilisées sont différentes...

Pour éviter ça, entrer en D15 la formule :

=D14-SI($D7="En heures";D26;D26*24)

ou mieux (plus léger) :

=D14-D26*24^($D7<>"En heures")

A tirer sur la droite.

Par ailleurs, il faut que la ligne 15 soit aussi formatée, donc ce code :

Range("D10:H[COLOR="Red"]15[/COLOR]").NumberFormat = IIf(InStr(.Text, "centième"), "hh:mm", "0.00")

A+

 

[job75]

Re : Arrondi d'heure

Re,

Ah oui l'histoire du bouton, vous n'avez pas dû beaucoup chercher 😉

ActiveSheet.DrawingObjects("Bouton 5").Text = "Tableau en centième d'heures"

A+

 

[job75]

Re : Arrondi d'heure

Re,

Zut je m'étais trompé de sens dans les formules en D15 😡 j'ai édité le post #13.

A+