1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub Main
Dim DOC as object, Les_Feuilles as object,La_Feuille as object,Zone as object
Doc = thisComponent
Les_Feuilles = Doc.Sheets
La_Feuille = Les_Feuilles.getByName("Feuille1")
'Désignation de la zone en alphanumérique
Zone = La_Feuille.getCellRangeByName("A3:C3")
'Ou par coordonnées
'Zone = La_Feuille.getCellRangeByPosition(0,2, 2,2)
Doc.currentController.Select(Zone)
'Utilisation du dispatcher
Dim dispatcher As Object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "L"
dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:DeleteCell", "", 0, args1())
End Sub |
Partager