Private Sub B_validation_Click()
If Me.nom = "" Then
MsgBox "Saisir un nom"
Me.nom.SetFocus
Exit Sub
End If
'--- Transfert Formulaire dans BD
f.Cells(ligneEnreg, 1) = Application.Proper(Me!nom)
f.Cells(ligneEnreg, 2) = date_de_naissance
f.Cells(ligneEnreg, 3) = tel_maman
If f.Cells(ligneEnreg, 3) <> "" Then
f.Cells(ligneEnreg, 3) = f.Cells(ligneEnreg, 3) * 1
End If
f.Cells(ligneEnreg, 4) = Me.tel_papa
If f.Cells(ligneEnreg, 4) <> "" Then
f.Cells(ligneEnreg, 4) = f.Cells(ligneEnreg, 4) * 1
End If
f.Cells(ligneEnreg, 5) = Me.ComboBox1
f.Cells(ligneEnreg, 6) = Me.autre_1
If f.Cells(ligneEnreg, 6) <> "" Then
f.Cells(ligneEnreg, 6) = f.Cells(ligneEnreg, 6) * 1
End If
f.Cells(ligneEnreg, 7) = Me.ComboBox2
f.Cells(ligneEnreg, 8) = Me.autre_2
If f.Cells(ligneEnreg, 8) <> "" Then
f.Cells(ligneEnreg, 8) = f.Cells(ligneEnreg, 8) * 1
End If
f.Cells(ligneEnreg, 9) = Me.infos
End Sub