Bonjour à tous,
 
Mon programme ci-dessous fonction bien sans periode (dates), je souhaiterai maintenant ajouter la prise en compte d'un intervalle de dates a mon resultat, j'ai deja modifier le userform pour...
Merci de consulter le fichier en attache pour plus d'informations:
 
https://www.catupload.com/download/ [...] 9903d.html
 
Je souhaiterai egalement que le format date du systeme soit pris en compte, moi je suis en jj/mm/aaaa
 
*************************************************************************************************************************
 
Private Sub CB_Intervenant_Change()
Dim Recherche, total As String
Dim Nb_Intereventions, T_Interventions As Integer
Dim Date_Debut, Date_Fin As Date
 
'Date_Debut = CDate(Me.TB_Date_Debut.Value)
'Date_Fin = CDate(Me.TB_Date_Fin.Value)
Recherche = Me.CB_Intervenant.Value
 
Nb_Intereventions = Application.WorksheetFunction.CountIf(Sheets("Interventions" ).Range("C:C" ), "*" & Recherche & "*" )
T_Interventions = Application.WorksheetFunction.CountA(Sheets("Interventions" ).Range("A3:A" & Sheets("Interventions" ).Range("A65536" ).End(xlUp).Row))
 
Me.TB_T_Interventions = T_Interventions
Me.TB_Nb_Interventions = Nb_Intereventions
total = Format(((Nb_Intereventions * 100) / T_Interventions), "#0.00" )
Me.TB_P_Interventions = total & " %"
 
If total <= 49.9999999 Then
Me.TB_P_Interventions.BackColor = vbRed 'vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbWhite, vbYellow
Me.L_Appreciation = "Collaborateur nul"
Me.L_Appreciation.ForeColor = vbRed
Me.L_Appreciation.Visible = True
Else
Me.TB_P_Interventions.BackColor = vbGreen
Me.L_Appreciation = "Collaborateur exemplaire"
Me.L_Appreciation.ForeColor = vbRed
Me.L_Appreciation.Visible = True
End If
 
End Sub
 
*************************************************************************************************************************
Je vous remercie pour votre aide