Besoin d'une formule de calcul pour Listbox

[cabridous]

Bonjour tous le monde.
Je décris un peu mon projet pour mieu que vous compreniez.
Je suis actuellement en train de créer un formulaire de saisie pour mon service maintenance .
Chaque technicien doit saisir un total de d'heure de 420 minute par jour pour justifier son temps de travail .
J'ai déjà créer l'interface pour saisir les donnée et le tableau exel qui les réceptionne. Voila un petit screenshot




Voila mon petit problème maintenant.
Je voudrai que a chaque fois que je sélectionne un technicien dans mon interface de saisie que ça me calcul combien de temps il à déjà saisie(durée intervention) dans la journée et que çà me l'affiche dans la listbox (total temps d'intervention.)


Voila mon fichier pour mieux comprendre


Merci d'avance

 

[kjin]

Re : Besoin d'une formule de calcul pour Listbox

Bonsoir,
Ton fichier avec le strict necessaire pèse 22 ko
En outre, peux tu supprimer les images de ton message, merci
Ton fichier réadapté en PJ
J'ai remplacé la listbox par une simple textbox
A+
kjin

 

[fhoest]

Re : Besoin d'une formule de calcul pour Listbox

Bonsoir,
voici pour toi un morceau de code ,
mais sache que ce n'est jamais trop bon de contrôler les techniciens en fonction du temps car cela peut être a double tranchant lors d'une mauvaise gestion de plannification des taches ils peuvent rendre la monnaie.
A moins qu'il soit utiliser correctement ( dans le bon sens )

courage (ps le fichier est bien conçu)
Fhoest "technicien de maintenance."
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cells(2, 6).Activate
Dim total_intervention As Integer
total_intervention = 0
Do
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = ComboBox1.Value Then
total_intervention = total_intervention + ActiveCell.Offset(0, 2).Value
Else:
End If
Loop Until ActiveCell = ""
MsgBox "Le temps total d'intervention de ce technicien est de: " & vbCrLf & total_intervention & " Minutes."
End Sub

 

[cabridous]

Re : Besoin d'une formule de calcul pour Listbox

Merci d'avoir répondu

Votre code fait bien le total du temps mais il le fait pour pour tous les jours saisie.

Alors que moi je veux qui fasse le total du temps saisie que pour le jour actuel par rapport à la date

 

[kjin]

Re : Besoin d'une formule de calcul pour Listbox

Re,
Effectivement

Private Sub ComboBox1_Change()
TextBox2 = ""
With Sheets("Rapportintervention")
    For Each cel In .Range("F2:F" & .Range("F65000").End(xlUp).Row)
        If cel = ComboBox1 And cel.Offset(0, 6) = Date Then
            compteur = compteur + cel.Offset(0, 2)
        End If
    Next
End With
TextBox2 = compteur

End Sub

A+
kjin

 

[fhoest]

Re : Besoin d'une formule de calcul pour Listbox

bonsoir,cabridous et kijn
idem pour moi ,
a ajouter la comparaison de l'activecell avec l'offset qui correspond a la cellule qui contient la date d'archive par rapport a la date actuelle
a+
et bonne soirée a vous deux

 

[cabridous]

Re : Besoin d'une formule de calcul pour Listbox

Merci beaucoup c'est exactement ce que je voulais encore merci