FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 934, dernière mise à jour : 23 octobre 2024 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.

Sommaire →Microsoft Office →Microsoft Excel →Utilisation des feuilles et de leur contenu →Manipulation des cellules (13)

Comment ajuster la largeur de colonne/hauteur de ligne en fonction du contenu ?
Comment copier une plage de cellules ?
Comment faire une recopie de cellule ?
Comment insérer ou supprimer des cellules ?
Comment utiliser la recherche dans Excel ?
Comment modifier la largeur de ligne/hauteur de colonne ?
Comment masquer ou afficher des colonnes/lignes ?
Comment fusionner des cellules ?
Comment changer le format du contenu des cellules ?
Comment mettre des bordures sur les cellules ?
Comment modifier la police des cellules ?
Comment ajouter un format conditionnel ?
Comment ajouter une validation sur les cellules ?

précédent

sommaire

suivant

HautPage

Comment ajuster la largeur de colonne/hauteur de ligne en fonction du contenu ?

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

HautPage

Comment copier une plage de cellules ?

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

HautPage

Comment faire une recopie de cellule ?

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

HautPage

Comment insérer ou supprimer des cellules ?

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

HautPage

Comment utiliser la recherche dans Excel ?

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

HautPage

Comment modifier la largeur de ligne/hauteur de colonne ?

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

HautPage

Comment masquer ou afficher des colonnes/lignes ?

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

HautPage

Comment fusionner des cellules ?

Pour fusionner des cellules :

Code delphi :

Sélectionner tout

MaFeuille.Range['A1','C5'].Merge(False);

Mis à jour le 18 janvier 2014 bidou

HautPage

Comment changer le format du contenu des cellules ?

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

HautPage

Comment mettre des bordures sur les cellules ?

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

HautPage

Comment modifier la police des cellules ?

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

HautPage

Comment ajouter un format conditionnel ?

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

HautPage

Comment ajouter une validation sur les cellules ?

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

Titre de la question

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.