Comment désactiver des cases à cocher par vba?

[fred2705]

Bonjour,

J aimerais un code vba pour désélectionner (faire apparaître avec le rond vide) des boutons d'option de type activex mais je suis en panne!!!

Ci-dessous voici le code de sélection des boutons d'option que j'aimerais désactiver :

ActiveSheet.Shapes.Range(Array("OptionButton14", "OptionButton15", _
        "OptionButton16", "OptionButton17", "OptionButton18")).Select

Merci pour votre aide

 

[Pierrot93]

Re : Comment désactiver des cases à cocher par vba?

Bonjour,

en vba rarement besoin de selectionner, regarde peut être le code ci-dessous :

Option Explicit
Sub test()
Dim t(), i As Integer
t = Array("OptionButton14", "OptionButton15", _
        "OptionButton16", "OptionButton17", "OptionButton18")
For i = LBound(t) To UBound(t)
    Feuil1.OLEObjects(t(i)).Object.Value = False
Next i
End Sub

bonne journée
@+

 

[laetitia90]

Re : Comment désactiver des cases à cocher par vba?

bonjour fred , Pierrot 🙂🙂

ou encore

 For x = 14 To 18
  Feuil1.OLEObjects("OptionButton" & x).Object = False
  Next x

 

[Pierrot93]

Re : Comment désactiver des cases à cocher par vba?

Re,
bonjour Laetitia🙂🙂

aarf... même pas remarqué que la numérotation se suivait moi.... bien vu