VBA - Convertir decimal en heure

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lyvegirl

XLDnaute Nouveau
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
 

Pièces jointes

Re : VBA - Convertir decimal en heure

Salut lyvegirl, le Forum

Essaye cette syntaxe qui à plus de chance de fonctionner

Code:
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
 
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
 
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
Capture.jpg
 

Pièces jointes

  • Capture.jpg
    Capture.jpg
    31.6 KB · Affichages: 156
  • Capture.jpg
    Capture.jpg
    31.6 KB · Affichages: 129
  • Workbook2.xlsx
    Workbook2.xlsx
    19.1 KB · Affichages: 91
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
4
Affichages
461
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
0
Affichages
459
Retour