OpenOffice BasicVariables Basic
Les variables OpenOffice Basic
Utilisation des variables dans OpenOffice.org Basic
Exemple de variables OpenOffice.org BasicSaisir 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
' 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
' 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".
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
' 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
