Hello Dan, Fab
Rapidos, vraiment rapidos, sans aucun test... Mais pour l'idée :
Dim Variable(50) As Double
Dim i As Byte
Variable(1) = TextBox1
Variable(2) = TextBox2
Variable(3) = TextBox3
Variable(4) = TextBox4
Variable(5) = TextBox5
Variable(6) = TextBox6
' Etc....
For i = 1 To 50
If Not IsEmpty(Variable(i)) Then
Variable(i) = Format(Variable(i), "0.0")
'... Etc
Bon App
@+Thierry
PS Remarque Perso : 50 variables c'est pas un peu beaucoup ??? Faudrait ptet voir si elles sont rééllement ustiles ?