Ecrire le code du commandButton lors de sa créationFermé

Question

Bonjour, 
j'ai écris une macro qui crée un Command bouton "automatiquement" avec des caractéristiques spécifique :

Sub Créer_bouton

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=0 + 18.5 * j, Top:=18.5 * i, Width:=18.5, Height:=18.5). _
    Select
    'Selection.ShapeRange.ZOrder msoSendToBack
    Selection.Object.BackStyle = 0 - fmBackStyleTransparent
    Selection.Object.BackColor = &H8000000B
    Selection.Object.Caption = " "
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.PictureFormat.Contrast = 1#
 
End Sub

Mais j'aimerais que lorsque que ce CommandButton se créer, on associe une formule (ou copie une formule) dans le code du CommandButton

un truc du genre : Copy : "aaa", &Selection.Object.Name

Pour avoir comme résultat dans le code du CommandButton :

Private Sub CommandButton1_Click()
aaa CommandButton1
End Sub

aaa étant un sous programme du genre

Sub aaa(Bouton As CommandButton)
...
...
End Sub

Voilà, si quelqu'un a une idée qu'il n'hésite pas.

@+

cs_DARKSIDIOUS · Answer

Je lock le topic !

J'en ai marre de déplacer des dizaines de messages chaque jours vers le forum VBA, donc maintenant, pour les membres qui ont déjà un peu d'expérience des forums qui ne poste pas au bon endroit : lock du message direct !

Ecrire le code du commandButton lors de sa création

1 réponse

Discussions similaires