Discussion :

[Hollow]

Salut,

Je cherche à trier une colonne sous excel avec les composants d'office partner (Delphi 6, bref)

Cette fonction existe dans l'unit OpXLXP. Mais impossible de la faire marcher.

Exemple simplifié - tri de la colonne Q à l'adresse A2:
ceci ne marche pas (La formule que vous tapez contient une erreur)

Code :

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

1
2
3
Rng := OpExcel.Workbooks[0].Worksheets[0].Ranges.Add;
 
Rng.AsRange.Sort(OleVariant('Q2'), OleVariant(xlAscending), OleVariant(varEmpty), OleVariant(varEmpty), OleVariant(varEmpty), OleVariant(varEmpty), OleVariant(varEmpty), OleVariant(xlGuess), OleVariant(1), OleVariant(False), OleVariant(xlTopToBottom), OleVariant(xlTopToBottom), OleVariant(xlSortNormal), OleVariant(varEmpty), OleVariant(varEmpty));

J'ai essayé sans Cast (OleVariant), pareil.
Je ne sais plus comment faire passer les paramètres, je suis désespéré.

Si quelqu'un avait une idée, merci d'avance.
Je continu de chercher (3 jours), mais avant je passe prendre une corde au cas où.


+++

Merci d'utiliser les balises code
Laurent Dardenne

[Laurent Dardenne]

Essaie de créer une macro qui effectue le même traitement et vérifie les paramétres.

[Hollow]

Désolé Laurent pour les cotes, j'ai vu après coup qu'il y avait des règles pour les posts.


Merci pour ce conseil, mais je dois automatiser mon traitement. Il me faut donc générer une macros. pfff, je vais faire des recherches la dessus, mais j'ai bien peur de ne pas atteindre mon objectif.

merci.

+++

[Hollow]

J'ai trouvé le moyen d'utiliser cette fonction de tri.

Pour trier une colonne excel avec les composant Office Partner.

{tri d'une colonne excel dont la première ligne de la colonne
est égal TEL}
procedure TForm1.Button1Click(Sender: TObject);
var rTEL: TOpExcelRange;
begin
if OpExcel.Connected = False then
begin
OpExcel.Connected := True;
OpExcel.Visible := True;
end;

rTEL := OpExcel.Workbooks[0].Worksheets[0].Ranges.Add;
rTEL.AsRange.Sort('TEL', xlAscending, emptyParam, emptyParam,
VarNull, emptyParam, VarNull,
xlGuess, 1, False, xlTopToBottom, VarNull,
xlSortNormal, VarNull, VarNull);
end;

Le problème c'est de connaître la valeur de la première ligne.
Je vais voir si y a un moyen d'éviter cela, ou si quelqu'un à une idéé.
En tout cas merci, mon pb est résolu.

Hollow

[Laurent Dardenne]

Je vais voir si y a un moyen d'éviter cela, ou si quelqu'un à une idéé.

Cette fonction de tri n'est pas lié à Office partner mais à Excel, recherche dans l'aide en ligne le mot Tri ou Sort.

Regarde dans la FAQ également :
http://delphi.developpez.com/faq/?pa...#excelplatrier