Bonjour à tous,
Je suis tombé sur un code qui ressemble à cela :
Ceci est reproduit pour chaque zone de texte qui prendra une valeur numérique…
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
Quel pourrait-être le code optimisé ? En créant une fonction ?
Merci à tous
Partager