CommandButton Dynamique sur Sheets

Version imprimable

13/02/2014, 09h05
Etudiant57

CommandButton Dynamique sur Sheets

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 !

Bonjour,

Code:

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:

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

13/02/2014, 10h49
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 ?
13/02/2014, 11h42
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.

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

Code:

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:

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

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

Dans le CommandButton :
Code:

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:

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.

Il y a deux types de contrôles : les contrôles de formulaire et les contrôles ActiveX. "OnAction" ne fonctionne pas avec ces derniers. Le code que je t'ai donné crée un contrôle de formulaire. Il fonctionne ici. Pour créer un bouton ActiveX et la macro qui va avec sur la feuille "Feuil1" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub test() Dim CB As Object Set CB = Sheets("Feuil1").OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Left:=100, Top:=100, Width:=40, Height:=60) CB.Name = "CB1" With CB.Object .Caption = "Appuie!" End With With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule .InsertLines 1, "Private Sub CB1_Click()" .InsertLines 2, "MsgBox ""It's Working!""" .InsertLines 3, "End Sub" End With End Sub
Tu dois cocher dans les options, dans le centre de gestion de la confidentialité, paramètres des macros, la case "Accès approuvé au modèle d'objet du projet VBA".

13/02/2014, 13h59
Etudiant57

Quelle efficacité Daniel.C !
Cela fonctionne très bien !

Je vois si je peux adapter ça à mon code et je mettrai le topic en "Résolu" !

En réalité je vais mettre ce code dans un module de classe.
Mais le problème c'est que je ne sais pas si ça va marcher correctement ?

En fait, mon programme appel un Userform qui à son initialisation va placer X boutons en fonction de ce qu'il y'a sur une de mes pages.
Ensuite au clic sur un de ces boutons, un code va être chercher dans un module de classe qui, en fonction du .Caption du bouton va me créer une certaine page.
Cette page est donc créée à partir du Module de Classe où réside le code derrière les boutons, mais comment faire si je veux générer ce bouton grâce à votre code sur une feuille généré à partir du Module de Classe ? Car le code du CommandButton va être créé dans le module et le bouton ne saura pas où allez chercher, n'ai-je pas raison ?

Argh et voilà une erreur qui se produit quand j'arrive sur la première ligne de la création du CommandButton :

"Impossible d'entrer en mode arrêt maintenant."

Mais votre code ,seul, fonctionne très bien cela dit. C'est quand il est appelé dans un module de classe que ça ne fonctionne pas.

Serait-il possible de créer le code du bouton avant et de lui assigner avec autre chose que .OnAction ?
Car mon projet est protéger par mot de passe et son écriture, lors de son exécution, est interdite.
13/02/2014, 14h00
Daniel.C

J'ai du mal à comprendre ce que tu veux faire. Maintenant, si le code ne fonctionne pas dans le module de classe, je ne sais pas quoi faire.
13/02/2014, 14h03
Etudiant57

J'ai trouvé une combine pour ne pas le faire dans le module de classe, mais étant donné que mon projet est protégé par mot de passe, est-il possible de créer le sub soit même et de lui attribuer ?

Encore merci pour votre aide !
13/02/2014, 14h53
Daniel.C

Si ta question est d'ôter par macro le mot de passe d'un projet, je ne pense pas que ce soit possible.

Non non, ce que je veux dire c'es qu'au lieu de faire
Code:

1 2 3 4 5 With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule .InsertLines 1, "Private Sub CB1_Click()" .InsertLines 2, "MsgBox ""It's Working!""" .InsertLines 3, "End Sub" End With
On crée directement dans le projet vba :
Code:

1 2 3 Private Sub CB1_Click() MsgBox "It's Working!" End Sub
Et on l'attribue au Command Button créée, est-ce possible ?

13/02/2014, 16h56
Daniel.C

Ça fonctionnait ici (cf. #5), mais apparemment pas chez toi ?

Ok le code fonctionne dans mon projet mais uniquement quand je déverrouille mon code VBA au préalable.

J'utilise donc ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sheets("Feuil2").Unprotect Password:="****" Dim CB As Object Set CB = Sheets("Feuil2").OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Left:=255, Top:=6, Width:=505, Height:=35) Set CB = Sheets("Feuil2").OLEObjects(1) CB.Name = "CB1" With CB.Object .Caption = "Valider" End With Sheets("Feuil2").Protect Password:="*****", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True With ThisWorkbook.VBProject.VBComponents("Feuil2").CodeModule .InsertLines 1, "Private Sub CB1_Click()" .InsertLines 2, "MsgBox ""It's Working!""" .InsertLines 3, "End Sub" End With
J'ai fais une erreur, enfait je génère le bouton dans Thisworbook.SheetChange et le problème c'est que la Feuil2 n'existe pas, je l'a crée puis je place le commandbutton "Valider" dessus et ensuite j'écris le code, je ne peux donc pas mettre le code "à l'avance" dessus. N'y a-t-il pas un moyen de dire au command button d'allez chercher son code ailleur que sur la Feuil2, l'idéal pour moi serait que CB1 ait son code dans ThisWorkBook mais je ne sais pas si c'est possible ?

Il y'aurait 2 solutions à mon problème donc : pouvoir lui attribuer son code mais ailleurs que sur la feuille où le bouton est placé ou pouvoir contourner d'une façon ou d'une autre la protection par mot de passe du projet vba le temps d'écrire le code du bouton sur sa feuille.

Encore merci pour l'intérêt que tu portes à mon soucis Daniel.C.

Bonjour,

Pas sûr d'avoir compris. Pour t'assurer que la feuille a été créée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Feuil2" Then
        Sheets("Feuil2").Unprotect Password:="****"
        Dim CB As Object
        Set CB = Sheets("Feuil2").OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
         Left:=255, Top:=6, Width:=505, Height:=35)
        Set CB = Sheets("Feuil2").OLEObjects(1)
        CB.Name = "CB1"
        With CB.Object
            .Caption = "Valider"
        End With
        Sheets("Feuil2").Protect Password:="*****", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
        With ThisWorkbook.VBProject.VBComponents("Feuil2").CodeModule
            .InsertLines 1, "Private Sub CB1_Click()"
            .InsertLines 2, "MsgBox ""It's Working!"""
            .InsertLines 3, "End Sub"
        End With
    End If
End Sub

en ajoutant un test au cas où tu réactives Feuil2.

Effectivement nous nous sommes mal compris !
Je n'ai pas de doute sur la création de la feuille.
Mon soucis désormais réside dans le fait que je ne peux faire les lignes :
Code:

1 2 3 4 5 With ThisWorkbook.VBProject.VBComponents("Feuil2").CodeModule .InsertLines 1, "Private Sub CB1_Click()" .InsertLines 2, "MsgBox ""It's Working!""" .InsertLines 3, "End Sub" End With
Si mon Projet VBA est protégé, il faut donc trouver un moyen de contourner la protection du projet le temps d'écrire dans la Feuil2 ou alors de dire au CB1 d'allez chercher son code ailleurs que su la Feuil2, est-ce possible ?

14/02/2014, 12h22
Daniel.C

A mon avis, non. Ceci dit, tu devrais ouvrir une nouvelle discussion portant sur la création dynamique de bouton avec protection du projet VBA.
14/02/2014, 12h34
Etudiant57

Très bien, alors je met en résolu et je crée un nouveau fil de discussion !

Et bien sur je n'oublie pas de te remercier pour le temps passé sur mon problème ! Merci Daniel.C !