Easy-Micro


ESPACEMEMBRE OpenOffice Basic
Variables Basic

Les variables OpenOffice Basic

Utilisation des variables dans OpenOffice.org Basic

OpenOffice.org Basic Exemple de variables OpenOffice.org Basic

Saisir du texte dans la cellule A1
Sub MaMacro()
' Déclaration de variables objets
Dim oMonDocument As Object, oMaSheet As Object, oMaCell As Object, oMonTexte As String

' On travail sur le document actif
oMonDocument = ThisComponent
' oMaSheet devient Feuille1
oMaSheet = oMonDocument.Sheets.getByName("Feuille1")

' Affectation d'un texte
oMonTexte = "Coucou !"

' Sélection d'une cellule: Colonne, Ligne (soit A1)
oMaCell=oMaSheet.getCellByPosition(0,0)

' Texte dans cellule active
oMaCell.setString(oMonTexte)

End Sub

Remplir de bleu une cellule
Sub Sub met_du_bleu()
' Déclaration de variables objets
Dim oMonDocument As Object, oMaSheet As Object, oMaCell As Object

' On travail sur le document actif
oMonDocument = ThisComponent

' oMaSheet devient Feuille1
oMaSheet = oMonDocument.Sheets.getByName("Feuille1")

' oMaCell devient A1
oMaCell = oMaSheet.getCellByPosition(0, 0)

' Remplissage de la cellule avec la couleur bleu
oMaCell.CellBackColor = RGB(0,0,255) 'indique la couleur de fond

End Sub

Astuce: Pour exécuter une macro depuis l'éditeur OpenOffice Basic, cliquer, non pas sur le bouton "Exécuter" mais sur le bouton à droite "Sélectionner une macro".

Basic Matrice OpenOffice.org Basic (Variables tableaux)

Utilisation d'une matrice (soit un tableau virtuel : Array)
Sub affiche_les_villes()

' Déclaration de variables objets
Dim oMonDocument As Object, oMaSheet As Object, oMaCell As Object

' On travail sur le document actif
oMonDocument = ThisComponent

' oMaSheet devient Feuille1
oMaSheet=oMonDocument.Sheets.getByName("Feuille1")

'Déclaration d'une matrice
Dim Villes(3) As String 'indice de 0 à 2 sinon saisir OPTION Base 1

'Affectation de la matrice
Villes(0) = "Paris"
Villes(1) = "Madrid"
Villes(2) = "Londres"

'Affichage de la matrice (via une boucle For Next)
Dim i As Integer
For i = 0 To Ubound(Villes) Step 1
oMaCell = oMaSheet.getCellByPosition(0, i)
oMaCell.setString(Villes(i))
Next i
End Sub

Astuce: Le bouton "Enregistrer le basic" de l'éditeur permet d'exporter vos procédures dans un fichier .bas

Pour aller plus loin

Guide de programmation de OpenOffice.org BASIC
How To Programmation
FAQ OpenOffice


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Lundi 25 mars 2019 - Semaine 13 - Saint Humbert (Demain: Sainte Larissa)
Aujourd'hui, c'est l'anniversaire de Marcia Cross (1962-57 ans), comédienne américaine (rôle de Bree Van de Kamp dans Desperate Housewives). Autre 25 mars: 1918 : décès à Paris du compositeur français Claude Debussy. 1984 : Alain Prost gagne le grand prix de Formule 1 du Brésil.
Haut de page Easy-Micro