Module de classe + remplir combobox
Bonjour, voila j'ai quelques petites questions je vais essayer d'être le plus clair possible
Ce classeur me permet la gestion de mes paris sportifs.
j'ai un userform :
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
| ' Oblige la déclaration des variables au préalable
Option Explicit
' Titre UserForm
Const Titre_UFbook As String = ".::: Gestion des bookmakers"
' Etat du travail en cours
Dim Etat_Travencours As Byte
' Titre fiche état
Dim Titre_Fetat As String
' Plage de données
Dim Plage_book As Range
'Table Bookmakers
Dim Book As Bookmakers
'
'****
' Initialistion
'****
' Propriété CBrechbook
Private Sub Init_CBrechbook()
With Me.CB_rechbook
.ColumnHeads = True
.ColumnCount = 2
.ColumnWidths = "40;60"
.Style = fmStyleDropDownList
End With
Init_RSCBrechbook
End Sub
' Propriété RowSource CBrechbook
Private Sub Init_RSCBrechbook()
With Me.CB_rechbook
.RowSource = Plage_book.Address(external:=True)
.ListIndex = 0
End With
End Sub
' Initialisation plage de données
Private Sub Init_Data()
Set Plage_book = sht_book_trans.Range("B17").CurrentRegion
With Plage_book
Set Plage_book = .Offset(1).Resize(.Rows.Count - 1)
End With
End Sub
'****
' A l'activation de l'USERFORM
'****
Private Sub UserForm_Activate()
Me.Caption = Titre_UFbook
Etat_Travencours = Mod_functions.Statut_Travail.Consulter
Write_Titrefiche Etat_Travencours, Titre_Fetat
Me.F_statutbook.Caption = Titre_Fetat
Init_Data
Init_CBrechbook
Set Book = New Bookmakers
End Sub |
et un module de classe
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Table_book()
Private indice
Private Sub class_initialize()
'Juste pour prouver que sa marche
MsgBox "e"
End Sub
Sub Ajout_book(cle, item)
End Sub |
D'une part je voudrai savoir si mon code est bien organisé même si il y en a peu ?
D'autre part, ma Combo-box rechbook est alimenter par la fonction Init_RSCBrechbook() qui renseigne la propriété RowSource par Plage_Book rempli par la fonction Init_Data(). J'ai essayé d'être le plus claire possible.
1) J'ai choisis la méthode par rowsource car il y a des en-tête de colonne. seul méthode ?
2) Le remplissage de plage_book doit-il se faire via le code de l'userfom ? ou dans le module de classe book ?
Merci de votre aide
ou alors si vous avez des liens vers les modules de classes ou autre qui peuvent m'aider
