Discussion :

[Godzestla]

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 :

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

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 :

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

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.

[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

[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 :

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

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;

[Godzestla]

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

[Godzestla]

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


J'ai retrouvé cette version simpliste

Code :

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

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.

[Godzestla]

Ca marche impec. Un immense merci. je cloture.

[ShaiLeTroll]

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

[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 :

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

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 :

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

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

[Godzestla]

Top. Encore merci

[Godzestla]

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 :

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

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 :

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

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.

[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

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