Le mercredi 20 septembre 2006 08:20, Laurent Godard a écrit :
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "MoveContents"
args2(0).Value = true
for i = 2 to 5000
args1(0).Name = "ToPoint"
args1(0).Value = "$B$" + cstr(i)":$C$"+cstr(i)
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0,
args2())
next i
super merci je garde le code dans un coin.
j'ai trouver une solution a mon problème mais sans programmation.
j'ai recopié les 2 colonnes dans une nouvelle feuille que j'ai sauvegardé au
format csv. j'ai ensuite ouvert le fichier avec un éditeur de texte et j'ai
supprimé les codes qui permettaient de faire apparaître les 2 champs.
ensuite ouverture du fichier et la miracle plus qu'une colonne.
je vais testé ce code et le conservé précieusement.
Merci pour la rapidité de la réponse, j'ai vue que cela a intéressés d'autre
personne. Pourquoi ne pas le mettre dans la faq ???
bien amicalement
9 messages in org.openoffice.fr.progRe: [prog] [urgent] fusion de 2 cellules
