[XL-2013] Décocher un OptionButton

Décocher un OptionButton

Bonjour chères experts de VBA

J'ai trois OptionButton dont un qui est caché

OptionButton1 = Visible
OptionButton2 = Visible
OptionButton3 = Caché

Je veux pouvoir décocher OptionButton1 si elle est activée (true) et que l'utilisateur reclique dessus. Dans ce cas, c'est l'OptionButton3 qui se coche (personne ne le voit puisqu'il est caché)

Voici ma proposition de code (qui ne fonctionne pas. Avec ce code, OptionButton1 refuse simplement de se cocher)
Code:

1 2 3 4 5 6 Private Sub OptionButton1_Click() If Me.OLEObjects("OptionButton1").Object.Value = True Then Me.OLEObjects("OptionButton3").Object.Value = True Me.OLEObjects("OptionButton1").Object.Value = False End If End Sub
Pourquoi ça ne fonctionne pas????

J'ai une autre question. Après avoir fait des test, je me rends compte que VBA ne considère pas le click sur un OptionButton lorsque celui-ci est déjà coché (true). Y'a-t-il moyen de forcer VBA à considérer un click sur un bouton radio déjà coché?

Merci

Bonjour, bonjour !

Le bouton ne peut rien refuser ! Tout simplement le code n'a aucun rapport avec le besoin exposé ‼

D'après toi, quelle ligne cocherait le bouton ?!

Citation:

Envoyé par Marc-L

D'après toi, quelle ligne cocherait le bouton ?!

Merci pour la réponse, mais je ne suis pas certain de saisir la question!

Mais c'est vrai qu'avec une relecture, mon explication n'est peut-être pas très claire.

En fait, ce que je veux, c'est de permettre à un utilisateur d'enlever le point du bouton radio, advenant qu'il l'ai fait apparaître par erreur. Comme ce fameux point ne peut plus être effacé lorsqu'on le fait apparaître, j'ai ajouté un bouton radio caché (même nom de groupe) et je veux que ce soit lui qui soit activé si l'utilisateur commet une erreur (dans ce cas, le point ne sera plus visible). Pour effacer le point non-désiré, je veux simplement que l'utilisateur clique à nouveau sur un bouton radio contenant déjà un point. Le programme comprendra alors qu'il doit faire "afficher" un point dans la case cachée...<

Voilà

Salut,

Pour la 2ème question, utilise d'autres événements que le Click:
Code:

1 2 3 4 5 6 7 8 Private Sub OptionButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Debug.Print "OptionButton2_MouseDown" End Sub Private Sub OptionButton2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Debug.Print "OptionButton2_MouseUp" End Sub
------------------

Pour la 1ère question, il faudra bien l'activer une 1ère fois, c'est là que ton code devra être en quelque sorte bypassé (via une variable booleénne stocké en dur dans une cellule par exemple) pour ne pas qu'il exécute la Macro que tu as montré la 1ère fois que tu cliquera dessus (sur la case d'option).

Super!!! Merci ça fonctionne
Code:

1 2 3 4 5 Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Me.OLEObjects("OptionButton1").Object.Value = True Then Me.OLEObjects("OptionButton1").Object.Value = False End If End Sub
Maintenant, comment faire ce code pour les 138 OptionButton de mon programme
Code:

1 2 3 4 5 6 7 Private Sub ("OptionButton" & i)_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) For i = 1 To 138 If Me.OLEObjects("OptionButton" & i).Object.Value = True Then Me.OLEObjects("OptionButton" & i).Object.Value = False End If Next End Sub
Mon code se situe sur Feuil2

Merci

------------------

Pour la 1ère question, il faudra bien l'activer une 1ère fois, c'est là que ton code devra être en quelque sorte bypassé (via une variable booleénne stocké en dur dans une cellule par exemple) pour ne pas qu'il exécute la Macro que tu as montré la 1ère fois que tu cliquera dessus (sur la case d'option).

Voici l'horreur!!!!
Peux-ton simplifier?

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
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
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton1").Object.Value = True Then
    Me.OLEObjects("OptionButton1").Object.Value = False
    End If
End Sub
Private Sub OptionButton2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton2").Object.Value = True Then
    Me.OLEObjects("OptionButton2").Object.Value = False
    End If
End Sub
Private Sub OptionButton3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton3").Object.Value = True Then
    Me.OLEObjects("OptionButton3").Object.Value = False
    End If
End Sub
Private Sub OptionButton4_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton4").Object.Value = True Then
    Me.OLEObjects("OptionButton4").Object.Value = False
    End If
End Sub
Private Sub OptionButton5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton5").Object.Value = True Then
    Me.OLEObjects("OptionButton5").Object.Value = False
    End If
End Sub
Private Sub OptionButton6_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton6").Object.Value = True Then
    Me.OLEObjects("OptionButton6").Object.Value = False
    End If
End Sub
Private Sub OptionButton7_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton7").Object.Value = True Then
    Me.OLEObjects("OptionButton7").Object.Value = False
    End If
End Sub
Private Sub OptionButton8_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton8").Object.Value = True Then
    Me.OLEObjects("OptionButton8").Object.Value = False
    End If
End Sub
Private Sub OptionButton9_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton9").Object.Value = True Then
    Me.OLEObjects("OptionButton9").Object.Value = False
    End If
End Sub
Private Sub OptionButton10_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton10").Object.Value = True Then
    Me.OLEObjects("OptionButton10").Object.Value = False
    End If
End Sub
Private Sub OptionButton11_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton11").Object.Value = True Then
    Me.OLEObjects("OptionButton11").Object.Value = False
    End If
End Sub
Private Sub OptionButton12_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton12").Object.Value = True Then
    Me.OLEObjects("OptionButton12").Object.Value = False
    End If
End Sub
Private Sub OptionButton13_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton13").Object.Value = True Then
    Me.OLEObjects("OptionButton13").Object.Value = False
    End If
End Sub
Private Sub OptionButton14_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton14").Object.Value = True Then
    Me.OLEObjects("OptionButton14").Object.Value = False
    End If
End Sub
Private Sub OptionButton15_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton15").Object.Value = True Then
    Me.OLEObjects("OptionButton15").Object.Value = False
    End If
End Sub
Private Sub OptionButton16_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton16").Object.Value = True Then
    Me.OLEObjects("OptionButton16").Object.Value = False
    End If
End Sub
Private Sub OptionButton17_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton17").Object.Value = True Then
    Me.OLEObjects("OptionButton17").Object.Value = False
    End If
End Sub
Private Sub OptionButton18_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton18").Object.Value = True Then
    Me.OLEObjects("OptionButton18").Object.Value = False
    End If
End Sub
Private Sub OptionButton19_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton19").Object.Value = True Then
    Me.OLEObjects("OptionButton19").Object.Value = False
    End If
End Sub
Private Sub OptionButton20_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton20").Object.Value = True Then
    Me.OLEObjects("OptionButton20").Object.Value = False
    End If
End Sub
Private Sub OptionButton21_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton21").Object.Value = True Then
    Me.OLEObjects("OptionButton21").Object.Value = False
    End If
End Sub
Private Sub OptionButton22_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton22").Object.Value = True Then
    Me.OLEObjects("OptionButton22").Object.Value = False
    End If
End Sub
Private Sub OptionButton23_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton23").Object.Value = True Then
    Me.OLEObjects("OptionButton23").Object.Value = False
    End If
End Sub
Private Sub OptionButton24_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton24").Object.Value = True Then
    Me.OLEObjects("OptionButton24").Object.Value = False
    End If
End Sub
Private Sub OptionButton25_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton25").Object.Value = True Then
    Me.OLEObjects("OptionButton25").Object.Value = False
    End If
End Sub
Private Sub OptionButton26_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton26").Object.Value = True Then
    Me.OLEObjects("OptionButton26").Object.Value = False
    End If
End Sub
Private Sub OptionButton27_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton27").Object.Value = True Then
    Me.OLEObjects("OptionButton27").Object.Value = False
    End If
End Sub
Private Sub OptionButton28_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton28").Object.Value = True Then
    Me.OLEObjects("OptionButton28").Object.Value = False
    End If
End Sub
Private Sub OptionButton29_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton29").Object.Value = True Then
    Me.OLEObjects("OptionButton29").Object.Value = False
    End If
End Sub
Private Sub OptionButton30_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton30").Object.Value = True Then
    Me.OLEObjects("OptionButton30").Object.Value = False
    End If
End Sub
Private Sub OptionButton31_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton31").Object.Value = True Then
    Me.OLEObjects("OptionButton31").Object.Value = False
    End If
End Sub
Private Sub OptionButton32_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton32").Object.Value = True Then
    Me.OLEObjects("OptionButton32").Object.Value = False
    End If
End Sub
Private Sub OptionButton33_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton33").Object.Value = True Then
    Me.OLEObjects("OptionButton33").Object.Value = False
    End If
End Sub
Private Sub OptionButton34_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton34").Object.Value = True Then
    Me.OLEObjects("OptionButton34").Object.Value = False
    End If
End Sub
Private Sub OptionButton35_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton35").Object.Value = True Then
    Me.OLEObjects("OptionButton35").Object.Value = False
    End If
End Sub
Private Sub OptionButton36_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton36").Object.Value = True Then
    Me.OLEObjects("OptionButton36").Object.Value = False
    End If
End Sub
Private Sub OptionButton37_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton37").Object.Value = True Then
    Me.OLEObjects("OptionButton37").Object.Value = False
    End If
End Sub
Private Sub OptionButton38_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton38").Object.Value = True Then
    Me.OLEObjects("OptionButton38").Object.Value = False
    End If
End Sub
Private Sub OptionButton39_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton39").Object.Value = True Then
    Me.OLEObjects("OptionButton39").Object.Value = False
    End If
End Sub
Private Sub OptionButton40_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton40").Object.Value = True Then
    Me.OLEObjects("OptionButton40").Object.Value = False
    End If
End Sub
Private Sub OptionButton41_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton41").Object.Value = True Then
    Me.OLEObjects("OptionButton41").Object.Value = False
    End If
End Sub
Private Sub OptionButton42_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton42").Object.Value = True Then
    Me.OLEObjects("OptionButton42").Object.Value = False
    End If
End Sub
Private Sub OptionButton43_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton43").Object.Value = True Then
    Me.OLEObjects("OptionButton43").Object.Value = False
    End If
End Sub
Private Sub OptionButton44_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton44").Object.Value = True Then
    Me.OLEObjects("OptionButton44").Object.Value = False
    End If
End Sub
Private Sub OptionButton45_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton45").Object.Value = True Then
    Me.OLEObjects("OptionButton45").Object.Value = False
    End If
End Sub
Private Sub OptionButton46_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton46").Object.Value = True Then
    Me.OLEObjects("OptionButton46").Object.Value = False
    End If
End Sub
Private Sub OptionButton47_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton47").Object.Value = True Then
    Me.OLEObjects("OptionButton47").Object.Value = False
    End If
End Sub
Private Sub OptionButton48_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton48").Object.Value = True Then
    Me.OLEObjects("OptionButton48").Object.Value = False
    End If
End Sub
Private Sub OptionButton49_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton49").Object.Value = True Then
    Me.OLEObjects("OptionButton49").Object.Value = False
    End If
End Sub
Private Sub OptionButton50_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton50").Object.Value = True Then
    Me.OLEObjects("OptionButton50").Object.Value = False
    End If
End Sub
Private Sub OptionButton51_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton51").Object.Value = True Then
    Me.OLEObjects("OptionButton51").Object.Value = False
    End If
End Sub
Private Sub OptionButton52_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton52").Object.Value = True Then
    Me.OLEObjects("OptionButton52").Object.Value = False
    End If
End Sub
Private Sub OptionButton53_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton53").Object.Value = True Then
    Me.OLEObjects("OptionButton53").Object.Value = False
    End If
End Sub
Private Sub OptionButton54_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton54").Object.Value = True Then
    Me.OLEObjects("OptionButton54").Object.Value = False
    End If
End Sub
Private Sub OptionButton55_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton55").Object.Value = True Then
    Me.OLEObjects("OptionButton55").Object.Value = False
    End If
End Sub
Private Sub OptionButton56_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton56").Object.Value = True Then
    Me.OLEObjects("OptionButton56").Object.Value = False
    End If
End Sub
Private Sub OptionButton57_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton57").Object.Value = True Then
    Me.OLEObjects("OptionButton57").Object.Value = False
    End If
End Sub
Private Sub OptionButton58_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton58").Object.Value = True Then
    Me.OLEObjects("OptionButton58").Object.Value = False
    End If
End Sub
Private Sub OptionButton59_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton59").Object.Value = True Then
    Me.OLEObjects("OptionButton59").Object.Value = False
    End If
End Sub
Private Sub OptionButton60_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton60").Object.Value = True Then
    Me.OLEObjects("OptionButton60").Object.Value = False
    End If
End Sub
Private Sub OptionButton61_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton61").Object.Value = True Then
    Me.OLEObjects("OptionButton61").Object.Value = False
    End If
End Sub
Private Sub OptionButton62_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton62").Object.Value = True Then
    Me.OLEObjects("OptionButton62").Object.Value = False
    End If
End Sub
Private Sub OptionButton63_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton63").Object.Value = True Then
    Me.OLEObjects("OptionButton63").Object.Value = False
    End If
End Sub
Private Sub OptionButton64_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton64").Object.Value = True Then
    Me.OLEObjects("OptionButton64").Object.Value = False
    End If
End Sub
Private Sub OptionButton65_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton65").Object.Value = True Then
    Me.OLEObjects("OptionButton65").Object.Value = False
    End If
End Sub
Private Sub OptionButton66_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton66").Object.Value = True Then
    Me.OLEObjects("OptionButton66").Object.Value = False
    End If
End Sub
Private Sub OptionButton67_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton67").Object.Value = True Then
    Me.OLEObjects("OptionButton67").Object.Value = False
    End If
End Sub
Private Sub OptionButton68_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton68").Object.Value = True Then
    Me.OLEObjects("OptionButton68").Object.Value = False
    End If
End Sub
Private Sub OptionButton69_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton69").Object.Value = True Then
    Me.OLEObjects("OptionButton69").Object.Value = False
    End If
End Sub
Private Sub OptionButton70_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton70").Object.Value = True Then
    Me.OLEObjects("OptionButton70").Object.Value = False
    End If
End Sub
Private Sub OptionButton71_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton71").Object.Value = True Then
    Me.OLEObjects("OptionButton71").Object.Value = False
    End If
End Sub
Private Sub OptionButton72_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton72").Object.Value = True Then
    Me.OLEObjects("OptionButton72").Object.Value = False
    End If
End Sub
Private Sub OptionButton73_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton73").Object.Value = True Then
    Me.OLEObjects("OptionButton73").Object.Value = False
    End If
End Sub
Private Sub OptionButton74_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton74").Object.Value = True Then
    Me.OLEObjects("OptionButton74").Object.Value = False
    End If
End Sub
Private Sub OptionButton75_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton75").Object.Value = True Then
    Me.OLEObjects("OptionButton75").Object.Value = False
    End If
End Sub
Private Sub OptionButton76_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton76").Object.Value = True Then
    Me.OLEObjects("OptionButton76").Object.Value = False
    End If
End Sub
Private Sub OptionButton77_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton77").Object.Value = True Then
    Me.OLEObjects("OptionButton77").Object.Value = False
    End If
End Sub
Private Sub OptionButton78_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton78").Object.Value = True Then
    Me.OLEObjects("OptionButton78").Object.Value = False
    End If
End Sub
Private Sub OptionButton79_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton79").Object.Value = True Then
    Me.OLEObjects("OptionButton79").Object.Value = False
    End If
End Sub
Private Sub OptionButton80_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton80").Object.Value = True Then
    Me.OLEObjects("OptionButton80").Object.Value = False
    End If
End Sub
Private Sub OptionButton81_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton81").Object.Value = True Then
    Me.OLEObjects("OptionButton81").Object.Value = False
    End If
End Sub
Private Sub OptionButton82_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton82").Object.Value = True Then
    Me.OLEObjects("OptionButton82").Object.Value = False
    End If
End Sub
Private Sub OptionButton83_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton83").Object.Value = True Then
    Me.OLEObjects("OptionButton83").Object.Value = False
    End If
End Sub
Private Sub OptionButton84_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton84").Object.Value = True Then
    Me.OLEObjects("OptionButton84").Object.Value = False
    End If
End Sub
Private Sub OptionButton85_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton85").Object.Value = True Then
    Me.OLEObjects("OptionButton85").Object.Value = False
    End If
End Sub
Private Sub OptionButton86_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton86").Object.Value = True Then
    Me.OLEObjects("OptionButton86").Object.Value = False
    End If
End Sub
Private Sub OptionButton87_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton87").Object.Value = True Then
    Me.OLEObjects("OptionButton87").Object.Value = False
    End If
End Sub
Private Sub OptionButton88_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton88").Object.Value = True Then
    Me.OLEObjects("OptionButton88").Object.Value = False
    End If
End Sub
Private Sub OptionButton89_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton89").Object.Value = True Then
    Me.OLEObjects("OptionButton89").Object.Value = False
    End If
End Sub
Private Sub OptionButton90_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton90").Object.Value = True Then
    Me.OLEObjects("OptionButton90").Object.Value = False
    End If
End Sub
Private Sub OptionButton91_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton91").Object.Value = True Then
    Me.OLEObjects("OptionButton91").Object.Value = False
    End If
End Sub
Private Sub OptionButton92_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton92").Object.Value = True Then
    Me.OLEObjects("OptionButton92").Object.Value = False
    End If
End Sub
Private Sub OptionButton93_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton93").Object.Value = True Then
    Me.OLEObjects("OptionButton93").Object.Value = False
    End If
End Sub
Private Sub OptionButton94_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton94").Object.Value = True Then
    Me.OLEObjects("OptionButton94").Object.Value = False
    End If
End Sub
Private Sub OptionButton95_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton95").Object.Value = True Then
    Me.OLEObjects("OptionButton95").Object.Value = False
    End If
End Sub
Private Sub OptionButton96_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton96").Object.Value = True Then
    Me.OLEObjects("OptionButton96").Object.Value = False
    End If
End Sub
Private Sub OptionButton97_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton97").Object.Value = True Then
    Me.OLEObjects("OptionButton97").Object.Value = False
    End If
End Sub
Private Sub OptionButton98_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton98").Object.Value = True Then
    Me.OLEObjects("OptionButton98").Object.Value = False
    End If
End Sub
Private Sub OptionButton99_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton99").Object.Value = True Then
    Me.OLEObjects("OptionButton99").Object.Value = False
    End If
End Sub
Private Sub OptionButton100_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton100").Object.Value = True Then
    Me.OLEObjects("OptionButton100").Object.Value = False
    End If
End Sub
Private Sub OptionButton101_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton101").Object.Value = True Then
    Me.OLEObjects("OptionButton101").Object.Value = False
    End If
End Sub
Private Sub OptionButton102_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton102").Object.Value = True Then
    Me.OLEObjects("OptionButton102").Object.Value = False
    End If
End Sub
Private Sub OptionButton103_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton103").Object.Value = True Then
    Me.OLEObjects("OptionButton103").Object.Value = False
    End If
End Sub
Private Sub OptionButton104_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton104").Object.Value = True Then
    Me.OLEObjects("OptionButton104").Object.Value = False
    End If
End Sub
Private Sub OptionButton105_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton105").Object.Value = True Then
    Me.OLEObjects("OptionButton105").Object.Value = False
    End If
End Sub
Private Sub OptionButton106_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton106").Object.Value = True Then
    Me.OLEObjects("OptionButton106").Object.Value = False
    End If
End Sub
Private Sub OptionButton107_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton107").Object.Value = True Then
    Me.OLEObjects("OptionButton107").Object.Value = False
    End If
End Sub
Private Sub OptionButton108_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton108").Object.Value = True Then
    Me.OLEObjects("OptionButton108").Object.Value = False
    End If
End Sub
Private Sub OptionButton109_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton109").Object.Value = True Then
    Me.OLEObjects("OptionButton109").Object.Value = False
    End If
End Sub
Private Sub OptionButton110_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton110").Object.Value = True Then
    Me.OLEObjects("OptionButton110").Object.Value = False
    End If
End Sub
Private Sub OptionButton111_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton111").Object.Value = True Then
    Me.OLEObjects("OptionButton111").Object.Value = False
    End If
End Sub
Private Sub OptionButton112_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton112").Object.Value = True Then
    Me.OLEObjects("OptionButton112").Object.Value = False
    End If
End Sub
Private Sub OptionButton113_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton113").Object.Value = True Then
    Me.OLEObjects("OptionButton113").Object.Value = False
    End If
End Sub
Private Sub OptionButton114_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton114").Object.Value = True Then
    Me.OLEObjects("OptionButton114").Object.Value = False
    End If
End Sub
Private Sub OptionButton115_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton115").Object.Value = True Then
    Me.OLEObjects("OptionButton115").Object.Value = False
    End If
End Sub
Private Sub OptionButton116_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton116").Object.Value = True Then
    Me.OLEObjects("OptionButton116").Object.Value = False
    End If
End Sub
Private Sub OptionButton117_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton117").Object.Value = True Then
    Me.OLEObjects("OptionButton117").Object.Value = False
    End If
End Sub
Private Sub OptionButton118_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton118").Object.Value = True Then
    Me.OLEObjects("OptionButton118").Object.Value = False
    End If
End Sub
Private Sub OptionButton119_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton119").Object.Value = True Then
    Me.OLEObjects("OptionButton119").Object.Value = False
    End If
End Sub
Private Sub OptionButton120_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton120").Object.Value = True Then
    Me.OLEObjects("OptionButton120").Object.Value = False
    End If
End Sub
Private Sub OptionButton121_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton121").Object.Value = True Then
    Me.OLEObjects("OptionButton121").Object.Value = False
    End If
End Sub
Private Sub OptionButton122_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton122").Object.Value = True Then
    Me.OLEObjects("OptionButton122").Object.Value = False
    End If
End Sub
Private Sub OptionButton123_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton123").Object.Value = True Then
    Me.OLEObjects("OptionButton123").Object.Value = False
    End If
End Sub
Private Sub OptionButton124_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton124").Object.Value = True Then
    Me.OLEObjects("OptionButton124").Object.Value = False
    End If
End Sub
Private Sub OptionButton125_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton125").Object.Value = True Then
    Me.OLEObjects("OptionButton125").Object.Value = False
    End If
End Sub
Private Sub OptionButton126_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton126").Object.Value = True Then
    Me.OLEObjects("OptionButton126").Object.Value = False
    End If
End Sub
Private Sub OptionButton127_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton127").Object.Value = True Then
    Me.OLEObjects("OptionButton127").Object.Value = False
    End If
End Sub
Private Sub OptionButton128_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton128").Object.Value = True Then
    Me.OLEObjects("OptionButton128").Object.Value = False
    End If
End Sub
Private Sub OptionButton129_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton129").Object.Value = True Then
    Me.OLEObjects("OptionButton129").Object.Value = False
    End If
End Sub
Private Sub OptionButton130_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton0").Object.Value = True Then
    Me.OLEObjects("OptionButton0").Object.Value = False
    End If
End Sub
Private Sub OptionButton131_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton131").Object.Value = True Then
    Me.OLEObjects("OptionButton131").Object.Value = False
    End If
End Sub
Private Sub OptionButton132_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton132").Object.Value = True Then
    Me.OLEObjects("OptionButton132").Object.Value = False
    End If
End Sub
Private Sub OptionButton133_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton133").Object.Value = True Then
    Me.OLEObjects("OptionButton133").Object.Value = False
    End If
End Sub
Private Sub OptionButton134_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton134").Object.Value = True Then
    Me.OLEObjects("OptionButton134").Object.Value = False
    End If
End Sub
Private Sub OptionButton135_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton135").Object.Value = True Then
    Me.OLEObjects("OptionButton135").Object.Value = False
    End If
End Sub
Private Sub OptionButton136_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton136").Object.Value = True Then
    Me.OLEObjects("OptionButton136").Object.Value = False
    End If
End Sub
Private Sub OptionButton137_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton137").Object.Value = True Then
    Me.OLEObjects("OptionButton137").Object.Value = False
    End If
End Sub
Private Sub OptionButton138_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.OLEObjects("OptionButton138").Object.Value = True Then
    Me.OLEObjects("OptionButton138").Object.Value = False
    End If
End Sub

Bonjour,
Plutôt que d'utiliser 138 procédures événementielles, tu peux utiliser le mot-clé WithEvents placé dans un module de classe.
Voici un exemple qui affiche le nom de l'OptionButton ainsi que le nom de son groupe lorsque l'on clique dessus
Attention Pour que cela fonctionne, il faut activer la feuille.
Code à placer dans un module de classe nommé clsOle
Code:

1 2 3 4 5 6 7 8 Option Explicit Public WithEvents optBtn As MSForms.OptionButton Private Sub optBtn_Click() ' Affiche le nom du CheckBox et le nom de son groupe With optBtn MsgBox .Name & " du groupe " & .GroupName End With End Sub
Code à placer dans le module objet de la feuille où se trouve les contrôle ActiveX OptionButton
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Explicit Public colOpt As Collection Private Sub Worksheet_Activate() InitOLE End Sub Public Sub InitOLE() Dim oOLE As OLEObject, cls As clsOle Set cls = Nothing: Set colOpt = New Collection ' Boucle sur les objets de la Feuille For Each oOLE In Me.OLEObjects If TypeOf oOLE.Object Is MSForms.OptionButton Then ' Si l'objet est un OptionButton Set cls = New clsOle: Set cls.optBtn = oOLE.Object colOpt.Add cls End If Next End Sub
Pour initialiser tous les OptionButton, j'aurais simplement utilisé une boucle plaçant leur valeur à False. Cela me semble plus simple
Exemple (On place un CommandButton sur la feuille)
Code:

1 2 3 4 5 6 7 8 Private Sub cmdInit_Click() Dim oOLE As OLEObject For Each oOLE In Me.OLEObjects If TypeOf oOLE.Object Is MSForms.OptionButton Then ' Si l'objet est un OptionButton oOLE.Object.Value = False End If Next End Sub

Merci Philippe

Mais malheureusement VBA me renvoi des erreurs
Code:

1 2 3 4 5 6 7 8 Private Sub cmdInit_Click() Dim oOLE As OLEObject For Each oOLE In Me.OLEObjects If TypeOf oOLE.Object Is MSForms.OptionButton Then ' Si l'objet est un OptionButton oOLE.Object.Value = False End If Next End Sub
Pour ce bout de code, VBA me répond "Utilisation incorrecte du mot clé ME"

Bonjour,

Citation:

Mais malheureusement VBA me renvoi des erreurs

Me représentant l'objet où se trouve le code, d'après moi, tu n'as pas placé celui-ci dans le module de la feuille où se trouve le CommandButton comme indiqué dans ma réponse.

Merci encore Philippe
Super intéressant comme programme, je suis à un cheveu d'obtenir le programme que je désire

Ce que j'aimerais, c'est que tu m'explique comment je pourrais procéder pour pouvoir "envoyer" le nom du OptionButton sur ma feuille.
Ton programme affiche le nom du OptionButton via le module de forme, ce que je voudrais c'est de l'enregistrer quelque part et par la suite l'exporter vers une feuille afin de l'utiliser dans du code!!!
Est-ce possible??

Merci beaucoup

Bonjour,

Citation:

Ce que j'aimerais, c'est que tu m'explique comment je pourrais procéder pour pouvoir "envoyer" le nom du OptionButton sur ma feuille.

Pour connaître le nom d'un objet c'est la propriété Name.
Pour connaître les méthodes et propriété d'un objet, il faut utiliser l'autocomplétion (Ajouter un point au nom de l'objet). Ainsi tu peux utiliser oOle et ajouter un point, une liste de déroulante affichant les méthodes (vert) et propriétés (gris) vas s'afficher)
Exemple d'une procédure qui affiche dans la fenêtre d'exécution (Instruction Debug.Print) le nom des OptionButton présent dans la feuille nommée Sheet1.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub LookOptionButton() Dim oOLE As OLEObject, sht As Worksheet Set sht = ThisWorkbook.Worksheets("Sheet1") For Each oOLE In sht.OLEObjects If TypeOf oOLE.Object Is MSForms.OptionButton Then ' Si l'objet est un OptionButton Debug.Print oOLE.Name oOLE.Object.Value = False End If Next End Sub