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 à [email protected] 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
