Discussion :

[patbou]

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

[ouskel'n'or]

Tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim ctrl As OLEObject
    For Each ctrl In ActiveSheet.OLEObjects
        ctrl.Select
         If InStr(1, ctrl.Name, "CheckBox") <> 0 Then
            If ctrl.Object.Value Then
               MsgBox "nom du bouton d option coché " & ctrl.Name
            End If
         End If
    Next
End Sub

[patbou]

bonsoir ouskel'n'or

j ai precisé

nota : je ne souhaite pas faire une boucle avec le name de l objet mais avec le type si c possible

car la propriété name des optionbutton peut avoir des nom differents que
optionbutton1,optionbutton2 etc

et surtout j aimerai trouver un moyen d avoir le type de ces controles
comme sur une userform ,c pour ma propre culture !!!

[ouskel'n'or]

Quand je ne sais pas... etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim ctrl As OLEObject
    For Each ctrl In ActiveSheet.OLEObjects
        If ctrl.progID = "Forms.CheckBox.1" Then
            ctrl.Select
            If ctrl.Object.Value Then
               MsgBox "nom du bouton d option coché " & ctrl.Name
            End If
        End If
    Next
End Sub

Bonne soirée

[patbou]

merci encore une fois ouskel'n'or