Création bouton de commande dans un userform par macro

[ograin]

Bonjour,
J'aimerais savoir si quelqu'un connait la fonction qui permet d'insérer un commandbutton dans un userfrom par l'intermédiaire d'une macro et ensuite d'inscrire un code dans ce bouton.
Merci d'avance
Ograin

 

[Caillou]

Re : Création bouton de commande dans un userform par macro

Bonjour,

Voici un exemple tiré de l'aide d'Excel !

AddControl, événement, Add, méthode, exemple

L'exemple suivant utilise la méthode Add pour ajouter un contrôle dans une feuille, en mode exécution, et utilise l'événement AddControl pour confirmer l'ajout du contrôle.

Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient :

un contrôle CommandButton nommé CommandButton1,


un contrôle Label nommé Label1.
Dim Mycmd as Control
Private Sub CommandButton1_Click()

Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible)
Mycmd.Left = 18
Mycmd.Top = 150
Mycmd.Width = 175
Mycmd.Height = 20
Mycmd.Caption = "This is fun." & Mycmd.Name

End Sub

Private Sub UserForm_AddControl(ByVal Control As _
MSForms.Control)
Label1.Caption = "Control was Added."
End Sub

Caillou

 

[ograin]

Re : Création bouton de commande dans un userform par macro

Merci pour ton aide, mais il y a un petit problème. Quand j'exécute le code de l'exemple en ayant créer les éléments nécessaires, il me marque :"Chaîne de classe incorrecte ". L'erreur provient à cette ligne:

Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible)


Peux tu m'aider?
Merci
Ograin

 

[Caillou]

Re : Création bouton de commande dans un userform par macro

Re,

Efface MS devant MSForms

Set Mycmd = Controls.Add("Forms.CommandButton.1") ', CommandButton2, Visible)

Caillou

 

[ograin]

Re : Création bouton de commande dans un userform par macro

Merci, cela fonctionne.
Le seul problème, c'est que le bouton n'est pas conservé lorsque je ferme le userform. As-tu une idée pour le conserver?
Merci
Ograin

 

[YANN-56]

Re : Création bouton de commande dans un userform par macro

Bonjour ograin, caillou et à ceux qui passeront par ici,

Ici dans mon bord de l'eau, on veille toujours ograin quand on marche sur les cailloux 🙂

A mon humble avis, il n'existe pas de solution pour le garder en mémoire dans ton USF?
(Sauf avis hautement qualifié qui m'intéresserait beaucoup!!!)

Quant à lui affubler une Macro, je ne vois que de passer par la création d'un module de classe
gérant le groupe auquel tu l'auras associé lors de sa création.

Au boulot!!! 😀 ... Il faut y aller; c'est très intéressant et utile.

Amicalement

Yann