At 2004-08-04 18:46, Laurent Godard wrote:
Bonsoir,
ci-joint une macro qui ... ne fait pas ce que vous cherchez :(
Enfin pas encore
(...)
'valeurs possibles de 0 à 3 conformement à la liste deroulante
aSetting.MoveSelectionDirection=0
Bon, tu as fait le plus difficile, retrouver le nom de la propriété. Un
petit tour dans la recherche alphabétique de l'API nous conduit au service
GlobalSheetSettings. Après c'est tout simple ;-)
Les trois premières macros peuvent être directement déclenchées par un
raccourci clavier. Je vous laisse écrire les deux qui manquent (utilisant
LEFT et UP).
Option Explicit
Sub ADroite
DeplaceSelection(com.sun.star.sheet.MoveDirection.RIGHT)
End Sub
Sub EnBas
DeplaceSelection(com.sun.star.sheet.MoveDirection.DOWN)
End Sub
Sub EnPlace
With CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
.MoveSelection = false
end with
End Sub
Sub DeplaceSelection(vers As Integer)
With CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
.MoveDirection = vers
.MoveSelection = true
end with
End Sub
N'empêche, je trouve toujours ce besoin parfaitement inutile. (pour ceux
qui n'ont pas suivi les épisodes précédents : dans Calc, pouvoir changer
par un raccourci clavier le sens du déplacement automatique de la sélection
quand on appuie sur Enter).
Bonne soirée,
Bernard
3 messages in org.openoffice.fr.prog[prog] Changer le deplacement sur Ent...
