Méthodologie de traitement de tous les cas d'un Userform

**Sami_Ba** · 25/08/2017, 16h19

Bonjour à vous,

Je tiens d'abord à tous vous remercie, j'ai réussi mon stage en VBA en partant de 0, grâce à vous.

J'ai une question limite d'ordre culturel.

J'ai un userform qui permet d'extraire des informations de ma "base de données" Excel. Il y a 5 Combobox et quelques Checkbox.

Actuellement, cela fonctionne de la façon suivante :

Un choix sélectionné --> Macro1(choix)
Deux choix sélectionné --> Macro2(choix1,choix2)
.
.
Zero choix --> Macro5()

Ma question est la suivante :

Comment faire pour se ramener à :

0, 1, 2, 3, 4 choix sélectionnés --> Macro1(choix1, choix2, Choix3, Choix4)

Le code est ci-joint mais pour un soucis de confidentialité toutes les données sont supprimés donc forcément il ne marche pas.

J'espère avoir été clair dans l'explication de mon problème, et je vous remercie par avance de votre aide.

Sami

Code_pour_Developpez.xlsm

Invité · 25/08/2017, 16h25

Bonsoir,
Désolé mais de mon téléphone je ne peux pas voir les macros si d'aventure je téléchargeai le fichier!

**Sami_Ba** · 25/08/2017, 17h06

C'est peut être plus simple si je met le code directement :

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
 
Option Explicit
 
Sub ouvrir_user()
    UserForm.Show
End Sub
Sub ouvrir_userform2()
    UserForm1.Show
End Sub
 
Sub efface_tb_LD()
'On efface le tableau Liste document et indicateurs
    nombre_max_col_LD = Application.CountA(LD.Rows(1)) + 1
    nombre_max_lig_LD = Application.CountA(LD.Columns(2))
 
'Initialisation des indicateurs complémentaire de la Liste de documents
    LD_tab(lg_total_soumission_LD, nc_indicateurs_LD) = 0
    LD_tab(lg_total_soumission_retard_LD, nc_indicateurs_LD) = 0
    LD_tab(lg_total_soumission_realisee_LD, nc_indicateurs_LD) = 0
 
    For n_lig_suivi2 = 2 To nombre_max_lig_LD
        For n_col_suivi2 = 2 To nombre_max_col_LD
            LD_tab(n_lig_suivi2, n_col_suivi2) = ""
        Next n_col_suivi2
    Next n_lig_suivi2
    LD.Range(Cells(2, 2), Cells((nombre_max_lig_LD + 1), nombre_max_col_LD)).Interior.ColorIndex = 0
    nombre_max_lig_LD2 = 2
End Sub
 
Public Sub Quel_jalon()
   'On détermine quel jalon a été choisi (car on n'autorise pas le filtre sur un jalon  et , il faut choisir l'un des deux)
    If UserForm.Option_jalon_contractuel Then
        If UserForm.choix_jalon <> "" And UserForm.choix_jalon_ = "" Then
            choix_jalon = UserForm.choix_jalon.Value
            nc_jalon = nc_jalon
        ElseIf UserForm.choix_jalon = "" And UserForm.choix_jalon_ <> "" Then
            choix_jalon = UserForm.choix_jalon_.Value
            nc_jalon = nc_jalon_
        ElseIf UserForm.choix_jalon = "" And UserForm.choix_jalon_ = "" Then
            choix_jalon = ""
        End If
    ElseIf UserForm.Option_jalon_maj Then
        If UserForm.choix_jalon_ <> "" And UserForm.choix_jalon_ = "" Then
            choix_jalon = UserForm.choix_jalon_.Value
            nc_jalon = nc_jalon_maj
        ElseIf UserForm.choix_jalon_ = "" And UserForm.choix_jalon_ <> "" Then
            choix_jalon = UserForm.choix_jalon_.Value
            nc_jalon = nc_jalon_maj
        ElseIf UserForm.choix_jalon_ = "" And UserForm.choix_jalon_ = "" Then
            choix_jalon = ""
        End If
    End If
End Sub
Public Sub quel_soumission()
   'On détermine quel jalon a été choisi (car on n'autorise pas le filtre sur un jalon  et , il faut choisir l'un des deux)
    If (UserForm.choix_jalon_ <> "" Or UserForm.choix_jalon_ = "") And UserForm.choix_jalon_ = "" Then
        nc_soumission = nc_soumission__SD
    ElseIf UserForm.choix_jalon_ = "" And UserForm.choix_jalon_ <> "" Then
        nc_soumission = nc_soumission__SD
 
    End If
End Sub
 
                                                                'CAS 1: Un élément choisi
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub UnChoix(choix As String, nc_choix As Integer)
 
    nombre_max_lig_suivi = Application.CountA(SD.Columns(nc_titre)) + nbr_cell_vide_au_dessus_col_titre
 
    Call efface_tb_LD
 
'on parcours les lignes du suivi documentaire
    For n_lig_suivi = debut_tab_suivi To nombre_max_lig_suivi
        'On ne prend pas en compte les documents supprimé
        If Trim(SD_tab(n_lig_suivi, nc_doc_supprime) = "") Then
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
            'Cas 1 : Jalon ou resp ou phase ou soumission
            If SD_tab(n_lig_suivi, nc_choix) Like "*" & choix & "*" Then
                Call condition_complementaire
            End If
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        End If
    Next n_lig_suivi
 
 
    'On génére un graphique
    If UserForm.check_graph Then
        Call actualiser_tableau_cumule
    End If
    Unload UserForm
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 
                                                                'CAS 2: Deux éléments choisis
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub DeuxChoix(choix1 As String, choix2 As String, nc_choix1 As Integer, nc_choix2 As Integer)
 
 
    nombre_max_lig_suivi = Application.CountA(SD.Columns(nc_titre)) + nbr_cell_vide_au_dessus_col_titre
 
    Call efface_tb_LD
 
'on parcours les lignes du suivi documentaire
    For n_lig_suivi = debut_tab_suivi To nombre_max_lig_suivi
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'On ne prend pas en compte les documents supprimé
        If Trim(SD_tab(n_lig_suivi, nc_doc_supprime) = "") Then
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
            'Cas 1 : Jalon et resp OU jalon et soumission OU jalon et phase OU resp et soumission OU resp et phase OU soumission et phase
            If SD_tab(n_lig_suivi, nc_choix1) Like "*" & choix1 & "*" And SD_tab(n_lig_suivi, nc_choix2) Like "*" & choix2 & "*" Then
                Call condition_complementaire
            End If
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        End If
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Next n_lig_suivi
 
    'On génére un graphique
    If UserForm.check_graph Then
        Call actualiser_tableau_cumule
    End If
    Unload UserForm
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 
                                                                'CAS 3: Trois éléments choisis
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub TroisChoix(choix1 As String, choix2 As String, choix3 As String, nc_choix1 As Integer, nc_choix2 As Integer, nc_choix3 As Integer)
 
 
    nombre_max_lig_suivi = Application.CountA(SD.Columns(nc_titre)) + nbr_cell_vide_au_dessus_col_titre
 
'On efface le tableau
 
    Call efface_tb_LD
 
'on parcours les lignes du suivi documentaire
    For n_lig_suivi = debut_tab_suivi To nombre_max_lig_suivi
        nombre_max_lig_LD = Application.CountA(LD.Columns(2))
        'On ne prend pas en compte les documents supprimé
        If Trim(SD_tab(n_lig_suivi, nc_doc_supprime) = "") Then
            'Cas : jalon et resp et soumission OU jalon et resp et phase OU Jalon et soumission et phase OU Resp et phase et soumission
            If SD_tab(n_lig_suivi, nc_choix1) Like "*" & choix1 & "*" And SD_tab(n_lig_suivi, nc_choix2) Like "*" & choix2 & "*" And _
                SD_tab(n_lig_suivi, nc_choix3) Like "*" & choix3 & "*" _
            Then
                Call condition_complementaire
            End If
        End If
    Next n_lig_suivi
 
    'On génére un graphique
    If UserForm.check_graph Then
        Call actualiser_tableau_cumule
    End If
 
    Unload UserForm
End Sub
Sub QuatreChoix(choix1 As String, choix2 As String, choix3 As String, choix4 As String, nc_choix1 As Integer, nc_choix2 As Integer, nc_choix3 As Integer, nc_choix4 As Integer)
 
    nombre_max_lig_suivi = Application.CountA(SD.Columns(nc_titre)) + nbr_cell_vide_au_dessus_col_titre
 
    Call efface_tb_LD
 
 
'on parcours les lignes du suivi documentaire
    For n_lig_suivi = debut_tab_suivi To nombre_max_lig_suivi
 
        'On ne prend pas en compte les documents supprimé
        If SD_tab(n_lig_suivi, nc_doc_supprime) = "" Then
            'Cas unique : jalon et resp et soumission et phase
            If SD_tab(n_lig_suivi, nc_choix1) Like "*" & choix1 & "*" And SD_tab(n_lig_suivi, nc_choix2) Like "*" & choix2 & "*" And _
                SD_tab(n_lig_suivi, nc_choix3) Like "*" & choix3 & "*" And SD_tab(n_lig_suivi, nc_choix4) Like "*" & choix4 & "*" _
            Then
                Call condition_complementaire
            End If
        End If
 
    Next n_lig_suivi
 
    'On génére un graphique
    If UserForm.check_graph Then
    Call actualiser_tableau_cumule
    End If
 
 
    Unload UserForm
 
End Sub
 
 
Sub ZeroChoix()
 
    nombre_max_lig_suivi = Application.CountA(SD.Columns(nc_titre)) + nbr_cell_vide_au_dessus_col_titre
 
    Call efface_tb_LD
 
 
'on parcours les lignes du suivi documentaire
    For n_lig_suivi = debut_tab_suivi To nombre_max_lig_suivi
 
        'On ne prend pas en compte les documents supprimé
        If SD_tab(n_lig_suivi, nc_doc_supprime) = "" Then
            Call condition_complementaire
        End If
 
    Next n_lig_suivi
 
    'On génére un graphique
    If UserForm.check_graph Then
    Call actualiser_tableau_cumule
    End If
 
 
    Unload UserForm
 
End Sub

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
 
Option Explicit
 
 
Private Sub Check_derniere_soumission_Click()
    If Check_derniere_soumission = True Then
        choix_soumission.Enabled = False
        choix_soumission.Value = ""
    Else: choix_soumission.Enabled = True
    End If
End Sub
 
'
'Private Sub ComboBox1_Change()
'    Dim choix As String
'    Label6.Caption = Label6.Caption & "-" & ComboBox1.Value
'End Sub
 
 
Private Sub Annuler_Click()
    Unload Me
End Sub
 
Private Sub choix_jalon_Change()
    If choix_jalon_ <> "" Then
        choix_jalon_ = ""
    End If
End Sub
 
Private Sub choix_jalon__Change()
    If choix_jalon_ <> "" Then
        choix_jalon = ""
    End If
End Sub
 
Private Sub echeance_livraison_Change()
        If Not IsNumeric(echeance_livraison.Value) And echeance_livraison.Value <> "" _
    Then
        MsgBox "Veuillez écrire un nombre dans 'Documents à livrer dans X jours'"
        echeance_livraison.Value = ""
    End If
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Lancer_Click()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Set LD = Liste_documents
    Set SD = Suivi_documentaire
    Set IT = Indicateurs
    Set SD_plage = SD.Range("A1:DZ100000")
    Set LD_plage = LD.Range("A1:Z5000")
    Set IT_plage = IT.Range("A1:Z1000")
    SD_tab = SD_plage
    LD_tab = LD_plage
    IT_tab = IT_plage
 
    nombre_max_lig_LD = Application.CountA(LD.Columns(2))
 
 
'Il faut selectionner ou cocher au moins un élément pour lancer la recherche
    If choix_jalon_ = "" And choix_jalon = "" And choix_resp = "" And choix_soumission = "" And choix_phase = "" And Not Check_derniere_soumission And choix_soumission = "" And _
           echeance_livraison = "" And Not check_graph And Not check_prochaine_soumission And _
           Not Check_soumissionInterne _
    Then
        MsgBox "Filtrer sur au moins un élément"
        Exit Sub
    End If
 
'Il faut rentrer un nombre inférieur à 32000 dans "Documents à livrer dans..." car echeance_livraison est un Integer
    If IsNumeric(echeance_livraison) Then
        If CInt(echeance_livraison) > 32000 Then
            MsgBox "Veuillez rentrer un nombre inférieur à 32 000 !"
            Exit Sub
        End If
    End If
 
    If check_graph Then
        Call efface_tab_graph
    End If
 
    Call Quel_jalon
    Call quel_soumission
 
'Un choix sélectionné
    If (choix_jalon <> "" And choix_resp = "" And choix_soumission = "" And choix_phase = "") Then
        Call UnChoix(choix_jalon, nc_jalon)
 
    ElseIf (choix_jalon = "" And choix_resp <> "" And choix_soumission = "" And choix_phase = "") Then
        Call UnChoix(choix_resp, nc_resp)
 
    ElseIf (choix_jalon = "" And choix_resp = "" And choix_soumission <> "" And choix_phase = "") Then
        Call UnChoix(choix_soumission, nc_soumission)
 
    ElseIf (choix_jalon = "" And choix_resp = "" And choix_soumission = "" And choix_phase <> "") Then
        Call UnChoix(choix_phase, nc_phase_SD)
 
 
'Deux choix sélectionnés
        ElseIf (choix_jalon <> "" And choix_resp <> "" And choix_soumission = "" And choix_phase = "") Then
        Call DeuxChoix(choix_jalon, choix_resp, nc_jalon, nc_resp)
 
    ElseIf (choix_jalon <> "" And choix_resp = "" And choix_soumission <> "" And choix_phase = "") Then
        Call DeuxChoix(choix_jalon, choix_soumission, nc_jalon, nc_soumission)
 
    ElseIf (choix_jalon = "" And choix_resp <> "" And choix_soumission <> "" And choix_phase = "") Then
        Call DeuxChoix(choix_resp, choix_soumission, nc_resp, nc_soumission)
 
    ElseIf (choix_jalon <> "" And choix_resp = "" And choix_soumission = "" And choix_phase <> "") Then
        Call DeuxChoix(choix_jalon, choix_phase, nc_jalon, nc_phase_SD)
 
    ElseIf (choix_jalon = "" And choix_resp <> "" And choix_soumission = "" And choix_phase <> "") Then
        Call DeuxChoix(choix_resp, choix_phase, nc_resp, nc_phase_SD)
 
    ElseIf (choix_jalon = "" And choix_resp = "" And choix_soumission <> "" And choix_phase <> "") Then
        Call DeuxChoix(choix_soumission, choix_phase, nc_soumission, nc_phase_SD)
 
'Trois choix sélectionnés
    ElseIf (choix_jalon <> "" And choix_resp <> "" And choix_soumission <> "" And choix_phase = "") Then
        Call TroisChoix(choix_jalon, choix_resp, choix_soumission, nc_jalon, nc_resp, nc_soumission)
 
    ElseIf (choix_jalon <> "" And choix_resp <> "" And choix_soumission = "" And choix_phase <> "") Then
        Call TroisChoix(choix_jalon, choix_resp, choix_phase, nc_jalon, nc_resp, nc_phase_SD)
 
    ElseIf (choix_jalon <> "" And choix_resp = "" And choix_soumission <> "" And choix_phase <> "") Then
        Call TroisChoix(choix_jalon, choix_phase, choix_soumission, nc_jalon, nc_phase_SD, nc_soumission)
 
    ElseIf (choix_jalon = "" And choix_resp <> "" And choix_soumission <> "" And choix_phase <> "") Then
        Call TroisChoix(choix_phase, choix_resp, choix_soumission, nc_phase_SD, nc_resp, nc_soumission)
 
 
'Quatre choix sélectionés
    ElseIf (choix_jalon <> "" And choix_resp <> "" And choix_soumission <> "" And choix_phase <> "") Then
        Call QuatreChoix(choix_jalon, choix_resp, choix_soumission, choix_phase, nc_jalon, nc_resp, nc_soumission, nc_phase_SD)
 
'Zéro choix sélectioné
    Else
        Call ZeroChoix
    End If
 
    LD_plage = LD_tab
    IT_plage = IT_tab
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
    Set LD_plage = Nothing
    Set LD_tab = Nothing
    Set IT_plage = Nothing
    Set IT_tab = Nothing
    Set SD_tab = Nothing
    Set SD_plage = Nothing
 
    If check_graph Then
        Call maj_etiquette
    End If
 
End Sub

Merci

**unparia** · 25/08/2017, 17h28

Bonjour
Ouvre ton aide interne VBA à la rubrique Declare, instruction et intéresse-toi à ce qu'est l'argument Optional. Il est une des solutions possibles.
Une autre des solutions possibles serait l'utilisation d'une variable de type personnalisé, dont chacun des élément serait l'un des choix.

**eriiic** · 28/08/2017, 00h17

Bonjour,

tu peux transmettre systématiquement tes 4 choix à la macro, ils seront vides ou valorisés.
Le 1er tu sais que c'est le jalon, le 2nd le Resp, etc
Mais à partir du moment où tu utilises une macro unique, quelque soit la méthode, il faudra éventuellement faire dedans le tri que tu faisais sur le bouton : 1 à 4 choix de valorisés pour appliquer les traitements adéquats, à moins qu'ils soient indépendants.
eric

**Sami_Ba** · 28/08/2017, 10h29

Bonjour,

Merci à vous. Si je comprend bien on peut changer la forme mais dans la fond il faut tout de même traiter tous les cas.
Je m'attendais à une formule magique je crois ^^.
Je vais laisser cela comme ça, merci pour votre aide.

Sami

Méthodologie de traitement de tous les cas d'un Userform [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager