Fonction MIN

[Bois.CL]

Salut à tous .
Je viens encore vous solliciter

Comment dans un Userform avec des textbox faire l'equivalent de la fonction excel MIN.

Je m'explique:

J'ai des prix de differents fournisseurs a entrer dans mettons 6 textbox.
j'aurais voulu que dans un 7eme txtbox s'affiche le prix du moins disant.

Avec des boucles et des si j'arrive a un semblant de resultat mais c'est hyper long (à taper).

quelqu'un a une idée ?

Merci
@ plus

 

[Bricofire]

Salut,
Vois sur ce lien peut-être,

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=144919&t=144910

Je l'ai trouvé en faisant Min dans recherche du forum 🙂

bon courage,

Bfr

 

[Bois.CL]

MMouaish !

mais tu passe par la feuille excel alors que je voudrais que tout se passe dans mon user form avant de sauver dans excel

enfin faute de mieu

mais si quelqu'un à une autre idée je suis preneur.

je vous remercie quand meme.
@ plus

 

[Bois.CL]

J'ai reussi un truc pas trop lourd

Private Sub Min()
Dim Valeur(10) As Variant
Dim i As Integer
Dim Index As Integer
Dim ValMin As String
Index = 0
If I0.Value <> "" Then Index = Index + 1: Valeur(Index) = I0.Value
If J0.Value <> "" Then Index = Index + 1: Valeur(Index) = J0.Value
If K0.Value <> "" Then Index = Index + 1: Valeur(Index) = K0.Value
If L0.Value <> "" Then Index = Index + 1: Valeur(Index) = L0.Value
If M0.Value <> "" Then Index = Index + 1: Valeur(Index) = M0.Value
If N0.Value <> "" Then Index = Index + 1: Valeur(Index) = N0.Value
If Index = 0 Then Exit Sub
If Index = 1 Then E0.Value = Valeur(Index): Exit Sub
ValMin = Valeur(1)
For i = 1 To Index
If Valeur(i) < ValMin Then ValMin = Valeur(i)
Next i

E0.Value = ValMin
end sub


I0-J0-K0....... sont mes textbox.

Ca marche.

 

[Hervé]

Bonjour

Je vois que tu as trouvé ton bonheur :

Pour information, et puisque le travail était fait, une proposition par boucle :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim mini As Single
mini = TextBox1.Value
For i = 1 To 6
If CSng(Controls("TextBox" & i).Value) < mini Then mini = Controls("TextBox" & i).Value
Next i
TextBox7.Value = mini
End Sub

Salut
Hervé