Private Sub Ilot_Change()
Me.Postedetravail.Clear
For Each c In Sheets("Liste").Range("a1:g1")
If c.Value = Me.Ilot Then
col = c.Column
Exit For
End If
Next
i = 1
Do While Worksheets("Liste").Cells(i, col) <> ""
Postedetravail.AddItem Worksheets("Liste").Cells(i, col)
i = i + i
Loop
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("Liste").Cells(i, 1) <> ""
Programme.AddItem Worksheets("Liste").Cells(i, 5)
Typesdepièces.AddItem Worksheets("Liste").Cells(i, 6)
Naturedepièces.AddItem Worksheets("Liste").Cells(i, 7)
i = i + 1
Loop
i = 1
Do While Worksheets("Liste").Cells(1, i) <> ""
Ilot.AddItem Worksheets("Liste").Cells(1, i)
i = i + 1
Loop
End Sub