[fr-discuss] Re: information a propos de libreoffice basic pour macro

voila j'ai remodifier le code, mais ca ne fonctionne pas quand je clique sur
le bouton pour valider.


code :
REM  *****  BASIC  *****
Sub Dialog1Show ' fenetre avec 2 (textfield)Valeurs CBSA et DOBSA et un
bouton fait avec IDE
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()

End Sub

sub compteur
dim I
for I = 1 to pointbsa
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0,I )
Cell.Value = CBSA
Cell = Sheet.getCellByPosition(1,I )
Cell.Value = DOBSA
odialog1.closed()
next I

end sub


Sub Main
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
dim pointbsa as integer
pointbsa=inputbox("Nombres de points BSA", "Courbe BSA","")
dim I
for I = 1 to pointbsa
Dialog1Show

Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0, 0)
Cell.string = "[C]"
Cell = Sheet.getCellByPosition(1, 0)
Cell.String = "DO"
Cell = Sheet.getCellByPosition(0,I )
Cell.Value = CBSA
Cell = Sheet.getCellByPosition(1,I )
Cell.Value = DOBSA
next I
End Sub

quand je clique sur la croix pour fermer la fenetre j'ai mon tableau qui
apparait mais avec que des 0 pour cbsa et dobsa
j'ai affecté le bouton de validation avec l'action compteur.

je ne vois pas de ou se trouve mon erreur.

pouvez vous m'aider

merci



--
View this message in context: 
http://nabble.documentfoundation.org/information-a-propos-de-libreoffice-basic-pour-macro-tp4014875p4015067.html
Sent from the Discuss mailing list archive at Nabble.com.

-- 
Envoyez un mail à discuss+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/discuss/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés