Discussion :

[coucoucmoi]

Bonjour,
Mon problème est simple : a partir de delphi 7, je veux trier sur une colonne un fichier excel. et donc trier les lignes correspondante a cette valeur
ex
toto 1 aaa
lolo 10 bbb
popo 5 ccc
=>
toto 1 aaa
popo 5 ccc
lolo 10 bbb

je veux donc inverser deux lignes
J'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Excel: TExcelApplication;
  wb: _Workbook;
  ws: _Worksheet;

Je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    ws.Rows.Item[i,EmptyParam].Select;
    ws.selection.Cut;
 
    ws.Rows.Item[j+1,EmptyParam].Select ;
    ws.Selection.Insert(xlDown);    //  Shift:=  xlDown

mais delphi ne connait pas "selection".
J'ai copié ce code a partir de vba, mais je ne sait pas l'adapter

Est ce que quelqu'un peut m'aider ?

[coucoucmoi]

J'ai trouvé
Pour info :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
            ws.Rows.Item[j,EmptyParam].Select;
            ws.Range[ws.Rows.Item[j,EmptyParam],
                     ws.Rows.Item[j,EmptyParam]].cut(emptyparam);
 
            ws.Rows.Item[j+2,EmptyParam].Select ;
            ws.Range[ws.Rows.Item[j+2,EmptyParam],
                     ws.Rows.Item[j+2,EmptyParam]].Insert(xlDown,emptyparam);