VBA - Convertir decimal en heure

[lyvegirl]

Bonjour,

Dans le fichier ci-joint, j'aimerais ecrire un module VBA afin de permettre d'avoir automatiquement en colonne J la somme de la colonne C et H et que ca soit mis sous le format HH"h"MM.

J'ai tente cette formule pour la conversion, mais je n'arrive pas a expliquer que je veux qu'il fasse le calcul automatiquement pour chaque ligne de la colonne J.

Public Sub ConversionHeure()
Dim heure As Integer, minute As Integer, temps As Double, i As Integer

i = i + 1
temps = Range("Ci").Value + Range("Hi").Value


heure = Int(temps)
minute = (temps - Int(temps)) * 60

Range("Ji").Value = heure & "h" & minute

End Sub

Merci

 

[Dull]

Re : VBA - Convertir decimal en heure

Salut lyvegirl, le Forum

Essaye cette syntaxe qui à plus de chance de fonctionner

Option Explicit
Public Sub ConversionHeure()
Dim heure As Integer, minute As Integer, temps As Double, i As Integer, DerLig As Long

DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = DerLig To 3 Step -1
temps = Range("C" & i).Value + Range("H" & i).Value
heure = Int(temps)
minute = (temps - Int(temps)) * 60
Range("J" & i).Value = heure & "h" & minute
Next i
End Sub

Bonne Journée

 

[lyvegirl]

Re : VBA - Convertir decimal en heure

Ca marche mais le pb c'est que lorsque j'applique ca a mon doc il effectue que les 2 premieres lignes... . Cf en PJ.

Merci

 

[Dull]

Re : VBA - Convertir decimal en heure

Re lyvegirl, le Fil

Remplace

DerLig = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

par

DerLig = Sheet1.Range("P" & Rows.Count).End(xlUp).Row

Bonne Journée

 

[lyvegirl]

Re : VBA - Convertir decimal en heure

Merci beaucoup pour ton aide. Dans mon cas je peux remplacer A par L, P ou U ou uniquement P ? C'est histoire de comprendre mieux cette fonction.

 

[Dull]

Re : VBA - Convertir decimal en heure

...je peux remplacer A par L, P ou U...

Tout à fait

si tu regard bien

DerLig = Sheets1.Range("P" & Rows.Count).End(xlUp).Row

veut dire

Recherche de la dernière ligne non vide de la ColP de la feuil1

dans ton exemple, en ColA la dernière ligne rempli est la 4 voilà pourquoi seules 2 premières lignes sont affectées par la Macro

Bonne Journée

 

[Modeste geedee]

Re : VBA - Convertir decimal en heure

Bonsour®
pourquoi vouloir un module VBA pour une somme et un format
qui peut être généré automatiquement par formule et utilisation des fonctionnalités "Tableau" de Excel
ainsi que la saisie conventionnelle hh:mm

 

[lyvegirl]

Re : VBA - Convertir decimal en heure

Merci beaucoup a vous, c'est tres gentil de votre part.

Merci quand meme Modeste mais la version de Dull convient plus au resultat que j'attendais .

Merci mille fois et bonne journee.