Bonjour,
Et tu les pécho ou tes valeurs ce sont des valeurs prise dans la feuille (dans ce cas : où ?) ou des valeurs que tu vas rentrer dans le USF ?
Si ce sont juste des valeurs entrées dans le USF tu peux mettre ça :
Private Sub E1_Change(): Common: End Sub
Private Sub E2_Change(): Common: End Sub
Private Sub E3_Change(): Common: End Sub
Private Sub E4_Change(): Common: End Sub
Private Sub E5_Change(): Common: End Sub
Private Sub E6_Change(): Common: End Sub
Private Sub E7_Change(): Common: End Sub
Private Sub E8_Change(): Common: End Sub
Private Function MaxTb()
For i = 1 To 8
remax = IIf(Me.Controls("E" & i) > remax, Me.Controls("E" & i), remax)
Next i
MaxTb = remax
End Function
Private Function MinTb()
Dim remin!
If remin = 0 Then remin = 9 ^ 9
For i = 1 To 8
remin = IIf(Me.Controls("E" & i) > 0 And Me.Controls("E" & i) < remin, Me.Controls("E" & i), remin)
Next i
MinTb = remin
End Function
Private Sub Common()
MAX_V = MaxTb
MIN_V = MinTb
End Sub
A+