1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Private Sub UserForm_Initialize() ' [1] INITIALISE USERFORM (Départ)
ComboBox1.ColumnCount = 2
ComboBox1.AddItem "Item 1, Column 1"
ComboBox1.list(0, 1) = "Item 1, Column 2"
ComboBox1.AddItem "Item 2, Column 1"
ComboBox1.list(1, 1) = "Item 2, Column 2"
ComboBox1.Value = "Item 1, Column 1"
ComboBox1.Visible = False
TextBox2.Visible = False
Label3.Visible = False
End Sub
Private Sub checkbox1_change() 'CREATION
Dim Plage As Range
With Worksheets("liste_clients")
Set Client1 = .Range("B3")
Set Plage = .Range(Client1, .Range("C65536").End(xlUp))
Set Tableau = Plage.Resize(, 10)
End With
ComboBox1.list = Plage.Value
Me.ComboBox1.ListIndex = -1
Select Case CheckBox1.Value
Case True: 'Label3.Caption = Application.Max(Sheets("liste_clients").Columns("A"))
Me.Label3 = ""
ComboBox1.Visible = True
Label1.Visible = True
CheckBox2.Visible = False
Label2.Visible = True
TextBox2.Visible = False
Label3.Visible = True
Case False:
ComboBox1.Visible = False
CheckBox2.Visible = True
Label2.Visible = True
Label3.Visible = False
TextBox2.Visible = False
End Select
End Sub |
Partager