Mettre sur feuille excel OptionButtons en false

[carlos]

Bonjour

j'ai 2 Optionbuttosn posés sur une feuille et j'aimerai en cliquant sur le commandbutton les mettre en False.
Ces codes boguent
Dim OB As Shape
Application.ScreenUpdating = False
For Each OB In ActiveSheet.Shapes
If Left(OB.Name, 6) = "Option" Then
ActiveSheet.Shapes(OB.Name).Select
Selection.Value = xlOff
Range("dd1").Value = ""
End If
Next

ou
ActiveSheet.Shapes(OB.Name).Value = False

Merci Carlos

 

[smotty]

Re : Mettre sur feuille excel OptionButtons en false

Bonjour,

ça devrait faire l'affaire:

Dim Obj As OLEObject
    
    For Each Obj In Me.OLEObjects
        If Obj.Name Like "OptionButton?" Then
            Obj.Object.Value = True
        End If
    Next Obj

A+

smotty

 

[carlos]

Re : Mettre sur feuille excel OptionButtons en false

Super

Merci beaucoup Smooty