Bonjour,
j'essaie de faire un code qui trie les colonnes 2 par 2.
colonne i : tickers
colonne i+1 : returns
la colonne i se répète mais l'avantage de le présenter comme cela est purement visuel
l'erreur que j'obtiens est une erreur d'exécution 1004 ,
référence de tri non valide. Vérifiez qu'elle se trouve bien parmi les données à trier et que la zone à trier n'est pas identique ou vide
voici mon code
Sub essaitri()
l = Selection.End(xlDown).Row
l = l
Dim k As Integer
For k = 1 To l Step 2
Range(Cells(k, 1), Cells(k + 1, 1)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Feuil16").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil16").Sort.SortFields.Add Key:=Range( _
Cells(k + 1, 2), Cells(k + 1, 497)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil16").Sort
.SetRange Range(Cells(k, 1), Cells(k + 1, 497))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next k
le programme bloque au niveau de l'avant dernière ligne "Apply"
je vous remercie d'avance pour votre aide
cdt,
les colonnes ont toujours le même nombre de lignes
entêtes: colonne i : ticker
colonne i+1 : return
le tri s'effectue sur la colonne i+1
(on réordonne du plus grand au plus petit, il faut que les tickers en face se mettent dans le bon ordre pour correspondre au bon return)
excel 2007
merci