Discussion :

[zorro4949]

Bonjour;

J'ai un classeur Excel composé de 3 feuilles. Sur la premiére j'ai un bouton qui doit en cliquant dessus va décocher des casses a cochés active X qui sont dans 2 colonnes.

J'ai trouver comment décocher les cases a cocher active X sur la page active mais pas sur la feuille suivante.

Code :

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

1
2
3
4
5
6
Sub Button2_Click()
  Dim Ctl As OLEObject
    For Each Ctl In ActiveSheet.OLEObjects
    If TypeOf Ctl.Object Is MSForms.CheckBox Then Ctl.Object = False
    Next Ctl
End Sub

Comment faire?
J'ai un excel en Anglais.

Je joint mon fichier Excel.


De plus sur la premiére page j'ai des cases a cochées NON ACTIVE (FORM CONTROL). Dans une colonne. Comment les décochées?
DecocherToutesChecboxActiveX.xlsm

[Philippe Tulliez]

Bonjour,

J'ai trouver comment décocher les cases a cocher active X sur la page active mais pas sur la feuille suivante

Sans avoir testé, dans la ligne For Each Ctl In ActiveSheet.OLEObjects, vous travaillez avec ActiveSheet soit la feuille active. Il suffit de choisir l'objet Worksheet adéquat (Worksheets(NomDeLaFeuille)) ou en utilisant son CodeName

[Philippe Tulliez]

Bonjour,

Voici un exemple testé où on décoche tous les contrôles CheckBox (ActiveX) des feuilles nommées Feuil1 et Feuil2 du classeur où se trouve le code VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 Dim Ctl As OLEObject
 Dim Sht As Worksheet
 For Each Sht In ThisWorkbook.Worksheets
   Select Case LCase(Sht.Name)
     Case "feuil1", "feuil2"
        For Each Ctl In Sht.OLEObjects
          If TypeOf Ctl.Object Is MSForms.CheckBox Then Ctl.Object = False
        Next Ctl
     End Select
 Next
 Set Ctl = Nothing: Set Sht = Nothing
End Sub