[VBA] Désactiver tous les ToggleButton

[TheLio]

Bonjour tous,
En espérant que vous avez passé un bon été 🙂

Je cherche [sans trouver] une macro qui boucle sur tous les ToggleButton de la feuille pour les "désactiver".
Tout en sachant qu'il n'ont pas forcément tous été "activés"

Il y a un peu plus de 20ToggleButton dans la feuille et les codes sont très basiques

Option Explicit



Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Range("A3").Select
Range("$A$3:$A$1000").AutoFilter Field:=1, Criteria1:="oK"
ToggleButton1.Caption = "OK"
ToggleButton1.BackColor = vbGreen
Else
Range("A3").Select
Range("$A$3:$A$1000").AutoFilter Field:=1
ToggleButton1.Caption = "Tout"
ToggleButton1.BackColor = vbRed
End If


End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2 Then
Range("K3").Select
Range("$K$3:$K$1000").AutoFilter Field:=11, Criteria1:="oui"
ToggleButton2.Caption = "Service"
ToggleButton2.BackColor = vbGreen
Else
Range("K3").Select
Range("$K$3:$K$1000").AutoFilter Field:=11
ToggleButton2.Caption = "Tout"
ToggleButton2.BackColor = vbRed
End If


End Sub


Private Sub ToggleButton3_Click()
If ToggleButton3 Then
Range("L3").Select
Range("$L$3:$L$1000").AutoFilter Field:=12, Criteria1:="oui"
ToggleButton3.Caption = "Cuisine"
ToggleButton3.BackColor = vbGreen
Else
Range("L3").Select
Range("$L$3:$L$1000").AutoFilter Field:=12
ToggleButton3.Caption = "Tout"
ToggleButton3.BackColor = vbRed
End If


End Sub

J'ai essayé avec plusieurs variantes, mais je n'ai pas le niveau 🙁

Merci d'avance pour vos lumières
@++
Lio

 

[laetitia90]

Re : [VBA] Désactiver tous les ToggleButton

bonjour TheLio

un code pour feuil1

Sub es()
 Dim x As OLEObject
 For Each x In Feuil1.OLEObjects
 If TypeName(x.Object) = "ToggleButton" Then x.Object = 0
 Next x
End Sub

 

[Robert]

Re : [VBA] Désactiver tous les ToggleButton

Bonjour The Lio, Lætitia, bonjour le forum,

Quand j'ai lu l'énoncé j'ai pensé : tiens un truc pour Læticia... Mais je me suis dit : je vais quand même y arriver...
Ben non ! Parti sur les Shapes je ne m'en sortais pas... Merci Lætitia pour la leçon.
Je hais les contrôles directement dans les onglets !

 

[TheLio]

Re : [VBA] Désactiver tous les ToggleButton

Hello,

J'adapte ça dès que j'arrive @home et vous tiens au courant.
Merci
@+
Lio

 

[TheLio]

Re : [VBA] Désactiver tous les ToggleButton

Hello,
Merci beaucoup laetitia90 et Robert,
Cela fonctionne à merveille :-*
J'ai rajouté un :

Application.ScreenUpdating = False
Application.ScreenUpdating = True

comme cela c'est tout beau tout propre,
Merci encore
@++
Lio