Bonjour le forum,

Je viens vers vous car je pense qu'il est possible de raccourcir ce code, pourriez-vous me donner un coup de main?,

Peut-être en créant une boucle?

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TextBox11_Change()
Range("A2") = Val(TextBox11)
End Sub
 
Private Sub TextBox12_Change()
Range("B2") = Val(TextBox12)
End Sub
Private Sub TextBox13_Change()
Range("C2") = Val(TextBox13)
End Sub
Private Sub TextBox14_Change()
Range("D2") = Val(TextBox14)
End Sub
Private Sub TextBox15_Change()
Range("E2") = Val(TextBox15)
End Sub
Private Sub TextBox16_Change()
Range("F2") = Val(TextBox16)
End Sub
Private Sub TextBox17_Change()
Range("G2") = Val(TextBox17)
End Sub
Private Sub TextBox18_Change()
Range("H2") = Val(TextBox18)
End Sub
Private Sub TextBox19_Change()
Range("I2") = Val(TextBox19)
End Sub
Private Sub TextBox20_Change()
Range("J2") = Val(TextBox20)
End Sub
Merci d'avance