Discussion :

[JeremieT]

Bonjour à tous,

Je suis tombé sur un code qui ressemble à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Ctl10_COUPURE1 _AfterUpdate()
[Somme_defauts].Value = [1- DEFAUTX].Value + [2- DEFAUTY].Value + [3- DEFAUTX1].Value + [4- DEFAUTY1].Value
[Somme_defauts_machine1].Value = [1- DEFAUTX].Value + [2- DEFAUTY]
End Sub
 
Private Sub Ctl10_COUPURE2_AfterUpdate()
[Somme_defauts].Value = [1- DEFAUTX].Value + [2- DEFAUTY].Value + [3- DEFAUTX1].Value + [4- DEFAUTY1].Value
[Somme_defauts_machine2].Value = [1- DEFAUTX1].Value + [2- DEFAUTY1]
End Sub

Ceci est reproduit pour chaque zone de texte qui prendra une valeur numérique…

Quel pourrait-être le code optimisé ? En créant une fonction ?

Merci à tous

[cafeine]

Hello,

merci d'éditer votre premier message et d'utiliser les balises code.

bouton :

[keita]

salut
Essai ça pour voir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function CalculerValeur(Val0 As Long, Val1 As Long, Optional Val3 As Long, Optional Val4 As Long) as long
    CalculerValeur = Val0 + Val1 + Val2 + Val3 + Val4
End Function

Ainsi pour le 1er calcul:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Ctl10_COUPURE1 _AfterUpdate() 
Me![Somme_defauts]=CalculerValeur(Me![1- DEFAUTX], Me![2- DEFAUTY], Me![3- DEFAUTX1], Me![4- DEFAUTY1])
Me![Somme_defauts_machine1] = CalculerValeur(Me![1- DEFAUTX], Me![2- DEFAUTY]) 
End Sub

[JeremieT]

Hello,

merci d'éditer votre premier message et d'utiliser les balises code.

bouton :

j'avais oublié dsl !

[JeremieT]

salut
Essai ça pour voir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function CalculerValeur(Val0 As Long, Val1 As Long, Optional Val3 As Long, Optional Val4 As Long) as long
    CalculerValeur = Val0 + Val1 + Val2 + Val3 + Val4
End Function

Ainsi pour le 1er calcul:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Ctl10_COUPURE1 _AfterUpdate() 
Me![Somme_defauts]=CalculerValeur(Me![1- DEFAUTX], Me![2- DEFAUTY], Me![3- DEFAUTX1], Me![4- DEFAUTY1])
Me![Somme_defauts_machine1] = CalculerValeur(Me![1- DEFAUTX], Me![2- DEFAUTY]) 
End Sub

En fait je voyais plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Sommedefauts()
[Somme_defauts].Value = [1- DEFAUTX].Value + [2- DEFAUTY].Value + [3- DEFAUTX1].Value + [4- DEFAUTY1].Value
End Function
 
Function Sommedefautsmachine1()
[Somme_defauts_machine1].Value = [1- DEFAUTX].Value + [2- DEFAUTY]
End Function

Et ainsi pour chaque contrôles j'aurais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Ctl10_COUPURE2_AfterUpdate() 
Call Sommedefauts
Call Sommedefautsmachine1
End Sub

Quelque chose de ce type !!!

Car ce qui risque d'évoluer sont les [1- DEFAUTX] en en rajoutant ou enlevant donc je souhaiterais le modifier qu'une seule fois et nons pas pour chaque contrôle ;-)

Voir même pour les contrôle qui font appel au même fonction, serait-il possible de les regroupe de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Private Sub Ctl10_COUPURE1 _AfterUpdate() 
   Private Sub Ctl10_COUPURE2 _AfterUpdate() 
      Then    Call Sommedefauts
                 Call Sommedefautsmachine1

Mais je ne suis pas convaincu ;-)

Merci à tous

[keita]

oui c'est possible ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Ctl10_COUPURE2_AfterUpdate() 
Call Sommedefauts 
Call Sommedefautsmachine1 
End Sub

Et meme plus simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Ctl10_COUPURE2_AfterUpdate() 
      Sommedefauts 
      Sommedefautsmachine1 
End Sub

Ici je ne comprends pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Private Sub Ctl10_COUPURE1 _AfterUpdate() 
   Private Sub Ctl10_COUPURE2 _AfterUpdate() 
      Then    Call Sommedefauts 
                 Call Sommedefautsmachine1

@+

[JeremieT]

merci keita c'est parfait ;-)