Discussion :

[Coluche]

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:

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

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.

Merci d'avance

[ucfoutu]

Bonjour,

Une date est une date et peut être composée d'une date et d'une heure.

Une durée n'est pas une date. Elle est un nombre d'unités de temps (donc un integer ou un long).

[AlainTech]

Si, pour Excel, une durée peut être de type date.

Un exemple de possibilité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RL.Caption = CStr(24 * Int(TL) + DatePart("h", (TL))) & ":" & Format(TL, "Nn")