demande d'assistance

[Brahimyasser]

bonjours le forum,
débutant en vba et je cherche des solutions à mon problème
je travaille sur fichier excel à 02 classeurs
le premier contiens une liste de'employés ainsi que leurs matricules
le deuxième il y a les matricules des travailleurs ainsi que leurs pointage en format "dd/mm/yyyy hh:mm"
j'ai créer par la suite un userform avec les contrôles ci-après
textbox = Matricule
textbox = nom
textbox = date début
textbox = date fin
listbox multicolonnes : dont la première colonne affichera date début jusqu’à date fin
je veux que la deuxième colonne de ma listbox affiche l'heure qui convient à la date et au travailleur
ci-dessous mon projet
premier bouton :

With ListBox2
.Visible = True
.ColumnCount = 7
.ColumnWidths = "70;50;50;50;50;50;100"
.Clear
.AddItem
.List(0, 0) = "Date"
.List(0, 1) = "Férié"
.List(0, 2) = "Entrée"
.List(0, 3) = "P/déjeun d"
.List(0, 4) = "P/déjeun F"
.List(0, 5) = "Sortie"
.List(0, 6) = "Obs"
End With

Sheets("Téléchargement").Activate
With ListBox2
k = .ListCount
For m = CDate(Du) To CDate(Au)
.AddItem
.List(k, 0) = m
.List(k, 1) = ""
.List(k, 2) = ""
.List(k, 3) = ""
.List(k, 4) = ""
.List(k, 5) = ""
.List(k, 6) = ""

k = k + 1

Next m
End With

deuxième bouton

Private Sub CalculerOb_Click()
Sheets("Téléchargement").Activate
On Error Resume Next
For k = 1 To ListBox2.ListCount - 1
For j = 1 To Range("a65000").End(xlUp).Row
With ListBox2
If Matr Like Cells(j, 1) Then
    If CDate(.List(k, 0)) Like "*" & Cells(j, 2) & "*" Then
        .AddItem
        .List(k, 2) = Cells(j, 2)
    End If
    End If
End With
Next j
Next k

End Sub

merci beaucoup pour votre assistance

 

[Dranreb]

Bonjour.
Je me suis amusé à tout faire gérer par mon objet ComboBoxLiées.
Ça a nécessité l'ajout de deux fonctions supplémentaires, SujSupÉgal et SujInfÉgal dans le module de service MSujetCBx.

 

[Brahimyasser]

To

Merci beaucoup Dranreb pour votre solution
comme j'avais dit je suis qu'un débutant en VBA donc je vais essayer de lire votre code attentivement
Cordialement