Private Sub b_validation_Click()
'--- Contrôles
If Feuil.nom = "" Then
MsgBox "Saisir un nom!"
Feuil.nom.SetFocus
Exit Sub
End If
'-- Date?
If Not IsDate(Feuil.date_naissance) Then
MsgBox "Saisir une date!"
Feuil.date_naissance = ""
Feuil.date_naissance.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
'[B:B].Find(What:=Feuil.nom, LookIn:=xlValues).Select
ActiveCell.Offset(0, -1).Select
'--- Transfert Formulaire dans BD
ActiveCell.Offset(0, 1).Value = Application.Proper(Feuil!nom)
ActiveCell.Offset(0, 2).Value = Application.Proper(Feuil!prenom)
ActiveCell.Offset(0, 3).Value = Feuil.Marié
ActiveCell.Offset(0, 4).Value = CVDate(Feuil.date_naissance)
ActiveCell.Offset(0, 5).Value = Feuil.Service
ActiveCell.Offset(0, 6).Value = Feuil.Ville
ActiveCell.Offset(0, 7).Value = CDbl(Feuil.Salaire)
'-- Civilité
temp = ""
For Each c In Feuil.Civilité.Controls
If c.Value = True Then
temp = c.Caption
End If
Next c
ActiveCell.Value = temp
'--
nettoie
End Sub
Sub nettoie()
Feuil.prenom = ""
Feuil.nom = ""
Feuil.date_naissance = ""
Feuil.Service = ""
Feuil.Ville = ""
Feuil.Salaire = ""
For Each c In Feuil.Civilité.Controls
c.Value = False
Next c
Feuil.Marié = False
End Sub