Bonjour, j'ai un petit souci dans un de mes formulaires. plusieurs modifications identiques doivent être éffectuées lorsque je modifie des champs différents. à chaque fois, il n'y a qu'une ou deux modifications, mais le coeur des modifications reste le même.

Exemple:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub P1Dur_AfterUpdate()
      Me.Palier1 = Me.P1Dur
 
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub
 
Private Sub Palier1_AfterUpdate()
      Me.P1Dur = Me.palier1
 
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub

je voudrais donc passer à:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub P1Dur_AfterUpdate()
      Me.Palier1 = Me.P1Dur
 
      Goto Calculs
End Sub
 
Private Sub Palier1_AfterUpdate()
      Me.P1Dur = Me.palier1
 
      Goto Calculs
End Sub
 
Calculs:
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub
comment faire? Je me doute qu'il doit exister une autre commande, mais laquelle? j'ai essayé avec les Public Function, mais ça ne fonctionne pas. actuellement, j'ai commencé à tout taper manuellement, mais à chaque erreur je dois tout re-modifier... sans compter la place que ça prend et le temps que je perds!!

Merci d'avance...