Forum Clubic

Traduction Fonction IF et case a cocher de VBA

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

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

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