Private Sub UserForm_Initialize()
With Me
With .ComboBox1
.ColumnCount = 2
.ColumnWidths = "1;0"
.AddItem "Homme"
.List(.ListCount - 1, 1) = "H"
.AddItem "Femme"
.List(.ListCount - 1, 1) = "F"
End With
End With
End Sub
Private Sub CommandButton1_Click()
Dim DernLigne As Integer
DernLigne = Range("M65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
Range("M" & DernLigne) = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
Unload Me
End Sub