Créer un bouton de commande par valeur de cellule

Question

J'essaye d'obtenir qu'Excel crée automatiquement un bouton de commande si une certaine cellule contient du texte. Grâce à l'exécution de macro enregistreur et via googling, c'est là que je suis coincé.

Private Sub button() 

If ActiveSheet.Range("C5") = Text Then 

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
    , DisplayAsIcon:=False, Left:=396.75, Top:=18.75, Width:=64.5, Height _ 
    :=26.25).Select 
Selection.Verb Verb:=xlPrimary 

End If 

End Sub 

Answer 1

Essayez une recherche du syntax de base d'abord, Assurez-vous que votre cellule C5 a une valeur « Quelque chose »

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If ActiveSheet.Range("C5").Value = "Something" Then 
      Dim button As OLEObject 
      Set button = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
         , DisplayAsIcon:=False, Left:=396.75, Top:=18.75, Width:=64.5, Height:=26.25) 
     End If 

    button.Object.Caption = "Complete" 
    button.Name = "CommandbuttonEL1" 

    End Sub