[VBA] Goto faisant référence en-dehors d'un Private Sub?
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:
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:
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...
