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 ]
Dimanche 21 juillet 2019 - Semaine 29 - Saint Victor (Demain: Sainte Marie-Madeleine)
Aujourd'hui, c'est l'anniversaire de Hubert-Felix Thiefaine (1948-71 ans), chanteur français et de Charlotte Gainsbourg (1971), actrice française. Autre 21 juillet: 1798 - Victoire de la "bataille des pyramides" par Bonaparte.
Haut de page Easy-Micro