Microsoft 365 Affichage contenu ListBox format heure > 24 heures

AIXELS · 4 Juin 2024

Bonjour à tous les Amis du Forum
Je reviens une fois de plus vers vous pour vous demander votre aide.
J'ai un fichier contenant 12 Feuilles, une pour chaque mois de l'année.
J'ai créé un Userform pour afficher le récapitulatif des heures pour chaque mois
et chaque activité (A, B, C, etc.). Je vous joins le mois de janvier
J'aurais souhaité la ligne de commande qui afficherait le total du mois au format :
exemple : 32:30
Mon code, m'affiche un format en décimal. Voir le fichier joint.
Par avance, merci pour votre aide.
Bien cordialement

Jacky67 · 4 Juin 2024

AIXELS à dit:
Bonjour à tous les Amis du Forum
Je reviens une fois de plus vers vous pour vous demander votre aide.
J'ai un fichier contenant 12 Feuilles, une pour chaque mois de l'année.
J'ai créé un Userform pour afficher le récapitulatif des heures pour chaque mois
et chaque activité (A, B, C, etc.). Je vous joins le mois de janvier
J'aurais souhaité la ligne de commande qui afficherait le total du mois au format :
exemple : 32:30
Mon code, m'affiche un format en décimal. Voir le fichier joint.
Par avance, merci pour votre aide.
Bien cordialement

Bonjour,
Essaye en ajoutant "Text"
Me.TextBox1.Value = Sheets("JANVIER").[B35].Text

Dranreb · 4 Juin 2024

Bonjour.

VB:

Private Sub UserForm_Activate()
   Dim H As Long
   H = Int(Sheets("JANVIER").[B35].Value * 1440 + 0.5)
   Me.TextBox1.Value = H \ 60 & ":" & Format(H Mod 60, "00")
   End Sub

TooFatBoy · 4 Juin 2024

Dranreb à dit:
Me.TextBox1.Value = H \ 60

/!\

patricktoulon · 4 Juin 2024

pour le vba tout simplement application.text exactement le même principe que la fonction texte d'excel
exemple ici je vais additionner deux temps

VB:

Sub test()
    h1 = TimeValue("17:40:35")
    h2 = TimeValue("12:43:22")
    MsgBox Application.Text(h1 + h2, "[hh]:mm:ss") 'c'est les "[ ]" qui font le job  d"ans la  fonction texte de l'application
End Sub

AIXELS · 4 Juin 2024

Bonjour @Jacky67 @Dranreb @TooFatBoy @patricktoulon
Merci à tous les quatre pour vos réponses, elles fonctionnent toutes.
Une question, je ne suis pas champion des variables.
Est-il possible de remplir tous les TexTBox en tenant compte de 12 mois
à savoir de JANVIER à DÉCEMBRE. C'est la même disposition pour les
12 feuilles.
Par avance merci pour aide.
Cordialement

Dranreb · 4 Juin 2024

Dranreb à dit:
Me.TextBox1.Value = H \ 60

TooFatBoy à dit:
/!\

L'opérateur anti-slash donne la partie entière du quotient, tandis que l'opérateur Mod donne le reste.

TooFatBoy · 4 Juin 2024

Merci Bernard !

Jacky67 · 5 Juin 2024

AIXELS à dit:
Est-il possible de remplir tous les TexTBox en tenant compte de 12 mois
à savoir de JANVIER à DÉCEMBRE. C'est la même disposition pour les
12 feuilles.
Par avance merci pour aide.
Cordialement

RE..
Essaye comme ceci

VB:

Private Sub UserForm_Initialize()
 Dim i, j, x
    For i = 1 To 12
        For j = 2 To 8
            x = x + 1
           Controls("textbox" & x) = Sheets(UCase(Format(DateSerial(1, i, 1), "mmmm"))).Cells(35, j).Text
          Next
    Next
End Sub

Dans l'exemple les feuilles sont crées sans tenir compte de l'exactitude du contenu.

AIXELS · 5 Juin 2024

Bonjour @Jacky67
Merci pour ta réponse et ton aide.
J'ai passé l'après-midi d'hier à remplir les TextBox
sur l'exemple de ta réponse !
En 9 lignes, tu as résolu le problème. Encore Merci.
7 x 12 = 84 lignes pour arriver à ton résultat.
Le chemin est long et j'en suis conscient.
Merci à tous les Bénévoles.
Bien cordialement.

VB:

'JANVIER
    UsfRecap.TextBox1.Value = Sheets("JANVIER").[B2].Text
    UsfRecap.TextBox2.Value = Sheets("JANVIER").[C2].Text
    UsfRecap.TextBox3.Value = Sheets("JANVIER").[D2].Text
    UsfRecap.TextBox4.Value = Sheets("JANVIER").[E2].Text
    UsfRecap.TextBox5.Value = Sheets("JANVIER").[F2].Text
    UsfRecap.TextBox6.Value = Sheets("JANVIER").[G2].Text
    UsfRecap.TextBox7.Value = Sheets("JANVIER").[H2].Text

Jacky67 · 5 Juin 2024

AIXELS à dit:
Bonjour @Jacky67
Merci pour ta réponse et ton aide.
J'ai passé l'après-midi d'hier à remplir les TextBox

Re..
Avec le format adapté
Bonne continuation.

AIXELS · 6 Juin 2024

Bonjour @Jacky67 et tous les Amis du Forum.
@Jacky67 je viens de relever une anomalie sur la version 1 et 2
Tous les mois sur les 12 onglets sont à la date de janvier.
En l'adaptant sur mon projet, je me suis aperçu que les mois qui
qui n'ont pas 31 jours, n'affichent pas les données.
Je te joins la V1 et V2 corrigés aux bonnes dates.
Les données comme tu peux le constater, ne s'affichent pas.
Merci pour ton aide.
Bien cordialement.

Jacky67 · 6 Juin 2024

AIXELS à dit:
Bonjour @Jacky67 et tous les Amis du Forum.
@Jacky67 je viens de relever une anomalie sur la version 1 et 2
Tous les mois sur les 12 onglets sont à la date de janvier.
En l'adaptant sur mon projet, je me suis aperçu que les mois qui
qui n'ont pas 31 jours, n'affichent pas les données.
Je te joins la V1 et V2 corrigés aux bonnes dates.
Les données comme tu peux le constater, ne s'affichent pas.
Merci pour ton aide.
Bien cordialement.

Re..
Dans mon exemple le total du mois devait impérativement se trouver en ligne 35.
La version 3 se charge de trouver la ligne "TOTAL"

AIXELS · 6 Juin 2024

Merci @Jacky67 pour le retour.
Les données sont toutes prises en compte.
Désolé, je me suis mal exprimé.
En quoi le fait de déclarer le Total, influe sur la suite du résultat ?
Autre requête, est-il possible de mettre en fond vert les TextBox du mois en cours ?
Par avance merci pour aide aide.
Bien cordialement.

Jacky67 · 6 Juin 2024

AIXELS à dit:
En quoi le fait de déclarer le Total, influe sur la suite du résultat ?
Autre requête, est-il possible de mettre en fond vert les TextBox du mois en cours ?
Par avance merci pour aide aide.
Bien cordialement.

Re..
??? Ben, les lignes de "total" ne sont pas toute sur la même ligne
Ce code recherche la ligne "total" et place le numéro de la ligne dans la variable "lig"
lig = Application.Match("TOTAL", Sheets(Month(DateSerial(1, i, 1))).[a:a], 0)

La version 4 met en couleur la ligne du mois en cours
Y a t'il encore des questions à tiroirs..

Microsoft 365 Affichage contenu ListBox format heure > 24 heures

AIXELS

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

AIXELS

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Pièces jointes

AIXELS

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

AIXELS

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Pièces jointes

Discussions similaires