Bonjour,
J'ai besoin de votre aide, j'ai créé un classeur avec des macros, gérant des groupes et des mois
ce classeur sera utilisé par plusieurs utilisateurs en paralléle, donc j'ai mis ce classeur en partagé
cela marche pour les boutons équipes y a pas de problèmes, par contre pour les mois ( colonnes à masquer ou afficher) ca marche mais j'ai un message d'érreur comme sur la capture d'écran, après je mets fin, ca marche mais ca reste génant.
Auriez vous une solution pour moi?
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 Sub JANVIER() Columns("D:NG").Select Selection.EntireColumn.Hidden = False Columns("AJ:NE").Select Selection.EntireColumn.Hidden = True Range("E16").Select ActiveSheet.Shapes("Button 26").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleDouble .ColorIndex = 7 End With ActiveSheet.Shapes("Button 27").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 28").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 29").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 30").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 31").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 32").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 33").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 34").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 35").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 36").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 37").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 84").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 62").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 63").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 64").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With ActiveSheet.Shapes("Button 65").Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Underline = xlUnderlineStyleNone .Color = -16777088 End With Range("A1").Select End Sub
Merci de votre aide
Partager