Discussion :

[EvT Chess38]

Bonjour,

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.

Si vous aviez une idée.
Merci

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