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

  • Initiateur de la discussion Initiateur de la discussion Valoute
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
235
Réponses
8
Affichages
476
Réponses
4
Affichages
195
Réponses
10
Affichages
287
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Retour