Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Heures > 24h dans le label d'un userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Matjul
  • Date de début Date de début

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 !

S'inscrire
M

Matjul

XLDnaute Occasionnel
Bonjour a tous,
Je souhaiterai connaitre le format à utiliser pourfaire apparaitre dans un label d'un userform la somme des heures travailées soit un nombre suppérieur a 24h. J'ai essayé [hh]:NN mais ça ne fonctionne pas.

Merci pour votre aide
 
Trier par date Trier par votes
Re : Heures > 24h dans le label d'un userform

Bonjour Matjul

Fonction personalisée à integrer dans un module :

Function formatheure(gw As Date) As String
gw = Range("I3").Value
formatheure = CStr((Int(gw) * 24) + Hour(gw)) & ":" & Minute(gw) & ":" & Second(gw)
End Function

pour l'utiliser : le nombre d'heure se trouve en A1

label1.caption = formatheure(range("A1").value)
 
Vote positif 0 Vote négatif
Re : Heures > 24h dans le label d'un userform

re:

à mon avis non, les dates et les heures, en VBA, sont toutes les deux sotckées dans des variables Date

1 jour = 1, 1 heure = 1/24, 12 heures = 0,5 et 36h = 1,5.

J'imagine, selon ton 2eme post, que tu veux faire afficher le nombre d'heures travaillées ou supplémentaires, c'est facile sur le tableur, en VBA, c'est plus complexe.

Existe t il un format pour cela, je n'en sais rien, mais une fois que la fonction personalisée est en place, plus besoin de chercher..............

cette fonction est utilisable à chaque fois, pas besoin de la modifier
 
Vote positif 0 Vote négatif
Re : Heures > 24h dans le label d'un userform

re:

la premiere fonction etait un peu à l'arrache, je viens d'en faire une plus complete

Code: 
Function formatheure(gw As Date, gwformat As String) As String
    formatheure = gwformat
    Dim i As Integer
    i = InStr(gwformat, "[HH]"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr((Int(gw) * 24) + Hour(gw)) & Mid(gwformat, i + 4): GoTo suite
    i = InStr(gwformat, "[H]"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr((Int(gw) * 24) + Hour(gw)) & Mid(gwformat, i + 3): GoTo suite
    i = InStr(gwformat, "HH"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(Hour(gw)) & Mid(gwformat, i + 2): GoTo suite
    i = InStr(gwformat, "H"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(Hour(gw)) & Mid(gwformat, i + 1): GoTo suite
suite:
    i = InStr(gwformat, "[MM]"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(((Int(gw) * 24) + Hour(gw) * 60) + Minute(gw)) & Mid(gwformat, i + 4): GoTo suite1
    i = InStr(gwformat, "[M]"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(((Int(gw) * 24) + Hour(gw) * 60) + Minute(gw)) & Mid(gwformat, i + 3): GoTo suite1
    i = InStr(gwformat, "MM"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(Minute(gw)) & Mid(gwformat, i + 2): GoTo suite1
    i = InStr(gwformat, "M"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(Minute(gw)) & Mid(gwformat, i + 1): GoTo suite1
suite1:
    i = InStr(gwformat, "[SS]"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(((((Int(gw) * 24) + Hour(gw) * 60) + Minute(gw)) * 60) + Second(gw)) & Mid(gwformat, i + 4): GoTo suite2
    i = InStr(gwformat, "[S]"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(((((Int(gw) * 24) + Hour(gw) * 60) + Minute(gw)) * 60) + Second(gw)) & Mid(gwformat, i + 3): GoTo suite2
    i = InStr(gwformat, "SS"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(Second(gw)) & Mid(gwformat, i + 2): GoTo suite2
    i = InStr(gwformat, "S"): If i > 0 Then gwformat = Left(gwformat, i - 1) & CStr(Second(gw)) & Mid(gwformat, i + 1): GoTo suite2
suite2:
    formatheure = gwformat
End Function

utilisable dans le tableur : en A1 format heure
en b1 : =formatheure(C2;"il y a : [H] Heures, MM Minutes, SS secondes")

en vba :

label1.value = formatheure(range("A1"),"il y a : [H] Heures, MM Minutes, SS secondes")

Precisions : il n'est pas obligatoire de mettre tous les parametres
exemple : formatheure(Range("A1"),"Vous avez : [H] heures et MM Minutes supplémentaires")

Bon week end
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
334
patricko-13
P
S
  • Question Question
XL 2021 Horaire négatif dans formule
Réponses
6
Affichages
242
sfconstant
S
P
  • Question Question
XL 2013 Impression d'un userform
6 7 8
Réponses
118
Affichages
3 K
patricktoulon
V
  • Question Question
XL 2019 Fichier suivi de mon activité par 1/4 d'heure et heures d'arrivé et fin
Réponses
12
Affichages
673
Dand87
D
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
388
dgil37
D
M
  • Résolu(e)
Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm
2
Réponses
17
Affichages
770
Marboi
M
P
  • Résolu(e)
Microsoft 365 Comparaison 2 tableaux EXCEL différents
Réponses
12
Affichages
785
Peter DOE
P
  • Question Question
XL 2019 format conditionnel
Réponses
10
Affichages
290
TooFatBoy
P
  • Question Question
XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne
Réponses
6
Affichages
453
OKBI
O
A
  • Question Question
Microsoft 365 VBA et "Slicer" dans un TCD (source modèle de données)
Réponses
2
Affichages
247
Amilo
A
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
383
Redba13
R
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
608
JHA
J
  • Question Question
XL 2016 Recherche multicritères
Réponses
9
Affichages
620
djidji59430
  • Question Question
Microsoft 365 Affichage contenu ListBox format heure > 24 heures
2
Réponses
15
Affichages
1 K
AIXELS
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
3 4 5
Réponses
66
Affichages
4 K
Dudu2
V
  • Question Question
XL 2021 Fonction SIERREUR()
Réponses
5
Affichages
645
Victor__
V
D
  • Question Question
XL 2021 Calcul d'un temps entre 2 dates et heures
Réponses
1
Affichages
795
JHA
J
J
  • Résolu(e)
Microsoft 365 calcul heures sup
Réponses
9
Affichages
1 K
julien1982
J
H
  • Question Question
Microsoft 365 Changer format cellule_VBA
Réponses
8
Affichages
563
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Code pour affichage
Réponses
8
Affichages
726
Marvin57
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…