FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 919, dernière mise à jour : 14 juin 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 valeurs (3)
précédent sommaire suivant
 

Pour écrire une valeur dans une plage de cellule :

Code delphi : Sélectionner tout
MaFeuille.Range['E1','E3'].Value:=12;

Mis à jour le 18 janvier 2014 bidou

Pour effacer une plage de cellule :

Code delphi : Sélectionner tout
rMaPlage.ClearContents;
Ceci efface les valeurs et les formules.

Mis à jour le 18 janvier 2014 bidou

Cette technique est très efficace et donc souvent utilisée.
Deux propriétés d'une plage peuvent être récupérées dans un tableau à partir d'une plage, Value et Formula. L'avantage de cette méthode est qu'il est beaucoup plus rapide de parcourir un tel tableau que d'énumérer une grande collection de cellules. Le Variant qui sert de récupérateur ne doit pas être déclaré comme un tableau.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button3Click(Sender: TObject); 
Var MonClasseur : _workbook; 
    MaFeuille :_Worksheet; 
    Resultat : variant; 
    comptLig, ComptCol: integer; 
begin 
  ExcelApplication1.Connect; 
  MonClasseur:=ExcelApplication1.Workbooks.Open('d:\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; 
  Resultat:=MaFeuille.Range['A1','C20'].Value; 
  for comptLig:=1 to VarArrayHighBound(Resultat,1) do  
    for comptCol:=1 to VarArrayHighBound(Resultat,2) do 
      Resultat[comptlig,comptcol]:=Resultat[comptlig,comptcol]*3+2; 
  MaFeuille.Range['A1','C20'].Value:=Resultat; 
end;

Dans ce code la plage de valeur est récupérée dans la variable Resultat. L'opération est effectuée sur chaque élément du tableau et le tableau contenant les nouvelles valeurs est affecté dans la feuille Excel. Bien que le code puisse paraître lourd, c'est une technique très rapide.

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.

 
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -

Partenaire : Hébergement Web