Bonjour
PMO2
j'avais effectivement trouvé un tuto parlant de ce module de classe que j'ai utilisé . Par contre dans cette exemple , les actions sont mises différemment et sont intégrés dans le module normal lors de la création des boutons :
Set Btn1 = Form.Designer.Controls.Add("forms.commandbutton.1")
With Btn1
.Name = "Fermer"
.Caption = "Fermer"
.Left = 2
.Top = 2
.BackColor = RGB(255, 0, 0)
.Width = 46
.Height = 24
End With
With Form.CodeModule
X = .CountOfLines + 1
Code = "Sub Fermer_Click()" & vbCrLf
Code = Code & " " & vbCrLf
Code = Code & " " & vbCrLf
Code = Code & " " & vbCrLf
Code = Code & " Me.Hide" & vbCrLf
Code = Code & "End Sub" & vbCrLf
.InsertLines X, Code
End With
mais votre proposition parait plus judicieuse pour retrouver plus facilement les codes a modifier .
Je joint quand même mon travail qui pourra être utilisé par d'autre .
Dans cette proposition , j'ai ajouté un userform des 56 couleurs qui permet de choisir la couleur du bouton lors de sa création.
Merci a vous PMO2 d'étre passé sur mon post et je garde sous le coude votre travail
Bien cordialement
ghislain