Bonjour François,
Merci de ton implication, mais ce n'est pas ce que je recherche, je me suis débrouiller avec un tuto et le code ci dessous:
Private Sub UserForm_Layout()
Dim colx As Integer
colx = 1
Sheets("UTILISATEUR").Select
Do While Cells(1, colx).Value <> ""
LOGISTIQUE.ComboBox1.AddItem Cells(1, colx).Value
LOGISTIQUE.ComboBox2.AddItem Cells(1, colx).Value
LOGISTIQUE.ComboBox4.AddItem Cells(1, colx).Value
LOGISTIQUE.ComboBox6.AddItem Cells(1, colx).Value
colx = colx + 1
Loop
Sheets("DEMARRER").Select
End Sub
et
Private Sub ComboBox2_Change()
Sheets("UTILISATEUR").Select
i = 1
Do While Cells(1, i).Value <> ""
If Cells(1, i).Value = ComboBox2.Value Then
Cells(1, i).Select
Col = ActiveCell.Column
End If
i = i + 1
Loop
Sheets("UTILISATEUR").Select
l = 2
Do While Cells(l, Col).Value <> ""
LOGISTIQUE.ComboBox3.AddItem Cells(l, Col).Value
l = l + 1
Loop
Sheets("DEMARRER").Select
End Sub
Merci