demande d'assistance

Brahimyasser

XLDnaute Nouveau
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 :
Code:
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
Code:
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
 

Pièces jointes

  • Pointage Siège 10 2016 Projet.xlsm
    148.8 KB · Affichages: 52

Dranreb

XLDnaute Barbatruc
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.
 

Pièces jointes

  • CBxLiéesBrahimyasser.xlsm
    226.2 KB · Affichages: 57

Discussions similaires

Réponses
17
Affichages
760

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO