Convertir des secondes en heures, minutes et secondes Fermé

Question

Bonjour, 

Peut t'on le faire avec une seule colonne ? C'est a dire que je met un chiffre comme 4545 et il se converti dans le même carreau à 01:15:45

J'aimerai que la colonne entière B5 ai cette commande.
Présentement j'ai un bon résultat en utilisant deux colonnes, celle de gauche dans laquelle je met le nombre en secondes et celle de droite dans laquelle je convertis le nombres de secondes en divisant par 86400, mais j'aimerai ne pas avoir a utiliser deux colonnes. Et le problème aussi en utilisant deux colonnes c'est que si je n'ai pas de chiffre dans la colonne de gauche, il apparaît quand même des 00:00:00 dans la colonne de droite, j'aimerai que s'il n'y a pas de nombres rien n'apparaisse.

 P.S. A chaque rangées le nombres de secondes va varier, c'est une banque de données qui enregistre les temps d'arrêts d'une machine.

 Est-ce possible et si oui, quel serai le code de la macro?

 Merci de votre aide

 papoux123


Configuration: Windows 7 / Mozilla 11.0

via55 · Accepted Answer

Bonsoir

A mettre dans le worksheet de la feuille concernée :

Public w As Integer

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Or w = 1 Then w = 0: Exit Sub
x = Target.Row
y = Target.Column
w = 1
hh = Target.Value / 86400
Cells(x, y).Value = hh
End Sub

Cdlmnt
 
"L'imagination est plus importante que le savoir."    A. Einstein

Papoux123 · Answer

Merci et que fait cette macro finalement ?

papoux123

Papoux123 · Answer

merci pour l'info c'est très apprécié.
Je ne me souviens plus comment aller mettre le code dans worksheet, quelqu'un pourrais m'éclairer?

Papoux123

Papoux123 · Answer

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Or w = 1 Then w = 0: Exit Sub 
x = Target.Row 
y = Target.Column 
w = 1 
hh = Target.Value / 86400 
Cells(x, y).Value = hh 
End Sub

La colonne B correspond a quoi dans le code car je voudrais changer de colonne ?

Papoux123

Papoux123 · Answer

L'image n'est pas très clair et pourtant elle est de bonne dimension.

Voila ce que ça donnes, Est-ce bien dans ThisWorkBook que je dois le mettre et quand on a copié, on a juste a sauvegarder ? Il y à une autre macro dans module 1. 
Doit t'on créer Module 2 ? 

Excuse moi pour mon ignorance, j'essai d'apprendre. 

Merci de m'aider 

papoux123

Papoux123 · Answer

Ça fonctionne mais sur un fichier exel qui n'est pas lié a une base de données. SI je l'utilise dans ma base de donnée, ça ne fonctionne pas. Donc je dois fonctionner sur deux colonnes, la première j'entre mes chiffres venant de ma base de donnée et la seconde ou je fais le calcul en me servant de la colonne de gauche. Ça ca fonctionne sauf que ce que je n'aimes pas c'est que dans ma colonne de droite, j'ai dans toute la colonne des 00:00:00 qui apparaissent même si je n'ai aucune valeur dans la colonne de gauche. Peut t'on effacer les cases qui n'ont pas de comparaison a faire. Estt'il possible si j'ai 00:00:00 de demander que la case soit vide et que la valeur apparaissent seulement si j'ai une valeur de mise dans la colonne de gauche ?

Je sais pas si c'est bien expliqué.

Papoux

Papoux123 · Answer

Ok je ne procèdes pas comme l'autre finalement.

Papoux123

Papoux123 · Answer

Tous cela fonctionne mais pas dans mon fichier qui fonctionne avec ma banque de données. La première ligne de mon fichier contient les titres correspondant a mes champs.

Il ne semble pas avoir de solution a mon problème on dirais.

papoux123

Papoux123 · Answer

Est-ce qu'il est possible que ça soit la version d'exel. J'utilise Exel 2010 sur un poste de travail et ça fonctionne mais sur un autre poste avec 2007 ca marche pas.

papoux123

Papoux123 · Answer

Les deux méthodes ne fonctionnent pas avec la banque de données car je l'aurais pris sans problème la deuxième.

papoux123

Papoux123 · Answer

C'est déjà bien gentil de ta part d'avoir investi du temps pour moi. Je t'en remerci.

Une petite question.

Dans Office 2010 quand je met ceci =SI(G1="";"";G1/86400) les deux G1 reste bleu, quand je le met dans Office 2007 le premier G1 est bleu mais le reste est noir.

Est-ce que tu comprend pourquoi ?

Papoux123

Papoux123 · Answer

J'ai justement une erreur quand j'inscrit la formule et pourtant je viens d'essayer sur un autre poste de travail avec 2007 et ça fonctionne. Je me demande si le fait que j'utilise Windows XP virtual sur mon portable qui a WIndows 7 si ce n'est pas ça qui cause problème. Car mon autre logiciel qui crée les banques de données ne fonctionne pas sur Windows 7 64 bits et j'ai dû installer Windows XP Virtual pour le faire fonctionner.

Je vais refaire des essais complet avec un autre poste de travail.

Je te reviens avec des nouvelles

Papoux123

Papoux123 · Answer

Finalement, ça fonctionne très bien sur le poste de travail ou sera installé le logiciel d'acquisition de données.

Un GROS MERCI de m'avoir aider, c'est fortement apprécié.
Vous les français, on se passerai pas de vous, d'ailleurs mon gendre est français :)

Bon week end et au plaisir de se rejaser.

Papoux123

Convertir des secondes en heures, minutes et secondes

13 réponses

Discussions similaires