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
|
Private Sub ComboBox1_Click()
Dim ligne As Integer
ligne = ComboBox1.List(ComboBox1.ListIndex, 1)
With Sheets("tuum")
TextBox1 = .Cells(ligne, 2)
End With
End Sub
Public Sub inicombobox1()
Dim c As Range
ComboBox1.Clear
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "45;0"
With Sheets("tuum")
For Each a In .Range("a1:a" & .Range("a65536").End(xlUp).Row)
ComboBox1.AddItem a
ComboBox1.List(ComboBox1.ListCount - 1, 1) = a.Row
Next a
End With
End Sub |
Partager