[D10.4] Range Excel Via RefToCell : simplification du code

Version imprimable

Bonjour,
j'ai récupéré un code d'export de AdoDataset vers excel qui fait appel à une function qui ne supporte que 26 colonnes.
L'appel a cette fonction me sert a alimenter la première ligne de la feuille excel avec le nom des champs.
Code:

1 2 3 4 5 6 7 8 9 10 for Index := 0 to AdoDataSet1.fields.count - 1 do Sheet.Range[RefToCell(1, Index + 1), RefToCell(1, Index + 1)].Value := AdoDataSet1.Fields.Fields[Index].DisplayLabel; ..... function RefToCell(ARow, ACol: Integer): string; begin Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow); end;
J'ai commencé à modifier RefToCall car mes dataset on bien plus de colonnes. ce code modifié fonctionne parfaitement mais je voudrais le simplifier car il est .. stupide..
Je ne trouve pas la logique en utilisant par exemple INT et MOD pour le simplifier.

le voici dans sa version limitées à 78 colonnes.
Code:

1 2 3 4 5 6 7 8 function RefToCell(ARow, ACol: Integer): string; begin case Acol of 1..26 : Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow); 27..52 : Result := 'A' + Chr(Ord('A') + ACol - 27) + IntToStr(ARow); 53..78 : Result := 'B' + Chr(Ord('A') + ACol - 53) + IntToStr(ARow); end; end;
Si l'un d'entre vous à une idée ou une version dynamique et courte, j'en serais ravi.

Excellente journée a tous.

PS : j'espère que j'ai balisé ma demande correctement, car ça fait des années que je n'ai plus pointé le bout de mon nez ici.:D

10/11/2022, 11h53
ShaiLeTroll

Transformer un nombre décimal en suite de lettre A..Z, ce n'est au final qu'une conversion de base, à l'instar du Hexa, mais uniquement avec des lettres

J'ai ça dans un coin sur le forum

Sinon, l'objet Range OLE de Excel Sheet supporte très bien la numérotation décimale

J'ai retrouvé cette version simpliste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
function RangeExcel(iLigne, iColonne: Integer): string;
var
  iPremiereLettre, iSecondeLettre: Integer;
begin
  if iColonne <= 26 then
    result := Chr(iColonne+64) + IntToStr(iLigne)
  else
  begin
    iPremiereLettre := Trunc((iColonne-1) / 26);
    iSecondeLettre := iColonne - iPremiereLettre*26;
    result := Chr(iPremiereLettre+64) + Chr(iSecondeLettre+64) + IntToStr(iLigne);
  end;
end;

10/11/2022, 12h02
Godzestla

Citation:

Envoyé par ShaiLeTroll

Sinon, l'objet Range OLE de Excel Sheet supporte très bien la numérotation décimale

C'est effectivement l'idéal, mais je ne parviens pas à mettre la main sur la doc de cet objet OLE ou je pourrais trouver comment remplacer la méthode RANGE par quelque-chose comme CELL

Citation:
Envoyé par ShaiLeTroll
Sinon, l'objet Range OLE de Excel Sheet supporte très bien la numérotation décimale

J'ai retrouvé cette version simpliste
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 function RangeExcel(iLigne, iColonne: Integer): string; var iPremiereLettre, iSecondeLettre: Integer; begin if iColonne <= 26 then result := Chr(iColonne+64) + IntToStr(iLigne) else begin iPremiereLettre := Trunc((iColonne-1) / 26); iSecondeLettre := iColonne - iPremiereLettre*26; result := Chr(iPremiereLettre+64) + Chr(iSecondeLettre+64) + IntToStr(iLigne); end; end;
yes, c'est ca qu'il me faut. merciiiii Je teste direct.

10/11/2022, 12h21
Godzestla

Ca marche impec. Un immense merci. je cloture.
10/11/2022, 12h22
ShaiLeTroll

La doc c'est la MSDN : Référence VBA Office / Excel / Modèle d’objet / Objet Range (Excel)

Sinon pour illustrer la conversion de base si la version si Excel dépasse ZZ ce qui est peut-être possible maintenant

ConversionIntToBase peut aussi servir pour l'octal '01234567' ou l'hexa '0123456789ABCDEF' même le binaire '01'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function ConversionIntToBase(Value: Int64; Base: string): string;
var
  BaseLen: Integer;
  pResult: PChar;
  k: integer;
  kk: extended;
begin
  BaseLen := Length(Base);
  if BaseLen >= 0 then
  begin
    if Value >= BaseLen then
    begin
      SetLength(Result, Math.Floor(LogN(BaseLen, Value)) + 1); // LogN est-il plus rapide que des réallocations de chaine dans une boucle ?
      pResult := @Result[Length(Result)];
 
      while Value > 0 do
      begin
        pResult^ := Base[Value mod BaseLen + 1];
        Value := Value div BaseLen;
        Dec(pResult);
      end;
    end
    else
      Result := Base[Value + 1];
  end
  else
    Result := '';
end;

Code:

1
2
3
4
function RangeExcel(iLigne, iColonne: Integer): string;
begin
  Result :=ConversionIntToBase(iColonne - 1, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') +  IntToStr(iLigne);
end;

10/11/2022, 12h57
Godzestla

Top. Encore merci

Citation:
Envoyé par ShaiLeTroll
Sinon pour illustrer la conversion de base si la version si Excel dépasse ZZ ce qui est peut-être possible maintenant

ConversionIntToBase peut aussi servir pour l'octal '01234567' ou l'hexa '0123456789ABCDEF' même le binaire '01'
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 function ConversionIntToBase(Value: Int64; Base: string): string; var BaseLen: Integer; pResult: PChar; k: integer; kk: extended; begin BaseLen := Length(Base); if BaseLen >= 0 then begin if Value >= BaseLen then begin SetLength(Result, Math.Floor(LogN(BaseLen, Value)) + 1); // LogN est-il plus rapide que des réallocations de chaine dans une boucle ? pResult := @Result[Length(Result)]; while Value > 0 do begin pResult^ := Base[Value mod BaseLen + 1]; Value := Value div BaseLen; Dec(pResult); end; end else Result := Base[Value + 1]; end else Result := ''; end;
Code:

1 2 3 4 function RangeExcel(iLigne, iColonne: Integer): string; begin Result :=ConversionIntToBase(iColonne - 1, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') + IntToStr(iLigne); end;
Je viens de tester ton dernier code, tant qu'à faire.
J'ai 2 soucis :
1/ J'ai du remplacer Math.Floor( par .Floor.

Au niveau fonctionnel il y a un bug.
Les colonnes de titres de AA a AZ sont vides, ce qui signifie qu'il passe de Z a BA.

10/11/2022, 14h40
ShaiLeTroll

Ah oui, c'est logique, A = 0 et B = 1 donc A..Z forcément le passage à la "dizaine" suivante c'est BA sur le même motif que 10 pour le décimal car AA c'est en fait 00 :aie:

Faudra que je cherche si j'ai la version boucle qui gère ExcelRangeLetter sans limite