IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 929, dernière mise à jour : 31 décembre 2023  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

SommaireOpenOffice.orgOpenOffice - TableurOpenOffice - Gestion des feuilles (11)
précédent sommaire suivant
 

La fonction GetCount permet d'obtenir le nombre feuilles contenu dans le classeur.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  NombreDeFeuilles : integer; 
begin 
  MonClasseur := Document.getSheets; 
  NombreDeFeuilles := Monclasseur.GetCount; 
end;

Mis à jour le 20 janvier 2014 atlantis

La méthode GetName permet d'obtenir la nom de chaque feuille :

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

Mis à jour le 20 janvier 2014 atlantis

La fonction InsertNewByName permet d'ajouter une feuille dans le classeur.

Code delphi : Sélectionner tout
Function insertNewByName(Nom : string, index : integer);
La valeur de Index correspond à la position ou la feuille
Code delphi : Sélectionner tout
1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.insertNewByName('Nouvelle Feuille', 0); 
end;

Mis à jour le 20 janvier 2014 atlantis

En utilisant la fonction MoveByName

Code delphi : Sélectionner tout
MoveByName(Feuille : string, NouvelIndex: integer);
Code delphi : Sélectionner tout
1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.moveByName('Feuille1', 3); 
end;

Mis à jour le 20 janvier 2014 atlantis

En utilisant la fonction CopyByName

Code delphi : Sélectionner tout
CopyByName(Source, copie, IndexCopie);
  • Source correspond au nom situé dans l'onglet de la feuille à copier
  • Copie correspond au nom de la nouvelle feuille qui va figurer dans l'onglet de cette feuille
  • IndexCopie correspond à la position de la nouvelle feuille créé

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

Mis à jour le 20 janvier 2014 atlantis

On doit utiliser le nom de la feuille pour pouvoir la supprimer. Ce nom est celui qui apparaît dans l'onglet de la feuille.

Code delphi : Sélectionner tout
1
2
3
4
5
6
Var 
  MonClasseur : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MonClasseur.RemoveByName('Feuille1'); 
end;

Mis à jour le 20 janvier 2014 atlantis

Toutes les QR suivantes sont basées sur une variable "MaFeuille" représentant une feuille du classeur ouvert.

On peut utiliser le nom de la feuille pour accéder a cette variable. Ce nom est celui qui apparaît dans l'onglet de la feuille (fonction GetByName) :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
end;
On peut aussi accéder à une feuille par son index (fonction GetByIndex). Dans ce cas pour sélectionner la première feuille.
Code delphi : Sélectionner tout
1
2
3
4
5
6
7
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByIndex(0); 
end;

Mis à jour le 20 janvier 2014 atlantis

Les feuilles de calcul contiennent la propriété IsVisible qui permet d'afficher ou masquer la feuille dans le classeur.

Code delphi : Sélectionner tout
MaFeuille.IsVisible:= False;

Mis à jour le 20 janvier 2014 atlantis

Pour protéger la feuille :

Code delphi : Sélectionner tout
MaFeuille.protect('password');
Pour Supprimer la protection :
Code delphi : Sélectionner tout
MaFeuille.Unprotect('password');
Pour savoir si la feuille est protégée :
Code delphi : Sélectionner tout
MaFeuille.Isprotected
retourne un boolean.

Mis à jour le 20 janvier 2014 atlantis

Pour modifier le nom qui apparaît dans l'onglet de la feuille il suffit de modifier la propriété Name de la feuille :

Code delphi : Sélectionner tout
MaFeuille.Name :='NouveauNom';

Mis à jour le 20 janvier 2014 atlantis

Pour faire cette opération , on va créer un curseur et utiliser sa fonction gotoEndOfUsedArea :

Code : Sélectionner tout
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;
Note : Pour obtenir la première ligne , on utilisera gotoStartofUsedArea selon le même principe.

Mis à jour le 23 octobre 2015 SergioMaster

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.