Bonjour Pascal,

Pour une sélection unique, cela devrait t'aider.

Olivier

Doc = ThisComponent
Sheet = Doc.CurrentController.ActiveSheet
mySel = Doc.getCurrentSelection()
    myRows = mySel.Rows.Count
    myColumns = mySel.Columns.Count
    myStartColumn = mySel.RangeAddress.StartColumn
    myStartRow = mySel.RangeAddress.StartRow

    For i = 0 to myRows-1
        For j = 0 to myColumns-1
            myCell = Sheet.GetCellByPosition(myStartColumn + j, myStartRow +i)
            myCell.String = "a"
        Next j
    Next i


Pascal Duterme a écrit :
Bonjour,

J'essaie de créer une routine qui traite chacune des cellules d'une zone sélectionnée.

Par exemple, écrire la lettre a dans chacune des cellules d'une zone que l'utilisateur aura sélectionnée avec sa souris!

Merci d'avance

Pascal


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Répondre à