Discussion :

[johnlee]

Bonjour

J'ai créé dans une feuille Excel un certain nombre de boutons de commande (en control active x)
Je voudrais en vba parcourir tous les boutons de cette feuille dans une boucle et les désactiver
cad faire bouton_name.enabled = False

Merci pour votre aide

[Patrice740]

Bonjour,

Essaies :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
Sub DésactiverBoutons()
Dim obj As OLEObject              'Objet OLE de la feuille
Dim btn As MSForms.CommandButton  'Bouton
  For Each obj In ActiveSheet.OLEObjects
    If TypeName(obj.Object) = "CommandButton" Then
      Set btn = obj.Object
      btn.Enabled = False
    End If
  Next obj
End Sub

[johnlee]

Merci bien
Quelle diligence !
Je teste cela au plus vite et te tiens au courant
JohnLee (Hooper)

[patricktoulon]

Bonjour
regarde ce que fait ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim obj As OLEObject              'Objet OLE de la feuille
Dim btn As MSForms.CommandButton  'Bouton
  For Each obj In ActiveSheet.OLEObjects
    If TypeName(obj.Object) = "CommandButton" And obj.Name <> "CommandButton1" Then
      With obj.Object: .Enabled = IIf(.Enabled = False, True, False)
      CommandButton1.Caption = IIf(.Enabled = False, "enabled", "disabled")
      End With
 
    End If
  Next obj
End Sub

et une version un peu differente sans utilisation du type oleobject

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    Dim obj As OLEObject              'Objet OLE de la feuille
    Dim btn As MSForms.CommandButton  'Bouton
    For Each obj In ActiveSheet.OLEObjects
        If TypeName(obj.Object) = "CommandButton" And obj.Name <> "CommandButton1" Then
            obj.Enabled = obj.Enabled = False
            CommandButton1.Caption = IIf(obj.Enabled = False, "enabled", "disabled")
        End If
    Next obj
End Sub

[Patrice740]

Bonjour Patrick,

Code :

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

1
2
3
4
' Au lieu de
      With obj.Object: .Enabled = IIf(.Enabled = False, True, False)
' Plus simple
      With obj.Object: .Enabled = Not .Enabled

[patricktoulon]

Bonjour patrice
la version 2 c'et pareil

Code :

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

 obj.Enabled = obj.Enabled = False

juste une facon de coder différente
et ce n'est pas la seule subtilité dans la version 2 ( a relire)

[Patrice740]

Bonjour patrice
la version 2 c'et pareil

Code :

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

 obj.Enabled = obj.Enabled = False

Pourquoi faire simple quand on peut faire compliqué !

[patricktoulon]

re
tu plaisante j'espere

Code :

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

 With obj.Enabled = .Enabled = False...

Code :

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

With obj.Object: .Enabled = Not .Enabled...

en quoi ca peut etre mieux ou moins bien simplement une ecriture différente et rien de plus , rien de moins

sauf que je n'utilise pas ".object"

alors oui pourquoi faire simple quand on peu faire compliqué je te l'accorde

[Patrice740]

tu plaisante j'espere : rarement
en quoi ca peut etre mieux ou moins bien simplement une ecriture différente et rien de plus , rien de moins :
il y a souvent une multitude d'écritures différentes et il y a les fondamentales, la fonction Not en fait partie :
Booléen = Not Booléen

ceci dit,
Booléen = Booléen = False
je trouve ça amusant, et bien plus joli que :
Booléen = IIF(Booléen = False; True; False)

Et effectivement, dans les trois cas on obtient le même résultat logique mais sur le plan pédagogique j'en suis bien moins convaincu.