Bonjours,
Je suis en train de mettre au point une base de donnée pour suivre la charge de travaille du BE dans ma boite. J'aimerais avoir plus d'info car pour l'instant je bidouille un peu.
Je rempli une base de donnée grâce à ma userform, les gars rentre les commandes et se les attribues en mettant leurs initiales RL ou RF. Lors de l'acquisition chacun d'entre eux s'attribu un temps estimé.
Voilà le pb: Pour les aider à voir leur charge de travaille je veux afficher dans ma userform la somme cumulé des temps estimé qu'ils ont chacun pour savoir qui est le plus charger. J'ai donc crée un Label où j'aimerai affiché pour chacun son temps en [h]:mm.
J'ai donc fait:
Le problème c'est qu'il m'ai impossible de changer le style de mes deux label RF et RL. Ils affichent des dates à partir de 1900 or mois je voudrais juste faire ressortir un nombre d'heure/minute. es que c'est possible.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Dim Nbligne As Integer i = 3 While Not IsEmpty(Sheets("BdD").Cells(i, 1)) Debug.Print Sheets("BdD").Cells(i, 1) i = i + 1 Wend Nbligne = i - 1 Dim TL As Date Dim TF As Date For j = 0 To Nbligne If Sheets("BdD").Cells(j + 3, 6).Value = "RL" Then TL = TL + Sheets("BdD").Cells(j + 3, 7) Else: TF = TF + Sheets("BdD").Cells(j + 3, 7) End If Next j RL.Caption = TL RF.Caption = TF
Merci d'avance
Partager