Private Sub UserForm_Initialize()
'centrage du userform sur l'écran
Me.StartUpPosition = 2
End Sub
Private Sub CommandButton_ajouter_Click()
'insertion des champs principaux dans Table_comptes et de champs modifiés dans d'autres tables
If TextBox_nom = "" Then MsgBox "Il manque le nom du compte."
[Table_comptes[COMPTES]].End(xlDown)(2) = TextBox_nom.Value
[L_comptesepargne[COMPTES D'EPARGNE]].End(xlDown)(2) = TextBox_nom.Value
End Sub
Private Sub CommandButton_annuler_Click()
'bouton annuler et vider la mémoire
Unload Me
End Sub