FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  Cellule : variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Cellule := Mafeuille.getCellByPosition(0, 0); 
  Cellule.SetValue(123); 
end;

1
2
3
4
5
6
7
8
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Mafeuille.getCellByPosition(0, 0).SetValue(123); 
end;

1
2
3
4
5
6
7
8
9
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  Cellule : variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Mafeuille.getCellByPosition(0, 0).SetFormula('=A2+B4'); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  MaCellule : variant; 
  TextCursor : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MaCellule := Mafeuille.getCellByPosition(0, 0); 
  
  TextCursor := MaCellule.createTextCursor; 
  MaCellule.insertString( TextCursor, '1er Ligne', false ); 
  MaCellule.insertControlCharacter( TextCursor, 0, false ); 
  MaCellule.insertString( TextCursor, '2ème Ligne ', false ); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  MaCellule : variant; 
  TextCursor : Variant; 
  HyperlinkObj : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MaCellule := Mafeuille.getCellByPosition(0, 0); 
  
  TextCursor := MaCellule.createTextCursor; 
  HyperlinkObj := Document.createInstance('com.sun.star.text.TextField.URL'); 
  HyperlinkObj.setPropertyValue('URL', 'http://www.developpez.com'); 
  HyperlinkObj.setPropertyValue('Representation', 'Visiter Developpez.com'); 
  MaCellule.insertTextContent(TextCursor, HyperlinkObj, false); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var 
  Locale: variant; 
  MaCellule : variant; 
Begin 
  MaCellule := Mafeuille.getCellByPosition(0, 0); 
  MaCellule.setPropertyValue('CharFontName', 'Arial'); 
  MaCellule.setPropertyValue('CharHeight', 10); 
  MaCellule.setPropertyValue('CharWeight', 150); 
  MaCellule.setPropertyValue('CharPosture',  
       CoreReflection.forName('com.sun.star.awt.FontSlant').getField('ITALIC').get()); 
  CoreReflection.forName('com.sun.star.lang.Locale').createObject(Locale); 
  Locale.Country := 'FR'; 
  Locale.Language := 'fr'; 
  Locale.Variant := 'fr'; 
  MaCellule.setPropertyValue('CharLocale', Locale); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var  
  MonClasseur, MaFeuille, MaCellule : Variant; 
  Protection : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MaCellule := Mafeuille.getCellByPosition(0, 0); 
  CoreReflection.forName('com.sun.star.util.CellProtection').createObject(protection); 
  Protection.IsHidden := false; 
  Protection.IsPrintHidden := true; 
  Protection.IsLocked := true; 
  Protection.IsFormulaHidden := true; 
  MaCellule.setPropertyValue('CellProtection', Protection); 
end;

1
2
MaCellule.setPropertyValue('IsCellBackgroundTransparent', false); 
MaCellule.setPropertyValue('CellBackColor', $BBBBFF);

1
2
3
4
5
6
7
8
9
10
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  Cellule : variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Cellule := Mafeuille.getCellByPosition(0, 0); 
  Result:=Cellule.GetValue; 
end;

1
2
3
4
5
6
7
8
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Result:=Mafeuille.getCellByPosition(0, 0).GetValue; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Définition de la plage [A1:B2] sur la feuille 1 
Var 
  CoreReflection : Variant; 
  MaPlage : Variant; 
begin 
  CoreReflection := OpenOffice.createInstance('com.sun.star.reflection.CoreReflection'); 
  CoreReflection 
          .forName('com.sun.star.table.CellRangeAddress') 
          .createObject(MaPlage); 
  MaPlage.Sheet := 0; 
  Maplage.StartColumn :=0; 
  Maplage.StartRow :=0; 
  Maplage.EndColumn :=1; 
  Maplage.EndRow :=1; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  CoreReflection : Variant; 
  MaPlage : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  CoreReflection := OpenOffice.createInstance('com.sun.star.reflection.CoreReflection'); 
  CoreReflection 
          .forName('com.sun.star.table.CellRangeAddress') 
          .createObject(MaPlage); 
  MaPlage.Sheet := 0; 
  Maplage.StartColumn :=0; 
  Maplage.StartRow :=0; 
  Maplage.EndColumn :=1; 
  Maplage.EndRow :=1; 
  
  Mafeuille.insertCells(Maplage, 1); 
end;

1
2
3
4
5
6
7
8
9
10
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  MesColonnes : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MesColonnes := MaFeuille.GetColumns; 
  MesColonnes.insertByIndex(1,1); 
end;

1
2
3
4
5
6
7
8
9
10
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  MesLignes : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MesLignes := MaFeuille.GetRows; 
  MesLignes.insertByIndex(1,1); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  CoreReflection : Variant; 
  MaPlage : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  CoreReflection := OpenOffice.createInstance('com.sun.star.reflection.CoreReflection'); 
  CoreReflection 
          .forName('com.sun.star.table.CellRangeAddress') 
          .createObject(MaPlage); 
  MaPlage.Sheet := 0; 
  Maplage.StartColumn :=0; 
  Maplage.StartRow :=0; 
  Maplage.EndColumn :=1; 
  Maplage.EndRow :=1; 
  
  Mafeuille.removeRange(Maplage, 1); 
end;

1
2
3
4
5
6
7
8
9
10
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  MesColonnes : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MesColonnes := MaFeuille.GetColumns; 
  MesColonnes.removeByIndex(1,1); 
end;

1
2
3
4
5
6
7
8
9
10
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  MesLignes : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  MesLignes := MaFeuille.GetRows; 
  MesLignes.removeByIndex(1,1); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  CoreReflection : Variant; 
  MaDestination : Variant; 
  MaPlage : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  CoreReflection := OpenOffice.createInstance('com.sun.star.reflection.CoreReflection'); 
  CoreReflection 
          .forName('com.sun.star.table.CellAddress') 
          .createObject(MaDestination); 
  CoreReflection 
          .forName('com.sun.star.table.CellRangeAddress') 
          .createObject(MaPlage); 
  
  MaDestination.Sheet := 0; 
  MaDestination.Column := 5; 
  MaDestination.Row := 5; 
  
  MaPlage.Sheet := 0; 
  Maplage.StartColumn :=0; 
  Maplage.StartRow :=0; 
  Maplage.EndColumn :=1; 
  Maplage.EndRow :=1; 
  
  Mafeuille.MoveRange(MaDestination, MaPlage); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
  CoreReflection : Variant; 
  MaDestination : Variant; 
  MaPlage : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  CoreReflection := OpenOffice.createInstance('com.sun.star.reflection.CoreReflection'); 
  CoreReflection 
          .forName('com.sun.star.table.CellAddress') 
          .createObject(MaDestination); 
  CoreReflection 
          .forName('com.sun.star.table.CellRangeAddress') 
          .createObject(MaPlage); 
  
  MaDestination.Sheet := 0; 
  MaDestination.Column := 5; 
  MaDestination.Row := 5; 
  
  MaPlage.Sheet := 0; 
  Maplage.StartColumn :=0; 
  Maplage.StartRow :=0; 
  Maplage.EndColumn :=1; 
  Maplage.EndRow :=1; 
  
  Mafeuille.CopyRange(MaDestination, MaPlage); 
end;

1
2
3
4
5
6
7
8
9
10
11
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  
  If Mafeuille.getCellRangeByName('A1:B1').Getismerged 
    then Mafeuille.getCellRangeByName('A1:B1').merge(False) 
    else Mafeuille.getCellRangeByName('A1:B1').merge(True); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant; 
begin 
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Case Mafeuille.getCellByPosition(0, 0).GetType of 
   0 : showmessage('Cellule Vide'); 
   1 : showmessage('Cellule contenant un Nombre'); 
   2 : showmessage('Cellule contenant une chaine de caractère'); 
   3 : showmessage('Cellule contenant une formule'); 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
var ifDateClassique,ifdate : Integer; 
    Locale,Formats : Variant; 
    maCellule : Variant;  
begin 
 
Locale:=monDocument.CharLocale; 
{pour changer la Localisation , utilisez ce qui suit } 
{CoreServ.forName('com.sun.star.lang.Locale').createObject(Locale); 
Locale.Country:='FR'; 
Locale.Language:='fr'; 
Locale.Variant := ''; 
} 
  
// ici je récupère un indice pour les cellules dans lequelles je mettrai des dates 
Formats:=MonDocument.GetNumberFormats(); 
ifDateClassique:=Formats.QueryKey('JJ/MM/AAAA',Locale,TRUE); 
 
// toujours pas trouvé ? alors ifdateClassique:=0 pas de formatage 
if ifDateClassique=-1 then ifDateClassique:=0;  
 
// si je ne veux pas de ce bon vieux JJ/MM/AAAA j'en crée un inexistant ? 
iFDate:=Formats.QueryKey('MMM AAAA JJ',Locale,TRUE); 
if IfDate=-1 then 
  begin 
    ifDate:=Formats.AddNew('MMM AAAA JJ',Locale); 
    if ifDate=-1 then ifDate:=ifDateClassique;   
  end; 
  
//Mettre une date  
//  
macellule:=maFeuille.getCellByPosition(colonne,ligne); 
maCellule.NumberFormat:=ifdate; 
macellule.Value:=date;