oceanex
XLDnaute Nouveau
Bonjour à tous
j'aurais besoin d'un petit coup de main pour démarrer un code.
j'ai un utilisateurs qui a des données dans différente colonne. au départ elle me dit, peux tu me donnée la valeur la plus petite et me dire le fournisseur et me dire la valeur
j'ai fait ceci et sa marche super bien.
elle me revient et me dit, pourrais tu me donne la deuxième valeur la plus basse dans la colonne suivante, la troisième et ainsi de suite.
avec la fonction min est ce qu'il y a moyen de pouvoir dire la deuxième valeur la plus petite ?
J'ai pensé a copier, faire un tri, mais se sera pas efficace au niveau du code...
avez vous une suggestion ?
un gros merci
j'aurais besoin d'un petit coup de main pour démarrer un code.
j'ai un utilisateurs qui a des données dans différente colonne. au départ elle me dit, peux tu me donnée la valeur la plus petite et me dire le fournisseur et me dire la valeur
j'ai fait ceci et sa marche super bien.
Code:
four1 = Round(Range("h" & x).Value, 2)
four2 = Round(Range("l" & x).Value, 2)
four3 = Round(Range("p" & x).Value, 2)
four4 = Round(Range("x" & x).Value, 2)
four5 = Round(Range("ab" & x).Value, 2)
min = Application.WorksheetFunction.min(four1, four2, four3, four4, four5)
Select Case min
Case four1
Range("AC" & x) = Range("f7")
Case four2
Range("AC" & x) = Range("i7")
Case four3
Range("AC" & x).Value = Range("n7")
Case four4
Range("AC" & x).Value = Range("u7").Value
Case four5
Range("AC" & x).Value = Range("y7").Value
End Select
Range("AD" & x).Value = min
elle me revient et me dit, pourrais tu me donne la deuxième valeur la plus basse dans la colonne suivante, la troisième et ainsi de suite.
avec la fonction min est ce qu'il y a moyen de pouvoir dire la deuxième valeur la plus petite ?
J'ai pensé a copier, faire un tri, mais se sera pas efficace au niveau du code...
avez vous une suggestion ?
un gros merci