Private Sub UserForm_Initialize()
Me.Service.List = Array("Etudes", "Informatique", "Marketing", "Production")
Me.Ville.List = Array("Boulogne", "Lyon", "Paris", "Versailles")
End Sub
Private Sub b_validation_Click()
'--- Positionnement dans la base
ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans BD
Sheets("BD").Cells(ligne, 1) = Application.Proper(Me!nom)
Sheets("BD").Cells(ligne, 2) = CVDate(Me.date_naissance)
Sheets("BD").Cells(ligne, 3) = Me.Service
Sheets("BD").Cells(ligne, 4) = Me.Ville
Sheets("BD").Cells(ligne, 5) = CDbl(Me.Salaire)
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub