XL 2019 Format heure dans une formule

AIXELS

XLDnaute Occasionnel
Bonjour à tous les amis du Forum.
Je reviens vers vous une fois de plus pour vous demander votre aide.
Mon problème est le suivant (que j'ai schématisé).
A l'appui sur le bouton Récap heures, un cumul des heures effectuées doit s'afficher pour
le mois en cours. J'ai essayé avec mes connaissances à faire un tableau pour récapituler
les heures et le mois correspondant.
Je n'arrive pas à trouver la formule pour avoir un format d'heures supérieur à 24 heures.
et à l'afficher dans un userform et dans un label. Voir fichier joint.
La cellule B1 = Aujourdhui(). Je rajoute des jours pour faire évoluer le mois, mais la ligne de
commande :
VB:
        UsfDateHeure.Label3.Caption = "Total des heures effectuées" & _
        Chr(10) & "en " & Application.Proper(Format(Now, "mmmm")) & " : " & Sheets("Heures").Range("D1") & " heures"

Je voudrai remplacer "Application.Proper(Format(Now, "mmmm))" par la valeur de C1 de la feuille Heures.
Dans l'attente de votre aide.
Bien cordialement.
 

Pièces jointes

  • FORMAT HEURES DANS TABLEAU.xlsm
    30.3 KB · Affichages: 5
Dernière édition:

AIXELS

XLDnaute Occasionnel
Bonsoir @patty58
Merci pour ta réponse. Le problème de la variable du mois est réglé. 👍
Pour tester, je rajoute à la cellule B1 pour faire évoluer le mois (Aujourdhui()+30, 60, 90 etc
Il reste la formule pour le format des heures supérieures à 24 heures en D1 dans le Label3.
Voir image écran jointe pour Juin et les autres mois. Le format me pose problème.
Merci pour votre aide
Bien cordialement.
 

Pièces jointes

  • Résultat du format obtenu pour Juin.jpg
    Résultat du format obtenu pour Juin.jpg
    44.8 KB · Affichages: 21

AIXELS

XLDnaute Occasionnel
Bonjour.
Ci-dessous ligne de commande dans le Label3 du userform pour obtenir un format des heures
comme suit : [h]"h"mm Comment le représenter dans la ligne de commande ci-dessous ? ?

VB:
        UsfDateHeure.Label3.Caption = "Total des heures effectuées" & _
        Chr(10) & "en " & Application.Proper(Format(Now, "mmmm")) & " : " & Sheets("Heures").Range("D1") & " heures"

Merci pour aide.
Bien cordialement.
 

Pièces jointes

  • FORMAT HEURES DANS TABLEAU.xlsm
    39.1 KB · Affichages: 4

JHA

XLDnaute Barbatruc
Bonjour à tous,

Il y a certainement beaucoup mieux mais cette formule "à rallonge" te donne le résultat escompté.
VB:
=TEXTE(ARRONDI.INF(RECHERCHEV($C$1;$B$3:$C$14;2;FAUX)*24;0);"00")&"h"&TEXTE((((RECHERCHEV($C$1;$B$3:$C$14;2;FAUX)*24)-ENT(RECHERCHEV($C$1;$B$3:$C$14;2;FAUX)*24))*60);"00")

JHA
 

Pièces jointes

  • FORMAT HEURES DANS TABLEAU.xlsm
    33 KB · Affichages: 10

AIXELS

XLDnaute Occasionnel
Re @JHA et tous les amis du Forum.
Désolé, je me suis mal exprimé. 🙃
On garde la formule de ta première réponse. Tout est OK
J'aurais aimé l'adaptation de la formule et le format pour le total en cellule C15.
je te prie de m'excuser de t'embêter.
Par avance merci.
Bien cordialement.
 

JHA

XLDnaute Barbatruc
Bonjour à tous,

Pour la formule, peut-être:
VB:
=TEXTE(ARRONDI.INF(SOUS.TOTAL(9;Tableau3[Total
Heures])*24;0);"00")&"h"&TEXTE((((SOUS.TOTAL(9;Tableau3[Total
Heures])*24)-ENT(SOUS.TOTAL(9;Tableau3[Total
Heures])*24))*60);"00")

JHA
 

Pièces jointes

  • FORMAT HEURES DANS TABLEAU Total (1).xlsm
    33.3 KB · Affichages: 2

AIXELS

XLDnaute Occasionnel
Bonjour @eriiic et tous les amis du Forum.
Merci pour ta réponse.
Je vous renvoie mon fichier avec les positions des données identiques
à mon projet. Je m'exprime mal et je vous fait perdre votre temps.
Il me reste à résoudre le Label2 dans le userform "UsfDateHeure"
comme vous pouvez le voir sur l'image écran incluse dans le fichier
en pièce jointe n'affiche pas l'année et le cumul des heures de l'année
dans le format "2022" cellule AQ1 et pour l'année et "94h00" cellule AO15

pour les heures.
Merci pour votre aide.
Bien cordialement.
 

Pièces jointes

  • FORMAT HEURES DANS TABLEAU dernière version.xlsm
    55.9 KB · Affichages: 1

eriiic

XLDnaute Barbatruc
Bonjour,

il suffit d'adapter la formule que je t'ai donné.
Mais on se demande à quoi tu penses que tu demandes à mettre l'année avec l'initiale en majuscule avec .Proper() (?!?) et que tu ne demandes même Year(), année de ta date...
Quand tu ne connais pas bien une fonction il faut faire F1 dessus pour voir l'aide.
Regarde avec :
VB:
  UsfDateHeure.Label2.Caption = "Cumul des heures effectuées" & _
        Chr(10) & "en " & Year(Sheets("PLANNING MENSUEL").Range("AQ1")) & " : " & Application.Text(Sheets("PLANNING MENSUEL").Range("AO15"), "[h]""h""mm")
eric
 

AIXELS

XLDnaute Occasionnel
Bonjour @eriiic.
Merci pour ta réponse tout est rentré dans l'ordre.
Je me forme au fur et à mesure. Et j'avance petit à petit
grâce à votre aide. On ne remerciera jamais assez les bénévoles.
Pour ma part, ma façon de vous dire Merci à tous, c'est de soutenir XLD.
UN malheureux copier-collé pour l'année en Majuscule.
Bien cordialement.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra