Bonjour deudecos, le forum
Un exemple de création de bouton :
Citation:
PrivateSub CommandButton1_Click()
Dim monbeaubouton As Control
Set monbeaubouton = UserForm1.Controls.Add('Forms.CommandButton.1', , True)
With monbeaubouton
.Caption = 'Deudeco' 'son nom
.Height = 20 'sa hauteur
.Top = 75 'son emplacement en partant du haut
.Left = 15 'son emplacement en partant de la gauche
.BackStyle = 0 ' son style
.BackColor = &HC0C0FF 'sa couleur
EndWith
EndSub
|
En espérant t'avoir aidé
je te souhaite un bon week-end
salut