Private Sub CommandButton1_Click()
'########################## ONGLET COMPTES #################################################################
'##### CADRE NOMS ########
'si la textbox ne contient aucune valeur, alors ne pas mettre à jour (rien)
' dans les autres cas, insérer cette valeur dans...
If Not nom_compte2.Value = "" Then Sheets("Epargne").Range("A28").Value = nom_compte2
If Not nom_compte3.Value = "" Then Sheets("Epargne").Range("A29").Value = nom_compte3
If Not nom_compte4.Value = "" Then Sheets("Epargne").Range("A30").Value = nom_compte4
If Not nom_compte5.Value = "" Then Sheets("Epargne").Range("A31").Value = nom_compte5
If Not nom_compte6.Value = "" Then Sheets("Epargne").Range("A32").Value = nom_compte6
'##### CADRE MONTANTS ########
'si la textbox ne contient aucune valeur, alors ne pas mettre à jour (rien)
If Not montant_compte1.Value = "" Then
'si la textbox ne contient pas de valeur numérique, alors msgbox et vider la textbox
If Not IsNumeric(montant_compte1.Value) Then
MsgBox "Saisir une valeur numérique", vbExclamation, "Erreur de saisie"
montant_compte1.Value = ""
montant_compte1.SetFocus
Exit Sub
End If
End If
' dans les autres cas, insérer cette valeur dans...
Sheets("Epargne").Range("B2").Value = montant_compte1
'########################## CADRE OBJECTIFS #################################################################
'########################## CADRE PERSONNALISATION ##########################################################
'########################## CADRE VOITURES ##################################################################
'fermer la fenêtre et vider les données mémoires
Unload Me
End Sub