XL 2019 Format heure dans une formule

[AIXELS]

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 :

        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.

 

[patty58]

Bonsoir

Comme cela ??

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

Bonne soirée

 

[AIXELS]

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.

 

[AIXELS]

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 ? ?

        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.

 

[JHA]

Bonjour à tous,

Il y a certainement beaucoup mieux mais cette formule "à rallonge" te donne le résultat escompté.

=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

 

[AIXELS]

Bonjour @JHA et tous les amis du Forum.
Mille mercis pour ton aide.
Après l'avoir appliqué à mon projet, tout fonctionne très bien.
Bien cordialement.

 

[AIXELS]

Bonjour @JHA et tous les amis du Forum.
Comment adapter ta formule pour le total annuel ?
Par avance merci pour ton aide.
Bien cordialement.

 

[JHA]

Bonjour à tous,

A essayer

=TEXTE(ARRONDI.INF($C$15*24;0);"00")&"h"&TEXTE(((($C$15*24)-ENT($C$15*24))*60);"00")

JHA

 

[AIXELS]

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]

Bonjour à tous,

Pour la formule, peut-être:

=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

 

[AIXELS]

Bonsoir @JHA et tous les amis du Forum.
Merci pour ta réponse et ton aide
Désolé, je n'avais pas vu que la formule faisait référence à la cellule C15.
Autant pour moi.
Bonne soirée
Bien cordialement.

 

[eriiic]

Bonjour à tous,

pour avoir le format [h]:mm en vba, autant utiliser la fonction Texte d'excel :

t = 1.5
tempsTxt = Application.Text(t, "[h]:mm")

eric

 

[AIXELS]

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.

 

[eriiic]

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 :

  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]

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.