[macro OOo Calc] selection cellule vide

didier61_emptycell.sxc
 Standard
  selectemptycell (c'est le nom que j'ai donné au module qui contient la macro dans Sub Main)

REM  *****  BASIC  *****

Sub Main
dim ooWorkBook as Object
dim ooWorkSheets as Object
dim ooSheet as Object


dim x as Long
dim colAA as Object, colBB as Object
dim test as Boolean

ooWorkBook=thisComponent
ooWorkSheets=ooWorkBook.Sheets
ooSheets=ooWorkSheets.getByName("a")

for x=0 to 9
  colAA = ooSheets.getCellByPosition(0,x)
  if colAA.string = "" then
    ooWorkBook.currentController.Select(colAA)
    test=True
    exit sub
  end if
next x

if test=false then
  for x=0 to 9
    colBB = ooSheets.getCellByPosition(1,x)
    if colBB.string="" then
      ooWorkBook.currentController.Select(colBB)
      exit sub
    end if
  next x
end if   

End Sub