alléger un code de condition

**panda78** · 13/08/2012, 16h47

Bonjour je souhaiterai alléger ce code qui fonctionne très bien mais fais mal aux yeux à cause de sa longueur. Merci

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
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
 If cboMatParoi.Text = "Béton dense" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 2
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 2
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 2
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 2
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 2
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 2
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 2
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 2
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 2
                              m = 10
                              End If
 
                          ElseIf cboMatParoi.Text = "Béton léger" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 3
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 3
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 3
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 3
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 3
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 3
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 3
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 3
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 3
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Parpaings pleins" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 4
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 4
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 4
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 4
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 4
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 4
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 4
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 4
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 4
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Parpaings creux" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 5
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 5
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 5
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 5
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 5
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 5
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 5
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 5
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 5
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Brique pleine" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 6
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 6
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 6
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 6
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 6
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 6
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 6
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 6
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 6
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Brique creuse" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 7
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 7
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 7
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 7
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 7
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 7
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 7
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 7
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 7
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Pan de bois" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 8
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 8
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 8
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 8
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 8
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 8
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 8
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 8
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 8
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Pan de fer" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 9
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 9
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 9
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 9
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 9
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 9
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 9
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 9
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 9
                              m = 10
                              End If
                          ElseIf cboMatParoi.Text = "Moellon" Then
                              If cboMatMit.Text = "Béton dense" Then
                              n = 10
                              m = 2
                              ElseIf cboMatMit.Text = "Béton léger" Then
                              n = 10
                              m = 3
                              ElseIf cboMatMit.Text = "Parpaings pleins" Then
                              n = 10
                              m = 4
                              ElseIf cboMatMit.Text = "Parpaings creux" Then
                              n = 10
                              m = 5
                              ElseIf cboMatMit.Text = "Brique pleine" Then
                              n = 10
                              m = 6
                              ElseIf cboMatMit.Text = "Brique creuse" Then
                              n = 10
                              m = 7
                              ElseIf cboMatMit.Text = "Pan de bois" Then
                              n = 10
                              m = 8
                              ElseIf cboMatMit.Text = "Pan de fer" Then
                              n = 10
                              m = 9
                              ElseIf cboMatMit.Text = "Moellon" Then
                              n = 10
                              m = 10
                              End If
                          End If

**Theze** · 13/08/2012, 17h39

Bonjour,

De cette façon ça raccourci bien :

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
 
Select Case cboMatMit.Text
 
    Case "Béton dense": m = 2
    Case "Béton léger": m = 3
    Case "Parpaings pleins": m = 4
    Case "Parpaings creux": m = 5
    Case "Brique pleine": m = 6
    Case "Brique creuse": m = 7
    Case "Pan de bois": m = 8
    Case "Pan de fer": m = 9
    Case "Moellon": m = 10
 
End Select
 
Select Case cboMatParoi.Text
 
    Case "Béton dense": n = 2
    Case "Béton léger": n = 3
    Case "Parpaings pleins": n = 4
    Case "Parpaings creux": n = 5
    Case "Brique pleine": n = 6
    Case "Brique creuse": n = 7
    Case "Pan de bois": n = 8
    Case "Pan de fer": n = 9
    Case "Moellon": n = 10
 
End Select

Hervé.

**panda78** · 13/08/2012, 18h01

en effet ! Merci beaucoup

**Daniel.C** · 13/08/2012, 18h34

Bonjour,

Sauf erreur :

Code :

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

1
2
3
4
MatParoi = Array("Béton dense", "Béton léger", "Parpaings pleins", "Parpaings creux", "Brique pleine", "Brique creuse", _
"Pan de bois", "Pan de fer", "Moellon")
n = Application.Match(cboMatParoi.Text, MatParoi, 0) + 1
m = Application.Match(cboMatMit.Text, MatParoi, 0) + 1

**el_slapper** · 14/08/2012, 10h12

perso, je trouve la solution de Theze plus lisible, même si moins élégante.

**panda78** · 14/08/2012, 11h25

Moi aussi c'est celle que j'ai adopté dans mon code

Super la citation

**Philippe Tulliez** · 14/08/2012, 12h54

Bonjour,
Une autre option serait d'avoir dans une feuille du classeur un tableau à 3 colonnes nommé par exemple dbMat dont la première colonne contient les libellés, la deuxième colonne les valeurs n et la troisième les valeurs m
txt est une variable contient la valeur de cboMatParoi.Text ou cboMatMit.Text
La constante 2 renvoie n mais pourrait être une variable.

Code :

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

 Debug.Print Application.WorksheetFunction.VLookup(txt, Range("dbMat"), 2, False)

L'avantage de cette solution. Dans le cas où les valeurs n ou m changent, plus besoins de modifier le code VBA.

**Daniel.C** · 14/08/2012, 13h30

Bonjour,

Pour panda78 :

Moi aussi c'est celle que j'ai adopté dans mon code

Mais c'est moins efficace ! pour la valeur "Moellon" (la pire, à dire vrai) dans les deux combos, tu fais 18 tests successifs. Et, pour aller dans le sens de Corona, j'ai ajouté 2 arrays qui offrent la souplesse éventuellement nécessaire :

Code :

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

1
2
3
4
5
6
7
8
ValeursDeM = Array(2, 3, 4, 5, 6, 7, 8, 9, 10)
ValeursDeN = Array(2, 3, 4, 5, 6, 7, 8, 9, 10)
MatParoi = Array("Béton dense", "Béton léger", "Parpaings pleins", "Parpaings creux", "Brique pleine", "Brique creuse", _
"Pan de bois", "Pan de fer", "Moellon")
With Application
    n = .Index(ValeursDeN, .Match(cboMatParoi.Text, MatParoi, 0))
    m = .Index(ValeursDeM, .Match(cboMatMit.Text, MatParoi, 0))
End With

**panda78** · 14/08/2012, 13h35

Merci! je vais mettre tout ça en action dans mon code

**Philippe Tulliez** · 14/08/2012, 14h11

Bonjour,
L'autre avantage que j'ai oublié de mentionner. En utilisant une base de données externe (tableau). Si dans l'avenir un ou plusieurs libellés s'ajoutent, sont à modifier, il suffit de modifier la base de données sans toucher au code.

**el_slapper** · 14/08/2012, 14h13

Envoyé par Daniel.C

(.../...)
Mais c'est moins efficace ! pour la valeur "Moellon" (la pire, à dire vrai) dans les deux combos, tu fais 18 tests successifs. Et, pour aller dans le sens de Corona, j'ai ajouté 2 arrays qui offrent la souplesse éventuellement nécessaire :
(.../...)

et?

C'est grave? Est-ce que le code est executé souvent? Si il n'est pas executé des millions de fois, 18 tests, franchement, ça n'est rien. Par contre, la capacité de corriger/modifier rapidement les valeurs quand le besoin apparait, elle, est importante.

La solution de corona est aussi puissante à ce niveau-là : on a un problème, on change la feuille de paramètrage, et tout va bien!

**Daniel.C** · 14/08/2012, 14h19

C'est la solution à priori. Ca dépend aussi du contexte. Si on boucle 10000 fois sur la séquence, on a intérêt à charger la table en mémoire...

@ el_slapper :

C'est grave? Est-ce que le code est executé souvent?

Je ne le sais pas plus que toi. Il me semble que dans tous les cas, on doit chercher à optimiser le code. Non, "c'est pas grave", le code initial fonctionnait même très bien.

Par contre, la capacité de corriger/modifier rapidement les valeurs quand le besoin apparait, elle, est importante.

Que sait-on du besoin ? au reste, mon message de 13:30 adresse ce problème. Je ne comprends pas trop ton attitude. Tous les autres contributeurs ont fourni leur solution. Qui es-tu pour distribuer les satisfecits sans pour autant fournir ta solution ?

**panda78** · 14/08/2012, 16h39

Merci pour votre aide!
Dans le même registre j'aimerai simplifier le code suivant:

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
   If cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Béton dense" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 2
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 2
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 2
                         End If
                     ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Béton léger" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 3
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 3
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 3
                         End If
                     ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Parpaings pleins" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 4
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 4
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 4
                         End If
                     ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Parpaings creux" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 5
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 5
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 5
                         End If
                      ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Brique pleine" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 6
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 6
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 6
                         End If
                     ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Brique creuse" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 7
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 7
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 7
                         End If
 
                      ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Pan de bois" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 8
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 8
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 8
                         End If
                     ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Pan de fer" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 9
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 9
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 9
                         End If
                    ElseIf cboTypParoi.Text = "Plancher" And Me.cboMatMit.Text = "Moellon" Then
                         If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
                            Or cboNatParoi.Text = "Bac collaborant" Or cboNatParoi.Text = "Chape béton" Then
                                n = 14
                                m = 10
                         ElseIf cboNatParoi.Text = "Plancher bois" Then
                                n = 19
                                m = 10
                         ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
                                n = 20
                                m = 10
                         End If
                    End If

**Daniel.C** · 14/08/2012, 17h43

Je me suis pressé de faire ça et je ne l'ai pas testé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ValeursDeM = Array(2, 3, 4, 5, 6, 7, 8, 9, 10)
ValeursDeN = Array(14, 14, 14, 14, 14, 14, 14, 19, 20)
MatMit = Array("Béton dense", "Béton léger", "Parpaings pleins", "Parpaings creux", "Brique pleine", "Brique creuse", _
"Pan de bois", "Pan de fer", "Moellon")
MatParoi = Array("Dalle béton", "Dalle béton sur poutrelle métallique", "Dallage sur terre plein", _
"Bac collaborant", "Chape béton", "Plancher bois", "Poutrelle métallique")
If cboTypParoi.Text = "Plancher" Then
With Application
    n = .Index(ValeursDeN, .Match(cboMatParoi.Text, MatParoi, 0))
    m = .Index(ValeursDeM, .Match(Me.cboMatMit.Text, MatMit, 0))
End With
End If

**panda78** · 14/08/2012, 20h39

merci je vais le tester.

alléger un code de condition

Macros et VBA Excel

Discussions similaires

Partager

Partager