Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Bouton par macro

Bouton par macro

6 réponses
Avatar
ziopizza
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par macro avec son
propre code ,
si oui comment ?
Yves
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonsoir ziopizza;
Un exemple pour créer un bouton à partir d'un autre bouton:
Dans le module UserForm

Private WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click()
MsgBox "Hello"
Me.Controls.Remove "MyButton"
End Sub

Private Sub CommandButton1_Click()
Set CmdBtn = Me.Controls.Add("Forms.CommandButton.1", "MyButton")
With CmdBtn
.Caption = "Click Me"
.Left = 6
.Top = 6
.Width = 48
.Height = 18
End With
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par macro avec
son

propre code ,
si oui comment ?
Yves





Avatar
ziopizza
Bonsoir michel pierron,merci pour la promptitude de ta réponse.
Ce code marche parfaitement mais ça tu le savais,n'est il pas possible que
le bouton créé reste définitivement sur userform.

Bonsoir a tous ,Yves



"Michel Pierron" a écrit dans le message de
news:%236BdQ$
Bonsoir ziopizza;
Un exemple pour créer un bouton à partir d'un autre bouton:
Dans le module UserForm

Private WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click()
MsgBox "Hello"
Me.Controls.Remove "MyButton"
End Sub

Private Sub CommandButton1_Click()
Set CmdBtn = Me.Controls.Add("Forms.CommandButton.1", "MyButton")
With CmdBtn
.Caption = "Click Me"
.Left = 6
.Top = 6
.Width = 48
.Height = 18
End With
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par macro avec
son

propre code ,
si oui comment ?
Yves








Avatar
Michel Pierron
Re ziopizza;
Mets en remarque ou supprime la ligne:
'Me.Controls.Remove "MyButton"
MP

"ziopizza" a écrit dans le message de
news:e1wx%
Bonsoir michel pierron,merci pour la promptitude de ta réponse.
Ce code marche parfaitement mais ça tu le savais,n'est il pas possible que
le bouton créé reste définitivement sur userform.

Bonsoir a tous ,Yves



"Michel Pierron" a écrit dans le message de
news:%236BdQ$
Bonsoir ziopizza;
Un exemple pour créer un bouton à partir d'un autre bouton:
Dans le module UserForm

Private WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click()
MsgBox "Hello"
Me.Controls.Remove "MyButton"
End Sub

Private Sub CommandButton1_Click()
Set CmdBtn = Me.Controls.Add("Forms.CommandButton.1", "MyButton")
With CmdBtn
.Caption = "Click Me"
.Left = 6
.Top = 6
.Width = 48
.Height = 18
End With
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par macro
avec



son
propre code ,
si oui comment ?
Yves












Avatar
ziopizza
Bonjour Michel,
encore moi, je me suis mal exprimé j'aimerais que le bouton créé reste
définitivement sur userForm
même après avoir quitté l'application en enregistrant bien sur.
Yves
Bonne journée

"Michel Pierron" a écrit dans le message de
news:ObBk$
Re ziopizza;
Mets en remarque ou supprime la ligne:
'Me.Controls.Remove "MyButton"
MP

"ziopizza" a écrit dans le message de
news:e1wx%
Bonsoir michel pierron,merci pour la promptitude de ta réponse.
Ce code marche parfaitement mais ça tu le savais,n'est il pas possible
que


le bouton créé reste définitivement sur userform.

Bonsoir a tous ,Yves



"Michel Pierron" a écrit dans le message de
news:%236BdQ$
Bonsoir ziopizza;
Un exemple pour créer un bouton à partir d'un autre bouton:
Dans le module UserForm

Private WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click()
MsgBox "Hello"
Me.Controls.Remove "MyButton"
End Sub

Private Sub CommandButton1_Click()
Set CmdBtn = Me.Controls.Add("Forms.CommandButton.1", "MyButton")
With CmdBtn
.Caption = "Click Me"
.Left = 6
.Top = 6
.Width = 48
.Height = 18
End With
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par macro
avec



son
propre code ,
si oui comment ?
Yves















Avatar
Michel Pierron
Bonjour ziopizza;
Essaie le mode Design; dans un module standard:
(Attention, l'UserForm ne doit pas être affiché ni caché)

Sub AddButton()
Dim UF As Object, CB As Object, i&
On Error Resume Next
Set UF = ThisWorkbook.VBProject.VBComponents("Userform1")
If Err Then Exit Sub
On Error GoTo 0
Set CB = UF.Designer.Controls.Add("forms.CommandButton.1")
With CB
.Name = "MyButton"
.Caption = "Click Me"
.Left = 6
.Top = 6
End With
i = UF.CodeModule.CreateEventProc("Click", "MyButton")
UF.CodeModule.InsertLines i + 1, "Msgbox ""Hello !"", 64"
Application.Visible = True
ThisWorkbook.Save
1: Set CB = Nothing: Set UF = Nothing
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour Michel,
encore moi, je me suis mal exprimé j'aimerais que le bouton créé reste
définitivement sur userForm
même après avoir quitté l'application en enregistrant bien sur.
Yves
Bonne journée

"Michel Pierron" a écrit dans le message de
news:ObBk$
Re ziopizza;
Mets en remarque ou supprime la ligne:
'Me.Controls.Remove "MyButton"
MP

"ziopizza" a écrit dans le message de
news:e1wx%
Bonsoir michel pierron,merci pour la promptitude de ta réponse.
Ce code marche parfaitement mais ça tu le savais,n'est il pas possible
que


le bouton créé reste définitivement sur userform.

Bonsoir a tous ,Yves



"Michel Pierron" a écrit dans le message de
news:%236BdQ$
Bonsoir ziopizza;
Un exemple pour créer un bouton à partir d'un autre bouton:
Dans le module UserForm

Private WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click()
MsgBox "Hello"
Me.Controls.Remove "MyButton"
End Sub

Private Sub CommandButton1_Click()
Set CmdBtn = Me.Controls.Add("Forms.CommandButton.1", "MyButton")
With CmdBtn
.Caption = "Click Me"
.Left = 6
.Top = 6
.Width = 48
.Height = 18
End With
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par
macro





avec
son
propre code ,
si oui comment ?
Yves



















Avatar
ziopizza
Bonjour michel,

Grand Merci,tout à fait ça.

YvesL
Bon Dimanche

"Michel Pierron" a écrit dans le message de
news:%
Bonjour ziopizza;
Essaie le mode Design; dans un module standard:
(Attention, l'UserForm ne doit pas être affiché ni caché)

Sub AddButton()
Dim UF As Object, CB As Object, i&
On Error Resume Next
Set UF = ThisWorkbook.VBProject.VBComponents("Userform1")
If Err Then Exit Sub
On Error GoTo 0
Set CB = UF.Designer.Controls.Add("forms.CommandButton.1")
With CB
.Name = "MyButton"
.Caption = "Click Me"
.Left = 6
.Top = 6
End With
i = UF.CodeModule.CreateEventProc("Click", "MyButton")
UF.CodeModule.InsertLines i + 1, "Msgbox ""Hello !"", 64"
Application.Visible = True
ThisWorkbook.Save
1: Set CB = Nothing: Set UF = Nothing
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour Michel,
encore moi, je me suis mal exprimé j'aimerais que le bouton créé reste
définitivement sur userForm
même après avoir quitté l'application en enregistrant bien sur.
Yves
Bonne journée

"Michel Pierron" a écrit dans le message de
news:ObBk$
Re ziopizza;
Mets en remarque ou supprime la ligne:
'Me.Controls.Remove "MyButton"
MP

"ziopizza" a écrit dans le message de
news:e1wx%
Bonsoir michel pierron,merci pour la promptitude de ta réponse.
Ce code marche parfaitement mais ça tu le savais,n'est il pas
possible




que
le bouton créé reste définitivement sur userform.

Bonsoir a tous ,Yves



"Michel Pierron" a écrit dans le message de
news:%236BdQ$
Bonsoir ziopizza;
Un exemple pour créer un bouton à partir d'un autre bouton:
Dans le module UserForm

Private WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click()
MsgBox "Hello"
Me.Controls.Remove "MyButton"
End Sub

Private Sub CommandButton1_Click()
Set CmdBtn = Me.Controls.Add("Forms.CommandButton.1", "MyButton")
With CmdBtn
.Caption = "Click Me"
.Left = 6
.Top = 6
.Width = 48
.Height = 18
End With
End Sub

MP

"ziopizza" a écrit dans le message de
news:
Bonjour,
Est il possible de creer un CommandButton sur un UserForm par
macro





avec
son
propre code ,
si oui comment ?
Yves