FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 920, dernière mise à jour : 8 novembre 2019  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.

Commentez


SommaireMicrosoft OfficeMicrosoft ExcelUtilisation des feuilles et de leur contenuManipulation des cellules (13)
précédent sommaire suivant
 

Pour réaliser l'ajustement des colonnes :

Code delphi : Sélectionner tout
MaFeuille.Range['A1','C10'].Columns.Autofit;

Pour réaliser l'ajustement des lignes :
Code delphi : Sélectionner tout
MaFeuille.Range['A1','C10'].Rows.Autofit;

Remarque : ceci s'applique sur des colonnes ou des lignes mais pas directement sur la plage.

Mis à jour le 18 janvier 2014 bidou

Travailler de plage à plage à l'aide des propriétés Value revient à faire un copier/coller bien souvent. Pour faire de la copie inter feuille ou classeur utiliser des variables.

Le code suivant copie la plage A1:C10 de la feuille 1 du classeur dans la feuille 2 avec la cellule B2 comme coin supérieur gauche.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
Var MonClasseur : _workbook; 
    FeuilleSource, FeuilleCible :_Worksheet; 
begin 
  ExcelApplication1.Connect; 
  MonClasseur:=ExcelApplication1.Workbooks.Open('c:\tutoriel\tuto.xls',False,False, 
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0); 
  ExcelApplication1.Visible[0]:=true; 
  FeuilleSource:=MonClasseur.Worksheets[1] as _worksheet; 
  FeuilleCible:=MonClasseur.Worksheets[2] as _worksheet; 
  FeuilleSource.Range['A1','C10'].Copy(FeuilleCible.Cells.Item[2,2]); 
end;

Mis à jour le 18 janvier 2014 bidou

Pour faire une recopie incrémentée :

Code delphi : Sélectionner tout
MaFeuille.Range['F1',EmptyParam].AutoFill(MaFeuille.Range['F1','F20'],xlFillSeries);
Pour faire une recopie non incrémentée :
Code delphi : Sélectionner tout
MaFeuille.Range['F1',EmptyParam].AutoFill(MaFeuille.Range['F1','F20'],xlFillCopy);

Mis à jour le 18 janvier 2014 bidou

Pour insérer des cellules (en décalant vers le bas) :

Code delphi : Sélectionner tout
MaFeuille.Cells.Item[2,2].Insert(xlShiftDown);
Pour insérer toute une ligne :
Code delphi : Sélectionner tout
MaFeuille.Cells.Item[2,2].EntireRow.Insert(xlShiftDown);
Pour supprimer des cellules (en décalant vers la gauche) :
Code delphi : Sélectionner tout
MaFeuille.Cells.Item[2,2].Delete(xlShiftToLeft);
Pour supprimer toute une colonne :
Code delphi : Sélectionner tout
MaFeuille.Cells.Item[2,2].EntireColumn.Delete(xlShiftToLeft);

Mis à jour le 18 janvier 2014 bidou

Les méthodes Cells.Find et Cells.FindNext permettent d'effectuer une recherche.
Le code suivant montre comment rechercher la chaîne 'toto' dans les cellules. En tenant compte du fait qu'Excel retourne en début de document quand il ne trouve plus d'occurrence en fin. La première occurrence est donc mémorisée pour éviter une boucle infinie.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var MonClasseur : _workbook; 
    MaFeuille :_Worksheet; 
    rMaPlage : ExcelRange; 
    Adresse : wideString; 
begin 
  ExcelApplication1.Connect; 
  MonClasseur:=ExcelApplication1.Workbooks.Open('c:\tutoriel\tuto.xls',False,False, 
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0); 
  ExcelApplication1.Visible[0]:=true; 
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet; 
  rMaPlage:=MaFeuille.Cells.Find('toto',EmptyParam,xlValues,xlPart, 
               xlByRows,xlNext,EmptyParam,EmptyParam); 
  if not (rMaPlage = nil) then 
  begin 
    Adresse:=rMaPlage.Address[true,true,xlR1C1,false,false]; 
    showmessage(adresse); 
    repeat 
      rMaPlage:=MaFeuille.Cells.FindNext(rMaPlage); 
      showmessage(adresse); 
    Until (rMaPlage = nil) or (Adresse=rMaPlage.Address[true,true,xlR1C1,false,false]) 
  end; 
end;

Mis à jour le 18 janvier 2014 bidou

Il suffit de donner une seule cellule de la ligne/colonne, mais toute la ligne/colonne sera modifiée.

Pour modifier la taille d'une ligne :

Code delphi : Sélectionner tout
MaFeuille.Cells.Item[2,2].EntireRow.RowHeight:=15;
Pour modifier la taille d'une colonne :
Code delphi : Sélectionner tout
MaFeuille.Cells.Item[2,2].EntireColumn.ColumnWidth:=60;

Mis à jour le 18 janvier 2014 bidou

Pour masquer des lignes :

Code delphi : Sélectionner tout
MaFeuille.Range['A1','C1'].EntireRow.Hidden:=True;
Pour masquer des colonnes :
Code delphi : Sélectionner tout
MaFeuille.Range['A1','C1'].EntireColumn.Hidden:=True;

Mis à jour le 18 janvier 2014 bidou

Pour fusionner des cellules :

Code delphi : Sélectionner tout
MaFeuille.Range['A1','C5'].Merge(False);

Mis à jour le 18 janvier 2014 bidou

Il faut mettre à jour la propriété NumberFormat :

Code delphi : Sélectionner tout
MaFeuille.Range['A1','C5'].NumberFormat:='hh:mm:ss';

Mis à jour le 18 janvier 2014 bidou

Plusieurs techniques sont utilisables selon ce que l'on souhaite obtenir.

Encadrement de la plage :

Code delphi : Sélectionner tout
MaFeuille.Range['A1','C5'].BorderAround(xlDouble,xlThin,6,EmptyParam);
Encadrement de toutes les cellules de la plage :
Code delphi : Sélectionner tout
MaFeuille.Range['A1','C5'].Borders.LineStyle:=xlContinuous;

Encadrement vertical plus contour :
Code delphi : Sélectionner tout
1
2
3
4
5
6
With MaFeuille.Range['A1','C5'].Borders[xlInsideVertical] do begin 
  LineStyle:=xlContinuous; 
  Weight:=xlThin; 
  ColorIndex:=5; 
end; 
MaFeuille.Range['A1','C5'].BorderAround(xlDouble,xlThin,7,EmptyParam);

Mis à jour le 18 janvier 2014 bidou

Pour modifier la police des cellules, utilisez la propriété Font :

Code delphi : Sélectionner tout
1
2
3
MaFeuille.Range['A1','C5'].Font.Name:='times new roman'; 
MaFeuille.Range['A1','C5'].Font.Size:=14; 
MaFeuille.Range['A1','C5'].Font.Bold:=True;

Mis à jour le 18 janvier 2014 bidou

Un format conditionnel est un formatage particulier affecté à une cellule si la valeur de celle-ci répond à des conditions particulières.
Le code suivant colorie en rouge toutes cellules de la colonne D dont la valeur est un doublon dans cette même colonne.

Code delphi : Sélectionner tout
1
2
3
4
5
With MaFeuille.Range['D1','D20'].FormatConditions do 
begin 
  Add(xlExpression,EmptyParam,'=NB.SI(C4;LC)>1',EmptyParam); 
  Item(Count).Interior.ColorIndex:=3; 
end;

Mis à jour le 18 janvier 2014 bidou

Une validation permet de limiter les saisies possibles dans une cellule avec l'apparition d'un éventuel message d'alerte.

Code delphi : Sélectionner tout
1
2
3
4
5
6
With MaFeuille.Range['D1',EmptyParam].Validation do 
begin 
  Add(xlValidateWholeNumber,xlValidAlertStop,xlBetween,'1','1000'); 
  ErrorTitle:='Valeur illégale'; 
  ErrorMessage:='Vous devez entrer un nombre compris entre 1 et 1000'; 
end;

Mis à jour le 18 janvier 2014 bidou

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 © 2019 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.