Discussion :

[EvT Chess38]

Bonjour,

je me permet de poster ce message ici car à la base il est dans le forum visual Studio mais sa place est surement plus ici.

j'ai un projet dans lequel j'utilises 3 Forms distinctes qui sont:
- Form_Bilan_Jours,
- Form_Bilan_Mois,
- Form_Bilan_Annees.

Dans chaque Form, lorsque je clique sur le BP_VALIDATION j'appelle une fonction qui va me permettre de remplir des Datagrid avec mes valeurs (cf. Bilan_Jours).

Comme je fais la même chose pour le jours, le mois et l'année, j'ai décidé de me créer une fonction FCT_REMPLISSAGE dans laquelle je passe tout mes Controls afin de les remplir. Tout ce passe bien.
Par contre pour remplir les Controls j'utilise un appel de fonction qui diffère selon la forme.
- Fct_Jour (Class_Bilans_Jours_XLS),
- Fct_Mois (Class_Bilans_Mois_XLS),
- Fct_Année (Class_Bilans_Années_XLS).
Chaque fonction est lié à une classe différente comme indiqué ci dessus.

Du coup, je voudrais passer un paramètre à ma fonction FCT_REMPLISSAGE afin qu'elle sache si elle doit effectuer la requête Jours, Mois ou Années.

J'ai essayé plusieurs choses mais rien ne marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Fct_Remplissage(ByRef Nom_Data_Grid_Bilan_Production As DataGridView, ByRef Nom_Data_Grid_Depil As DataGridView, ByRef Nom_Data_Grid_Pick As DataGridView, ByRef Nom_Data_Grid_Encais As DataGridView, ByRef Nom_Chart_Depileur As Chart, ByRef Nom_Chart_Pick As Chart, ByRef Nom_Chart_Encais As Chart, ByRef GroupBox_Depil As GroupBox, ByRef GroupBox_Pick As GroupBox, ByRef GroupBox_Encais As GroupBox, ByVal Date_Debut As Date, ByVal Date_Fin As Date, ByVal Type_Class As Integer)


        Select Type_Class
            Case 0
                Dim Bilan_Production As New Class_Bilans_Jours_XLS
            Case 1
                Dim Bilan_Production As New Class_Bilans_Mois_XLS
            Case 2
                Dim Bilan_Production As New Class_Bilans_Annees_XLS
        End Select

        Bilan_Production.Lecture_des_Donnees(DateDebut, DateFin)

Ce qui est en rouge apparaît en erreur.

Pour résoudre mon problème j'ai mis ce code. Mais ce qui ne me plait pas c'est que j'écris le même code plusieurs fois du coup. Et la tartine est grosse!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Public Sub Fct_Remplissage(ByRef Nom_Data_Grid_Bilan_Production_Jours As DataGridView, ByRef Nom_Data_Grid_Depil As DataGridView, ByRef Nom_Data_Grid_Pick As DataGridView, ByRef Nom_Data_Grid_Encais As DataGridView, ByRef Nom_Chart_Depileur As Chart, ByRef Nom_Chart_Pick As Chart, ByRef Nom_Chart_Encais As Chart, ByRef GroupBox_Depil As GroupBox, ByRef GroupBox_Pick As GroupBox, ByRef GroupBox_Encais As GroupBox, ByVal Date_Debut As Date, ByVal Date_Fin As Date, ByRef Bilan_Production_Jours As Class_Bilans_Jours_XLS, ByRef Bilan_Production_Mois As Class_Bilans_Mois_XLS, ByRef Bilan_Production_Annees As Class_Bilans_Annees_XLS)

        '*** Choix de la lecture de données selon la form
        If Not IsNothing(Bilan_Production_Jours) Then
            Bilan_Production_Jours.Lecture_des_Donnees(Date_Debut, Date_Fin)
        End If
        If Not IsNothing(Bilan_Production_Mois) Then
            Bilan_Production_Mois.Lecture_des_Donnees(Date_Debut, Date_Fin)
        End If
        If Not IsNothing(Bilan_Production_Annees) Then
            Bilan_Production_Annees.Lecture_des_Donnees(Date_Debut, Date_Fin)
        End If

Si vous quelqu'un a une idée pour simplifier tous ça, je suis preneur.

Merci

PS: Si vous avez besoin de plus d'informations n'hésitez pas.
PS2: C'est mon premier projet