FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  NombreDeFeuilles : integer; 
begin 
  MonClasseur := Document.getSheets; 
  NombreDeFeuilles := Monclasseur.GetCount; 
end;

1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  NomDeMaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  NomDeMaFeuille := MonClasseur.getByIndex(0).GetName; 
end;

Function insertNewByName(Nom : string, index : integer);

1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.insertNewByName('Nouvelle Feuille', 0); 
end;

MoveByName(Feuille : string, NouvelIndex: integer);

1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.moveByName('Feuille1', 3); 
end;

CopyByName(Source, copie, IndexCopie);

1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.copyByName('Feuille1', 'Copie Feuille1', 2); 
end;

1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.RemoveByName('Feuille1'); 
end;

1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
end;

1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByIndex(0); 
end;

MaFeuille.IsVisible:= False;

MaFeuille.protect('password');

MaFeuille.Unprotect('password');

MaFeuille.Isprotected

MaFeuille.Name :='NouveauNom';

1
2
3
4
5
6
7
8
 
function DerniereLignede(MaFeuille : Variant) : Integer; 
var unCurSeur : variant; 
begin 
unCurseur:=maFeuille.CreateCursor; 
unCurseur.gotoEndOfUsedArea(False); 
result:=unCurseur.RangeAddress.EndRow; 
end;