Bonjour,
Alpha BETA a écrit :
Bonjour,
Je cherche à améliorer ce que j'ai fait concernant le déplacement du
curseur d'une cellule à l'autre.
Je voudrais pouvoir de la cellule active trouver directement la
cellule contigüe la plus éloignée à droite, gauche, haut, bas...
J'ai récupéré une macro Function qui fait le travail mais pas géniale
car elle teste une par une toutes les cellules et pour une TRES
grande plage de cellule c'est un peu long..
A nouveau quelqu'un aurait-il la solution à mon problème ? Merci d'avance
Peut-être que la macro suivante te conviendra
-> Elle fait l'équivalent du raccourci clavier CTRL + * qui sélectionne
automatiquement le tableau entier
sub SelectionAuto
laCellActive=thiscomponent.currentselection
if laCellActive.supportsService("com.sun.star.sheet.SheetCell") then
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SelectData", "", 0,
Array())
LaPlage=ThisComponent.currentselection
end if
end sub
PS. Cette macro est extraite d'une autre macro de Laurent
En espérant avoir aidé.
Tony