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

Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]