Bonjour,

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Form_Current()
If Me.[Chang_nom] Then MsgBox "Changement de nom !", vbExclamation, 
If Me.[Pas en règle] Then MsgBox "Pas en règle de mutuelle - VOIR SI ATTESTATION !", vbExclamation, 
 
End Sub
J'ai besoin de mettre un code supplémentaire sur le formulaire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Form_Current()
Age = calculAge(DDN.Value, Now)
End Sub

Si je le mets à part et que je refais une nouvelle ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub Form_Current()
il y a conflit; donc je suppose qu'il faut combiner les 2 codes dans 1 seul
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub Form_Current()
Comment faire ?

Merci.

Bonne journée,