XL 2019 Format heure dans une formule

patty58

XLDnaute Occasionnel

• 9 Février 2022

• #2

Bonsoir

Comme cela ??

VB:

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 9 Février 2022

• #3

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

  44.8 KB · Affichages: 22

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 10 Février 2022

• #4

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

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 10 Février 2022

• #5

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

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 10 Février 2022

• #6

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 10 Février 2022

• #7

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 10 Février 2022

• #8

Bonjour à tous,

A essayer

VB:

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

JHA

 

Pièces jointes

• FORMAT HEURES DANS TABLEAU Total.xlsm

  33 KB · Affichages: 2

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 10 Février 2022

• #9

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.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 10 Février 2022

• #10

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

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 10 Février 2022

• #11

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.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 11 Février 2022

• #12

Bonjour à tous,

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

VB:

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

eric

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 11 Février 2022

• #13

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

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 11 Février 2022

• #14

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 11 Février 2022

• #15

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.

 

Vote positif 0 Vote négatif