Conversion heures négatives en centièmes

[mfb]

Bonjour le Forum,
Malgrés les recherches éffectuées dans cette "encyclopédie" je n' ai pas trouvé de tuyau (x) pouvant m' orienter sur le sujet évoqué en intitulé.
Le but est de convertir un tableau récapitulatif exprimé en heures en 100 ème d' heure et vice versa.
le fichier joint marche jusqu' à la rencontre d' un temps négatif (H15).
Alors ???
Tout en espérant que ce sujet n'est pas déjà été évoqué.
A+
Daniel

 

[Guest]

Re : Conversion heures négatives en centièmes

Bonsoir mfb, le forum,

Tout en espérant que ce sujet n'est pas déjà été évoqué.

En bas de cette page dans "Discussions similaires"!!!

A+

 

[mercant76]

Re : Conversion heures négatives en centièmes

bonjour,

à priori, regardes ta macro, car pour moi, tu ne convertis pas en centième d'heure.

tu multiplies le contenu de ta cellule par 24, celà n'a jamais fait des centièmes.

pour les nombres négatifs, si tu prends l' ABS(nombre), tu élimines le facteur -.

 

[mfb]

Re : Conversion heures négatives en centièmes

Re,
Merci d' avoir répondu si vite,
Pour Hasco : Je picore dans les discussions similaires sans trop de succès pour l' instant. Pas grave je poursuis.
Pour Mercant : les données initiales sont en hh et mm * par 24 cela donne bien des 100 ème d' heure. Dans H4 par exemple 00:15 en hh,mm donne bien 0,25 en 100ème d'heure.
Quant au "frein" ABS comment oter le - avec la macro ?
A+
Daniel

 

[Guest]

Re : Conversion heures négatives en centièmes

Re Daniel,

voici une solution:

Sub Bouton5_QuandClic()
    Dim x As Integer
    Dim y As Integer
    Dim Valeur
    For x = 10 To 16
        For y = 4 To 11
            If Cells(x, y) <> "" Then
                If Left(Cells(x, y), 1) = "-" Then
                    Valeur = TimeValue(Right(Cells(x, y), 5) & ":00") * -24
                Else
                    Valeur = Cells(x, y) * 24
                End If
                Cells(x, y) = Format(Valeur, "0.00")
            End If
        Next y
    Next x
End Sub
Sub Bouton6_QuandClic()
Dim x As Integer
Dim y As Integer
Dim Tps
For x = 10 To 16
 
   For y = 4 To 16
   If Cells(x, y) <> "" Then
        If Cells(x, y) < 0 Then
            Tps = Format(Abs(Cells(x, y)) / 24, "hh:mm")
            Cells(x, y) = "-" & Tps
        Else
            Tps = Cells(x, y) / 24
            Cells(x, y) = Format(Tps, "hh:mm")
        End If
   End If
   Next y
 
Next x
End Sub

A+

 

[mfb]

Re : Conversion heures négatives en centièmes

Re Hasco,
C' est SUPER ça marche nickel.
Il me reste à décortiquer tes macros pour prendre ... un peu de graine.
Ce qui fait que je serai un peu moins bête qu' hier ... mais que je peux revenir demain !!!
Alors MERCI à Tous et à toi en particulier Hasco.
Bonne soirée et bon dimanche.
A+
Daniel