Discussion :

[beabourbon]

Bonjour,
Je travaille actuellement sur un projet pour une association qui permettrait de gérer les participants aux réunions et d'en retirer des statistiques.
J'ai pour l'instant un tableau rempli grâce à des userforms, le bouton "ajouter session" permet de rajouter une colonne avec la date de la réunion. En face de chaque participant, dans la colonne correspondante à la session, j'ai écris des "X" pour noter la présence.

J'aimerais qu'au lieu de s'écrire manuellement, ces "X" soit dépendants de checkbox créées en même temps que la colonne de la session.
Donc quand je cliquerai sur créer, une liste de checkbox s'afficherait avec en face le nom et prénom dans chaque ligne remplie du tableau.

J'ai pour l'instant ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub btn_creer_Click()
    Dim i As Integer
            i = 11
                Do While (Sheets("Participants").Cells(6, i).Value <> "")
            i = i + 1
                Loop
 
    Sheets("Participants").Cells(6, i).Value=UserFormChantier.txt_session.Value
 
    Dim DLV As Long
            DLV = Range("B65536").End(xlUp).Row
    Dim k As Integer
    Dim nCheckTopPosition As Integer
    Dim nLabelTopPosition As Integer
 
    nCheckTopPosition = 15
    nLabelTopPosition = 18
 
    For nControlIndex = 1 To DLV
 
            Dim chkBox As Control
 
            Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "chkCheck" & DLV, True)
            chkBox.Left = 100
            chkBox.Top = nCheckTopPosition
 
            nCheckTopPosition = nCheckTopPosition + 20
 
            Dim lblLab As Control
            Set lblLab = Me.Controls.Add("Forms.Label.1", "lblCheck" & DLV, True)
            lblLab.Left = 115
            lblLab.Top = nLabelTopPosition
            nLabelTopPosition = nLabelTopPosition + 20
            For k = 7 To DLV
            lblLab.Caption = Sheets("Participants").Cells(k, 4).Value & Sheets("Participants").Cells(k, 5).Value
' colonne4=nom, colonne5= prenom
            Exit For
            Next k
    Next
End Sub

Ce code ne m'affiche qu'un nombre limité de checkbox avec toutes comme label le premier nom de la liste.

Quelqu'un a t-il une idée?
Merci beaucoup!!