Et voilà j'ai ma solution. Pour résoudre le problème, je simule la fonction chercher/remplacer. Je sélectionne au préalable la ligne de mon tableau.
Dim CellDest As Object dim args1(18) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 0 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 71680 args1(10).Name = "SearchItem.SearchString" args1(10).Value = "(@)" args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1280 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true For index_row = 1 to nb_rows - 1 args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = "(" & index_row - 1 & ")" CellDest = Table.getCellRangeByPosition(0, index_row, nb_col - 1, index_row) Doc.CurrentController.Select(CellDest) dispatcher.executeDispatch(Frame, ".uno:Paste", "", 0, Array()) CellDest = Table.getCellRangeByPosition(0, index_row, nb_col - 1, index_row) Doc.CurrentController.Select(CellDest) dispatcher.executeDispatch(Frame, ".uno:ExecuteSearch", "", 0, args1()) Next Un grand merci à tous ceux qui ont pris du temps pour lire. Et en espérant que ceci aidera quelqu'un d'autre. --------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org