bonsoir,
contexte :
j ai un feuille xl avec des controles que j ai inserer a l aide de la boite a outil
controles
3 types de controles differents sont disposés sur cette feuille : textbox , chekbox et des optionbutton
je voudrais verifier quel bouton d option est coché.
nota : je ne souhaite pas faire une boucle avec le name de l objet mais avec le type si c possible
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 Sub opt_actif () Dim ctrl As OLEObject For Each ctrl In ActiveSheet.OLEObjects 'If TypeOf Ctrl Is MSForms.TextBox ....... comme sur une userform ... mais la cela ne fonctionne pas car le type d objet est un oleobject If ActiveSheet.OLEObjects(ctrl.Name).Object.Value = True Then MsgBox "nom du bouton d option coché " & ctrl.Name End If Next End Sub
Partager