Private Sub CommandButton2_Click()
Dim DLig As Long, DateDeb As Long, DateFin As Long
Dim RngDate As Range, RngConcep As Range, sFormule As String
Dim NbConcep As Long
' Avec la feuille
With Sheets("BD_Confection")
' Mémoriser la dernière ligne du tableau
DLig = .Range("C" & Rows.Count).End(xlUp).Row
' Définir la plage des dates de conception et des concepteur
Set RngDate = .Range("C3:C" & DLig)
Set RngConcep = .Range("D3:D" & DLig)
' Définir le numéro de série date de début et de fin
DateDeb = Me.DTPicker1: DateFin = Me.DTPicker2
' Construire la formule à évaluée
sFormule = "SUMPRODUCT(1/COUNTIF(" & RngConcep.Address & "," & RngConcep.Address & "),(" _
& RngDate.Address & ">=" & DateDeb & ")*(" & RngDate.Address & "<=" & DateFin & "))"
' Compter le nombre de cellules correspondantes
NbConcep = Application.Evaluate(sFormule)
Me.TextBox1.Value = NbConcep
End With
End Sub