Discussion :

[MiXinG]

Bonjour à tous (re peut-être)
Je fais un Userform 'dynamique' (je crée les objets de control via du code). J'arrive à créer des check box parfaitement bien placées dans un premier frame, mais impossible de le faire dans un second frame. J'ai eu beau rechercher l'erreur mais je l'ai pas trouvée.
Je me tourne donc vers vous pour le coup de main
Voici mon 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
    'Gestion des rattachements de ressource du CDS
If (ComboBox1.Value <> "") Then
    
    CheckBox21.Visible = True
    ajout.Visible = True
    supprimer.Visible = True

End If


If (CDS.liste_rattachement.Count > 0) Then
    CheckBox21.Value = False
    For i = 1 To CDS.liste_rattachement.Count Step 1
        
        Set MaCheckbox = ParametrerCDS.rattachements.Controls.Add("Forms.TextBox.1")
        MaCheckbox.Value = CDS.liste_rattachement(i)
        MaCheckbox.Left = 12
        MaCheckbox.Top = i * 12
        
    Next i
End If

If ((i + 4) * 12 > 290) Then
    rattachements.Height = 290
    rattachements.ScrollBars = fmScrollBarsVertical
    rattachements.ScrollHeight = (i + 4) * 12
Else
    rattachements.Height = (i + 4) * 12
End If
    
    'Gestion des sites du projet
    
Set TempCollection = New Collection
Set TempCollection = centre_de_service.getSitesGeneral
    
For i = 1 To TempCollection.Count Step 1
    
    Set MaCheckbox = ParametrerCDS.sites.Controls.Add("Forms.CheckBox.1")
    MaCheckbox.Caption = TempCollection(i)
    MaCheckbox.Left = 12
    MaCheckbox.Top = i * 14
    
    For j = 1 To CDS.sites.Count Step 1
        If (CDS.sites(j) = TempCollection(i)) Then
            MaCheckbox.Value = True
        End If
    Next j

Next i

sites.Top = rattachements.Top + rattachements.Height + 20

If ((i + 2) * 14 < 114) Then
    sites.Height = 114
    sites.ScrollBars = fmScrollBarsVertical
    sites.ScrollHeight = (i + 2) * 14

Else
    sites.Height = (i + 2) * 14
End If

La partie en gras correspond à l'insertion des checkbox dans le frame "sites". La première partie du code correspond à la frame "rattachements" au dessus du frame "sites".
Je vous ai mis l'aperçu du userform en pièce jointe.

Merci d'avance!