Discussion :

[zoom61]

Bonjour,

Voici un tuto sur comment débuter avec oBasic dans le Tableur. Ce tutoriel ne sera qu'un élément de base pour la programmation, il ne contiendra pas toutes les commandes possibles, mais l'essentiel pour commencer à travailler avec Tableur (Calc).
Le tuto se trouve ici.

@+.

[Malick]

,
Les tutoriels sur oBasic n'étant pas nombreux, celui-ci vient au bon moment.
Merci beaucoup.

[rupteur]

Simple et Précis.

Merci pour ce tuto !

[djibril]

Comme toujours, très bon tutoriel.

[jeep56]

Bonjour,

Voici un tuto sur comment débuter avec oBasic dans le Tableur. Ce tutoriel ne sera qu'un élément de base pour la programmation, il ne contiendra pas toutes les commandes possibles, mais l'essentiel pour commencer à travailler avec Tableur (Calc).
Le tuto se trouve ici.

@+.

Merci pour ce tuto, mais quelques correctifs sur le tuto :
§ V-A-3 - La cellule active --> mettre : Dim maCellule as object
...
maCellule = maFeuille.getCellRangeByName("A2")
...
maCellule.FormulaLocal="=somme(A1:100)"
§ V-C-1 - Une Valeur --> Appeler la fonction Sub LireValeur()

[zoom61]

Merci pour ce tuto, mais quelques correctifs sur le tuto :
§ V-A-3 - La cellule active --> mettre : Dim maCellule as object
...
maCellule.FormulaLocal="=somme(A1:100)"
§ V-C-1 - Une Valeur --> Appeler la fonction Sub LireValeur()

Corrections faites.

maCellule = maFeuille.getCellRangeByName("A2")

Là, j'ai pas compris

[Yopsom]

Bonjour,

C'est un très bon tuto pour débuter en macro sous libre office
Je programme habituellement sous VBA Excel. Et ce n'est pas évident de passer de l'un à l'autre.


§ V-B-3 - Une formule

Une petite erreur de frappe : maCellule.Formula = "=SUM(A1:A100") ne semble donc pas corrigé.

De plus "=SUM(A1:A100)" génère une erreur de référence circulaire si la cellule de référence est "A1" comme dans le tuto

Et "=SOMME(A1:A100)" en FomulaLocal ne fonctionne pas chez moi, il l'écrit comme un string. Une idée ?

A+

[zoom61]

C'est un très bon tuto pour débuter en macro sous libre office
Je programme habituellement sous VBA Excel. Et ce n'est pas évident de passer de l'un à l'autre.

Merci

Une petite erreur de frappe : maCellule.Formula = "=SUM(A1:A100") ne semble donc pas corrigé.

De plus "=SUM(A1:A100)" génère une erreur de référence circulaire si la cellule de référence est "A1" comme dans le tuto

C'est corrigé

Et "=SOMME(A1:A100)" en FomulaLocal ne fonctionne pas chez moi, il l'écrit comme un string. Une idée ?

Le langage par défaut est bien le français !

Cdlt.

[Mod77]

Bonjour,

Je m'y perds dans obasic par rapport à VBA, mais ce tuto sur les macro m'éclaire grandement.

Cependant, quelle est dans le catalogue la différence entre la partie "Standard" et "VBAProject" svp ? les sous menus sont les mêmes .

Dans lequel des 2 pourrais-je récupérer ma macro ?
SVP

merci

[zoom61]

Cependant, quelle est dans le catalogue la différence entre la partie "Standard" et "VBAProject" svp ? les sous menus sont les mêmes .

Standard : c'est quand la macro a été créée avec LibreOffice (ou Apache OpenOffice).
VBAProject : c'est quand le fichier est issu de Microsoft Office (un fichier qui a été converti).

[Mod77]

Standard : c'est quand la macro a été créée avec LibreOffice (ou Apache OpenOffice).
VBAProject : c'est quand le fichier est issu de Microsoft Office (un fichier qui a été converti).

ok, merci! même si c'est tard

[DensGP33]

Votre tuto m'a bien aidé pour démarrer. J'ai beaucoup progressé depuis et il me semble aujourd'hui tellement simple... mais à l'époque quelle joie de trouver cet excellent tuto. Merci.

[troumad]

Bonjour

L'accès aux macros est plus facilement maintenant [Ouitls]->[macro]->[Éditer les macros]
Tant que j'y suis :
- comment trouver la taille d'une cellule, pour la hauteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doc.Sheets.getByName("recto").getCellByPosition(colonne,ligne).Position.Y-doc.Sheets.getByName("recto").getCellByPosition(colonne,ligne-1).Position.Y

nb : les lignes sont numérotées comme sur calc à prtir de 1 avec ce code et pour les colonnes A correspond à 0.
- Changer la taille de caractères d'une plage de cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
sub taille_caract(page as integer,xj as integer,y as integer,dx as integer,dy as integer,taille_c as single)
rem page : numéro de la feuille (xj,y) coordonnées du point de départ (dx,dt) taille de la plage de cellules à modifier, taille_c : taille de la police de caractères
rem define variables
dim document   as object
dim dispatcher as object
dim xf as string
dim i,j as integer
dim x as string
 
 
j=xj+1
 
x=""
while j>25
 x=x+chr$(asc("A")+(j-1) mod 26)
 j=j/26
wend
x= "$"+chr$(asc("A")+j-1)+x+"$"+y
 
 
j=xj+dx+1
xf=""
while j>25
 xf=xf+chr$(asc("A")+(j-1) mod 26)
 j=j/26
wend
xf=x+":$"+chr$(asc("A")+j-1)+xf+"$"+(y+dy)
 
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
 
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value =  page+1
 
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = xf
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
 
rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "FontHeight.Height"
args3(0).Value = taille_c
args3(1).Name = "FontHeight.Prop"
args3(1).Value = 100
args3(2).Name = "FontHeight.Diff"
args3(2).Value = 0
 
dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args3())
 
end sub