Discussion :

[bosk1000]

bonjour a tous
sur un fichier, feuille "liste" en colonne A, j'ai une liste de nom
certain nom se répète plusieurs fois
et je cherche a ce que dans un formulaire "choix",
lorsque dans "Combobox1", je choisis un nom de la colonne A, apparait pour chaque fois que le nom se répète, une case a cocher
je ne sais pas si c'est possible
et pour clôturer, je voudrais que le caption de la case à cocher soit la valeur de la colonne G, puisqu'il s'agit du prénom d'un enfant de la personne dans la colonne a

donc l'idée globale est lorsque je sélectionne un salarié, hop apparait autant de case a cocher que d'enfant et chaque case me fait apparaitre le prénom de l'enfant

pour l'instant pour le formulaire j'en suis ici

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
 
Option Explicit
 
Private Sub UserForm_Initialize()
Dim Noms As Object
Dim Cel As Range
Set Noms = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & [A65000].End(xlUp).Row)
     'If Cel.Offset(0, 6).Value <> "" Then Noms.Item(Cel.Value) = Cel.Value
     Noms.Item(Cel.Value) = Cel.Value
 
Next Cel
Me.ComboBox1.List = Application.Transpose(Noms.Items)
End Sub
 
 
Private Sub ComboBox1_Change()
Dim Lig As Long
Dim Nbr As Byte, i As Byte
Lig = Application.Match(Me.ComboBox1, Columns(1), 0)
If Cells(Lig, 7).Value <> "" Then
    Nbr = Application.CountIf(Columns(1), Me.ComboBox1)
    Cells(Lig, 7).Resize(Nbr, 1).Name = "base"
    With Me.ListBox1
        .Clear
        .ColumnCount = 2
        For i = 1 To Nbr
            .AddItem
            .List(i - 1, 0) = Range("base")(i).Value
            .List(i - 1, 1) = Range("base")(i).Offset(0, 1).Value
        Next i
    End With
End If
 
 
Me.TextBox2.Value = Nbr * 1
 
 
End Sub

[Pierre Fauconnier]

Bonjour

Je ne suis pas certain d'avoir tout compris...

Tu veux ajouter des contrôles "case à cocher" dans le userform?

Si c'est pour avoir la liste des enfants d'une personne choisie dans le combo, je trouverais plus pratique d'alimenter un contrôle ListBox multiselect... Cela éviterait de redessiner le userform avec un nombre variable de cases à cocher.

[bosk1000]

oui, tout bêtement un principe de multi-selection dans une listebox
faut juste que je trouve comment pouvoir faire en sorte que mes sélections se déverse dans une ligne d'une feuille

[Pierre Fauconnier]

Pourrais-tu expliquer un peu plus en détails ce que tu souhaites réaliser?