1 pièce(s) jointe(s)
Mise en forme d'un Userform
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:
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!
