Private Sub CommandButton2_Click()
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
With Sheets("Feuil6")
.Range("A15").Value = ComboBox1.Value
.Range("B18").Value = ComboBox2.Value
.Range("B20").Value = ComboBox3.Value
.Range("A37").Value = ComboBox4.Value
.Range("A43").Value = ComboBox5.Value
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim C As Range, ColA As Integer, ColB As Integer, ColC As Integer
For Each C In Sheets("Feuil7").Range("ColA")
If Not C = "" Then ComboBox1.AddItem C
Next C
For Each C In Sheets("Feuil7").Range("ColB")
If Not C = "" Then ComboBox2.AddItem C
Next C
For Each C In Sheets("Feuil7").Range("ColC")
If Not C = "" Then ComboBox3.AddItem C
Next C
For Each C In Sheets("Feuil3").Range("ColB")
If Not C = "" Then ComboBox4.AddItem C
Next C
For Each C In Sheets("Feuil3").Range("ColB")
If Not C = "" Then ComboBox5.AddItem C
Next C
End Sub