Simplification de code VBA
Bonjour,
J'aimerais simplifié ce code pouvez-vous m'aider?
Code:
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
| Sheets("Analytique").Range("K2") = ComboBox41.Value
Sheets("Analytique").Range("K3") = ComboBox42.Value
Sheets("Analytique").Range("K4") = ComboBox43.Value
Sheets("Analytique").Range("K5") = ComboBox44.Value
Sheets("Analytique").Range("K6") = ComboBox45.Value
Sheets("Analytique").Range("K7") = ComboBox46.Value
Sheets("Analytique").Range("K8") = ComboBox47.Value
Sheets("Analytique").Range("K9") = ComboBox48.Value
Sheets("Analytique").Range("K10") = ComboBox49.Value
Sheets("Analytique").Range("K11") = ComboBox50.Value
Sheets("Analytique").Range("K12") = ComboBox51.Value
Sheets("Analytique").Range("K13") = ComboBox52.Value
Sheets("Analytique").Range("K14") = ComboBox53.Value
Sheets("Analytique").Range("K15") = ComboBox54.Value
Sheets("Analytique").Range("K16") = ComboBox55.Value
Sheets("Analytique").Range("K17") = ComboBox56.Value
Sheets("Analytique").Range("K18") = ComboBox57.Value
Sheets("Analytique").Range("K19") = ComboBox58.Value
Sheets("Analytique").Range("J20") = ComboBox59.Value
Sheets("Analytique").Range("K21") = ComboBox60.Value
Sheets("Analytique").Range("K22") = ComboBox61.Value
Sheets("Analytique").Range("K23") = ComboBox62.Value
Sheets("Analytique").Range("K24") = ComboBox63.Value
Sheets("Analytique").Range("K25") = ComboBox64.Value
Sheets("Analytique").Range("K26") = ComboBox65.Value
Sheets("Analytique").Range("K27") = ComboBox66.Value
Sheets("Analytique").Range("K28") = ComboBox67.Value
Sheets("Analytique").Range("K29") = ComboBox68.Value
Sheets("Analytique").Range("K30") = ComboBox69.Value
Sheets("Analytique").Range("K31") = ComboBox70.Value
Sheets("Analytique").Range("K32") = ComboBox71.Value
Sheets("Analytique").Range("K33") = ComboBox72.Value
Sheets("Analytique").Range("K34") = ComboBox73.Value
Sheets("Analytique").Range("K35") = ComboBox74.Value
Sheets("Analytique").Range("K36") = ComboBox75.Value
Sheets("Analytique").Range("K37") = ComboBox76.Value
Sheets("Analytique").Range("K38") = ComboBox77.Value
Sheets("Analytique").Range("K39") = ComboBox78.Value
Sheets("Analytique").Range("K40") = ComboBox79.Value
Sheets("Analytique").Range("K41") = ComboBox80.Value |
