christianwtd <christianwtd <at> free.fr> writes:
pierre nowak a écrit :
Dans OOo Calc,
j'ai une petite macro qui écrit qq chose dans la cellule
sélectionnée par l'utilisateur.
J'aimerais ensuite déplacer la sélection sur la
cellule d'à côté pour y inscrire un autre message.
quelle instruction
peut on utiliser en OOo basic pour cela ?
Bonjour Pierre,
Un petit exemple :
Sub Exemple
oDocument = ThisComponent
oSheet=oDocument.Sheets.getByName ("Feuille1")
Selection = oDocument.CurrentSelection
SelectRange = Selection.RangeAddress
Y = SelectRange.StartColumn
X = SelectRange.StartRow
oCell = oSheet.getCellByPosition (Y, X)
oCell.setString( "DUPONT")
End Sub
Merci, il y a déjà du progrès par rapport à mes essais.
J'ai essayé ça :
Sub seconde()
monDoc=thisComponent
feuille=monDoc.Sheets.getByName("Feuil1")
cellule=monDoc.currentSelection
cellule.setString("2nd")
cellule.CharColor=RGB(0,200,0)
SelectRange=cellule.RangeAddress
Y=SelectRange.StartColumn + 1
X=SelectRange.StartRow
cellule = feuille.getCellByPosition(Y,X)
cellule.setValue(6)
End Sub
J'ai bien 2nd qui s'affiche dans ma cellule sélectionnée, mais ça s'arrête là
(sans qu'une méchante petite fenêtre ne s'affiche pour me dire qu'un truc n'est
pas défini).
Que peut-il manquer pour avoir mon 6 dans la deuxième cellule ?
1 message in org.openoffice.fr.progRe: sélection d'une cellule
