Traduction Fonction IF et case a cocher de VBA

Logiciel & apps Programmation
1

Bonjour,

j’ai des pti soucis avec le Basic d’OOo.

je dois traduire des macros vba en OOoBasic mais le truc c’est que je connais pas trop les synthaxes et les structures :frowning:

Pour le moment je bloque sur une fonction IF et des case a cocher :-/

voici un morceau du code sur lequel je bloque :


If Sheets("Page 3").DrawingObjects("Mons") = xlOn Then
     ActiveSheet.DrawingObjects("MonsCaf") = xlOn
     Else
            If Sheets("Page 3").DrawingObjects("Mons") = xlOff Then 
                   ActiveSheet.DrawingObjects("MonsCaf") = xlOff
            End If 
...

et il y en a toute une serie du même type :@
Je crois savoir qu’il fait déclarer les objets mais je suis pas sur du tout :frowning:

donc si quekqu’un ou quelqu’une pouvais m’eclairer ce serai bien sympa :slight_smile:

Nyt’
Edité le 11/01/2008 à 11:07

2

Pour le moment, apres légere modification, mon code donne ca :


Dim myCalc As Object
Dim mySheets As Object
dim Page3 as object

myCalc=thisComponent
mySheets=mycalc.Sheets
Page3=mysheets.getbyname("Page 3")

If Page3.Forms.getbyname("Mons") = xlOn Then 'Récupère "payable à monsieur'
CAF.forms("MonsCaf") = xlOn
Else
(...)

Je pense que le probleme viens de * xlOn qui ne dois pas fonctionner sous OOoBasic

3

bon, j’ai trouver la solution, pour ceux que ca interesse :


Dim myCalc As Object
Dim mySheets As Object
dim Page3 as object

myCalc=thisComponent
mySheets=mycalc.Sheets
Page3=mysheets.getbyname("Page 3")
monForm = Page3.drawpage.forms.getByName("WW-Standard")     ' appel du formulaire par son nom
Mons = monForm.getByName("Mons")      'appel de la case à cocher par son nom


If Mons.state=0 then 'Récupère "payable à monsieur'
Else (...)

et on repte la premiere manoeuvre (càd avant la fonction If) pour chaque case a cocher