XL 2016 Changer une propriété d’un contrôle activeX

[dodineau]

Bonjour à toutes et tous.
Je voudrais changer une propriété d’un contrôle activeX en fonction de la valeur d’une cellule.
Je cherche donc une macro qui se déclenche automatiquement quand je change la valeur de ma cellule.
Si la valeur est supérieure à 10 mon bouton activeX est actif (enable true) sinon inactif (enable false).
Merci pour votre aide.
À+

 

[Jacky67]

Bonjour à toutes et tous.
Je voudrais changer une propriété d’un contrôle activeX en fonction de la valeur d’une cellule.
Je cherche donc une macro qui se déclenche automatiquement quand je change la valeur de ma cellule.
Si la valeur est supérieure à 10 mon bouton activeX est actif (enable true) sinon inactif (enable false).
Merci pour votre aide.
À+

Bonjour,
Avec un bouton activex sur la feuille et la cellule A1
Ceci peut-être
Dans le module de la feuille en question

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
  Me.CommandButton1.Enabled = [a1].Value > 10
End If
End Sub

 

[Compte Supprimé 979]

Bonjour Dodineau,

Perso je n'utiliserais pas un Controle ActiveX pour faire un bouton, mais une simple forme à laquelle j'attribuerais une macro

Sinon, voici le code à mettre dans la feuille en question

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Vérifier l'adresse de la cellule mopdifiée
  If Target.Address = "$A$1" Then
    ' Si cellule OK, vérifier le contenu
    If Target.Value > 10 Then
      Me.CommandButton1.Enabled = False
    Else
      Me.CommandButton1.Enabled = True
    End If
  End If
End Sub

Edit : oups, meilleure idée de Jacky67 que je salue

A+

 

[Staple1600]

Bonsoir

Pour le fun, la même que Jacky67 (mais en one-liner)

Private Sub Worksheet_Change(ByVal T As Range)
Me.CommandButton1.Enabled = (T.Value > 10) * (T.Address = "$A$1")
End Sub