Excel Range Find('*')

Version imprimable

Bonjour,

En VBA, j'ai une fonction me permettant de récupérer rapidement la dernière colonne non vide d'une feuille.

J'ai essayé d'implémenter une fonction Delphi utilisant ces connaissances en VBA. Ca donne un truc comme ça.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 uses Variants, Excel2000; function Max_Col(AOLE_Worksheet : OLEVariant) : integer; var rRange : OLEVariant; begin rRange := AOLE_Worksheet.Range[AOLE_Worksheet.Cells.Item[1, 1], AOLE_Worksheet.Cells.Item[65536, 255]]; rRange := rRange.Find('*', , , , xlByColumns, xlPrevious); if not VarIsClear(rRange) then result := rRange.Column else result := -1; end;
Ca marche... Enfin presque. Le souci, c'est qu'il ne reconnait pas le symbole '*' comme mot clé permettant de rechercher n'importe quel mot.

Ca marche en VBA mais pas en Delphi. Si je remplace '*' par 'hello' ; ca me retourne bien la colonne de plus grand index ou se trouve le mot 'hello'.

Quelqu'un aurait une idée ?

12/01/2010, 14h17
BuzzLeclaire
Salut,

- Tu as essayé le signe % ?
- Tu as essayé de transformer le signe * par un ord ou str (je sais plus) au lieu de taper le signe ?

Sinon dernière solution teste le contenue de la cellule.
Code:

1 2 3 4 MyCellule := ExcelWs.Cells.Item[x,y].value; if MyCellule <> '' then // ...
Bye

Je m'autoréponds. Il faut mettre '*' dans une variable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  Variants,
  Excel2000;
 
function Max_Col(AOLE_Worksheet : OLEVariant) : integer;
var
  rRange : OLEVariant;
  sWhat : string;
begin
  sWhat := '*';
  rRange := AOLE_Worksheet.Range[AOLE_Worksheet.Cells.Item[1, 1], AOLE_Worksheet.Cells.Item[65536, 255]];
  rRange := rRange.Find(sWhat, , , , xlByColumns, xlPrevious);
 
  if not VarIsClear(rRange) then
    result := rRange.Column
  else
    result := -1;
end;