modifier une macro

[klorane]

Bonjour à tous,

j'ai dans le classeur joint ci dessous une macro (lancée par le bouton) qui me classe en ordre croissant dans les cellules A5 à E5 les 5 valeurs les plus importantes des cellules A3 à K3.

il faudrait que sous les 5 valeurs classées de A5 à E5 se place dans la zone bleue sous chaque valeur la valeur indiquée en zone jaune.

se qui ferai en A6 la valeur 9 Car (9 correspond à 50)
se qui ferai en B6 la valeur 11 Car (11 correspond à 44)
se qui ferai en C6 la valeur 5..
se qui ferai en D6 la valeur 8..
se qui ferai en A6 la valeur 7..

Merci

Laurent

 

[SergiO]

Re : modifier une macro

Bonsoir Klorane,

Voici ton code modifié :

Sub Bouton1_QuandClic()

For i = 1 To 5
     Nb = Application.Large(Range("A3:K3"), i)
    [A5].Offset(0, i - 1) = Nb
    Col = Range("A3:K3").Find(Nb).Column
    [A6].Offset(0, i - 1) = Cells(2, Col)
Next

End Sub

Bonne soirée

 

[klorane]

Re : modifier une macro

Merci Sergio c'est super!!

Bon week end toi (et à ceux qui passeront pas là)

Laurent