ajouter 1 Checkbox par macro

Option Explicit

Const Sign As String = ''Thierry 's Truc sur www.Excel-Downloads.com, January 2006'

Const CbxWidth As Integer = 80
Const CbxHeigth As Integer = 15
Const CbxLeft As Integer = 15
Const CbxTop As Integer = 15


Sub MyUserFormAutoBuilder()
Dim ObjUSF As Object
Dim ObjTextBox As Object, ObjLabel As Object, CmdB As Object, LstB As Object
Dim TopPlusHeight As Integer
Dim X As Byte
Dim VLblLeft As Integer
Dim VCbxLeft As Integer
 
  Set ObjUSF = ThisWorkbook.VBProject.VBComponents.Add(3)
  With ObjUSF
    .Properties('Caption') = Sign
    .Properties('Width') = 660
    .Properties('Height') = 195
    .Properties('ShowModal') = True
  End With
 
    For X = 1 To 40
       
      Set ObjTextBox = ObjUSF.Designer.Controls.Add('Forms.CheckBox.1')
     
          Select Case X
            Case 1 To 10
              If X = 1 Then TopPlusHeight = CbxTop
              VCbxLeft = CbxLeft
            Case 11 To 20
              If X = 11 Then TopPlusHeight = CbxTop
              VCbxLeft = CbxLeft + 160
            Case 21 To 30
              If X = 21 Then TopPlusHeight = CbxTop
              VCbxLeft = CbxLeft + 320
            Case 31 To 40
              If X = 31 Then TopPlusHeight = CbxTop
              VCbxLeft = CbxLeft + 480
          End Select
             
         
          With ObjTextBox
            .Caption = 'CheckBox N0 ' & X
            .Left = VCbxLeft: .Top = TopPlusHeight: .Width = CbxWidth: .Height = CbxHeigth
            .Tag = 'Thierry's Demo'
            .Name = 'CbxDemo' & X
            .TextAlign = fmTextAlignRight
          End With
         
        TopPlusHeight = TopPlusHeight + 15
    Next

VBA.UserForms.Add(ObjUSF.Name).Show
 
Set ObjUSF = Nothing
Set ObjTextBox = Nothing
Set ObjLabel = Nothing
End Sub

Cliquez pour agrandir...