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 : 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
' 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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