Discussion :

[thomasaurelien]

bonjour,

Amateur de paris sportifs je voudrai mettre en place un fichier excel pour gérer mes différents bookmakers (certains fichiers existe déjà) mais je voudrai gérer celui-ci avec des UserForms.
J'ai commencé à développer (un peu) mais avant d'avancer je voudrai votre avis sur le début.

Je me suis organisé de cette sorte :
Un module par feuille (transaction, bookmakers, paris,...)
Un module pour l'ouverture des UserForms
Et un module pour les fonctions

J'ai créer une feuille et un UserForm qui permet des gérer (ajout,modif,suppr) les différentes transactions (dépôt,bonus,retrait,..)

Module fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
' Déclaration des variables et constantes de portées module
Enum Statut ' Constantes énumérées Status
 Consul = 0: Modif = 1: Ajout = 2: Suppr = 3
End Enum
Const StatutLabel As String = "Consultation;Modification;Création;Suppression"
Public Tbl_Statut() As String
'
 
Sub Init_Vars()
    Tbl_Statut = Split(StatutLabel, ";")
End Sub

module UF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Afficher_UF_Ajout_Transaction()
    Init_Vars
    Statut_travail_transaction = Statut.Ajout
    With UF_Transactions
        .Caption = Tbl_Statut(Statut_travail_transaction)
        .F_statut_trans.Enabled = False
        .F_choix_trans.Enabled = False
    End With
    UF_Transactions.Show
End Sub

module transaction :

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
Option Explicit
'
 
Sub Nouv_transaction()
    Dim Nom_Transaction, Oper_Transaction As String
    Dim Ligne_Ajout_Trans As Integer
    Dim pl As Range
 
    With UF_Transactions
        '<---- CONTROLES ---->
        If Trim(.TB_nom_transaction.Value) = "" Then
            MsgBox "Nom de la transaction : Non saisie !!!", vbOKOnly + vbInformation, ".:: Informations ::."
            .TB_nom_transaction.SetFocus
            .TB_nom_transaction.SelStart = 0
            Exit Sub
        End If
 
        If (.OP_gain_transaction.Value = False) And (.OP_perte_transaction.Value = False) Then
            MsgBox "La transaction saisie : Est-ce une PERTE ou un GAIN ?", vbOKOnly + vbInformation, ".:: Informations ::."
            Exit Sub
        End If
 
        '<---- PASSAGE VARIABLES ---->
        Nom_Transaction = .TB_nom_transaction.Value
        If .OP_gain_transaction.Value = True Then
            Oper_Transaction = "Gain"
        Else
            Oper_Transaction = "Perte"
        End If
    End With
    '<---- Ligne référence ---->
    MsgBox "Nb ligne : " & Range("Transactions").Rows.Count
    Ligne_Ajout_Trans = Range("Transactions").Rows.Count - 1
    MsgBox "Ligne de ajout : " & Ligne_Ajout_Trans
    Sheets("Transactions").Activate
    Application.ScreenUpdating = False
    With Sheets("Transactions")
            .Rows(Ligne_Ajout_Trans).Select
            Selection.Copy
            Selection.Insert shift:=xlDown
            Selection.ClearContents
            Application.CutCopyMode = False
    End With
    With Sheets("Transactions")
        .Range("H" & Ligne_Ajout_Trans).Value = Nom_Transaction
        .Range("I" & Ligne_Ajout_Trans).Value = Oper_Transaction
    End With
    Application.ScreenUpdating = True
End Sub

Merci pour votre conseil et votre aide
Si d'ailleurs vous avez des liens qui peuvent m'aider je suis preneur.