XL 2016 Ajout d'un CommandButton dans un userform à partir d'une macro

Valoute

XLDnaute Nouveau
Bonjour,
j'aimerais savoir s'il est possible d'ajouter un CommandButton dans un Userform à partir d'une macro, créer une position aléatoire puis par la suite l'orienter grâce à "Left" et "Height".
Tout ça à partir d'une boucle.
Ce qui donnerais par exemple:
Code:
Dim Nb As Integer
Nb = Worksheets.Cells(2, 3).Value
If Nb <= 3 Then
For i = 1 To Nb 
Userformx.CommandButtoni.Create
Userformx.CommandButtoni.Top = 6
Userformx.CommandButtoni.Left = 12 * i * 8
Userformx.CommandButtoni.Height = 42
Next
End If
If Nb <= 6 Then
For i = 1 To 3
Userformx.CommandButtoni.Create
Userformx.CommandButtoni.Top = 6
Userformx.CommandButtoni.Left = 12 * i * 8
Userformx.CommandButtoni.Height = 42
Next
For i = 4 To Nb - 3
Userformx.CommandButtoni.Create
Userformx.CommandButtoni.Top = 6 * i * 3
Userformx.CommandButtoni.Left = 12 * i * 8
Userformx.CommandButtoni.Height = 42
Next
End If
' Etc...
 
Dernière édition:

Yurperqod

XLDnaute Occasionnel
Bonjour le forum

Il faut aussi créer le code qui va avec les CommandButton?
Que doit-il se passer quand on clique dessus?

Cette macro ajoute un CommandButton mais ça ne créé pas le code VBA qui va avec ce nouveau bouton.
J'ai testé sur Excel 2010 sur un Userform qui a déjà un CommandButton.
VB:
Private Sub CommandButton1_Click()
Dim Cont As Control
Set Cont = Me.Controls.Add("Forms.CommandButton.1", "Test")
With Cont
.Caption = "Caption Bouton"
.AutoSize = True
.Top = 5
.Left = 15
End With
End Sub
 

Discussions similaires

Réponses
2
Affichages
159

Statistiques des forums

Discussions
312 890
Messages
2 093 349
Membres
105 696
dernier inscrit
FrancisR