N
nanard25
Guest
Bonsoir à tous,
Bonsoir Kotov et merci mais ce n'est pas exactement ce que je voulais,
J'ai T R O U V E
😀
voici le résultat :
Dim FinFichier As Long
FinFichier = Range("A65535").End(xlUp).Row
Range("L9").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-4],R9C8:R" & FinFichier & "C8,0)"
Range("L9").Select
Selection.AutoFill Destination:=Range("L9:L" & FinFichier), Type:=xlFillDefault
Range("L9:L" & FinFichier).Select
Range("L9").Select
Je vous souhaite une bonne soirée
Nanard25
Bonsoir Kotov et merci mais ce n'est pas exactement ce que je voulais,
J'ai T R O U V E
😀
voici le résultat :
Dim FinFichier As Long
FinFichier = Range("A65535").End(xlUp).Row
Range("L9").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-4],R9C8:R" & FinFichier & "C8,0)"
Range("L9").Select
Selection.AutoFill Destination:=Range("L9:L" & FinFichier), Type:=xlFillDefault
Range("L9:L" & FinFichier).Select
Range("L9").Select
Je vous souhaite une bonne soirée
Nanard25
Dernière modification par un modérateur: