Discussion :

[Etudiant57]

Bonjour,

Je tente désespérément de faire un CommandButton Dynamique sur une Sheets.

Je m'explique, je travail sur un projet dont le langage de programmation est en Excel VBA.

J'arrive à faire des CommandButton dynamique dans des Userforms, c'est à dire que ces boutons n'existe pas dans la Userform mais à son initialisation elle crée autant de boutons que de valeur dans la colonne "A" d'une de mes feuilles par exemple, avec un code derrière chaque bouton en fonction de sa .Caption.

Dans un Userform, ça m'a donné du fil à retordre mais j'y suis parvenu.

Par contre, faire cela dans une Sheet me semble totalement différent et après moulte essais d'adaptation de mon code, je ne parviens par à le faire.

Arriveriez-vous à m'aider ?

En résumé, ce que j'aimerai faire par exemple ( pour que je puisse transposer un possible exemple dans mon projet ), c'est qu'à partir d'un commandbutton, je puisse créer un autre commandbutton sur une autre feuille qui possèdera le code que je lui donnerai, mais pour faire simple, faisons lui juste faire un MsgBox "It's Working!".

J'attends vos retour pour que nous puissions travailler sur ce problème, et je remercie d'avance la communauté VBA de ce forum qui m'a déjà bien aidé durant les années précédentes !

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub test1()
    Dim Btn As Object
    Set Btn = ActiveSheet.Buttons.Add(126.75, 39.75, 46.5, 19.5)
    With Btn
        .Caption = "Appuie !"
        .OnAction = "Macro"
    End With
End Sub

Code :

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

1
2
3
Sub Macro()
    MsgBox "It's Working!"
End Sub

[Etudiant57]

Merci Daniel.C de m'aider !

Enfait j'avais déjà fait un code de ce genre mais le paramètre .OnAction ne fonctionne jamais, et dans votre code, c'est pareil. Il ne fonctionne pas, j'ai vu par ci et par là que .OnAction est capricieux avec Excel 2010.

Auriez-vous une autre solution ?

[Daniel.C]

Je n'ai pas de problème, même avec Excel 2010... D'où tien-tu qu'il y a un problème avec cette version ? Publie ton code.

[Daniel.C]

Tu peux essayer avec un bouton des contrôles ActiveX :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim CB As Object
Set CB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
 Left:=100, Top:=100, Width:=40, Height:=60)
Set CB = ActiveSheet.OLEObjects(1)
CB.Name = "CB1"
With CB.Object
    .Caption = "Appuie!"
End With
End Sub

Dans le module de la feuille, mets :

Code :

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

1
2
3
Private Sub CB1_Click()
    MsgBox "It's Working!"
End Sub

[Etudiant57]

Je viens de tester votre nouveau code,un bouton se crée mais rien ne se passe.

Dans le CommandButton :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
    Dim CB As Object
    Set CB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
     Left:=100, Top:=100, Width:=40, Height:=60)
    Set CB = ActiveSheet.OLEObjects(1)
    CB.Name = "CB1"
    With CB.Object
        .Caption = "Appuie!"
    End With
End Sub

Et dans un module :

Code :

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

1
2
3
Private Sub CB1_Click()
    MsgBox "It's Working!"
End Sub

Pour ce qui est de .OnAction, j'avais fouillé sur le net quand je voulais l'utilisé et les résultats me disaient qu'à partir de 2007 la fonction n'était plus pris en charge, peut être étais-je tombé sur un mauvais ragot cependant chez moi cette fonction ne fonctionne pas.