MAX et MIN dans un VAB

Bsr,

je veux apparaître dans un Textbox le MAX et le MIN entre des valeurs

Merci

25min-max.xlsm (12.30 Ko)

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+

Merci beaucoup de ta réponse

les E1---E8 sont des résultat dans USF exemple A1+B1=E1

Donc E1 un résultat dans je veux chercher dans les 8 résultat Min t Max

concernant le code que te donner j essayer mais sa marche pas correctement si je rentre le valeur manuel comme dans le exemple rejoindre de la départ sa marche correcte mais sij' ajoute une deuxième valeur min le prend ce valeur min dans le textbox Max

Bonsoir,

Désolé, je ne comprend pas : Je n'ai pas d'anomalie.

Peut-être quelqu'un d'autre verra t-il quelque chose qui m'échappe...

A+

Rechercher des sujets similaires à "max min vab"