7 messages in org.openoffice.fr.progRe: [prog] calc: insérer une note dan...
FromSent OnAttachments
Pascal DutermeJan 26, 2006 8:29 pm 
Fr...@idkal.comJan 27, 2006 12:20 am 
Laurent GodardJan 27, 2006 12:43 am 
Fr...@idkal.comJan 27, 2006 12:56 am 
Pascal DutermeJan 27, 2006 1:44 am 
Fr...@idkal.comJan 27, 2006 1:49 am 
Laurent GodardJan 27, 2006 1:54 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] calc: insérer une note dans une cellule par un codeActions...
From:Pascal Duterme (p.du@scarlet.be)
Date:Jan 27, 2006 1:44:30 am
List:org.openoffice.fr.prog

Merci beaucoup, c'est exactement ce que je recherchais. Quelqu'un pourrait-il m'indiquer où je pourrais trouver la liste des
collections, des objets et de leurs propriétés. Dans excel et vba de manière générale, il y a une aide
intuitive qui propose, lorsqu'on commence à rédiger des codes des éléments. Ca n'a pas l'air de
fonctionner avec openoffice. Et je n'ai pas encore trouver de documents complètes avec les
différents objets, propriétés et leur description.

Vous aurez compris que je tente de me débarrasser au plus vite de l'utilisation
de ms office, mais il faut que je réécrive toutes mes routines.

Send reply to: pr@fr.openoffice.org Date sent: Fri, 27 Jan 2006 09:44:05 +0100 From: Laurent Godard <lgod@indesko.com> To: pr@fr.openoffice.org Subject: Re: [prog] calc: insérer une note dans une cellule par un code

Bonjour pascal

Je voudrais rédiger une petite macro qui permette d'insérer une note dans la cellule courante. Par exemple, je veux insérer de manière automatique un texte saisi par l'utilisateur à l'aide d'une boîte de dialogue "inputbox";

Contrairement à Writer, les Annotations sous calc ne sont pas des TextContent que l'on insere à partir d'un curseur (livre ed.1 p268 ou ed.2 p302 )

Pour Calc, il te faut te referer à la collection Annotations de la Feuille contenant ta cellule et l'inserer en donnant comme argument la cellule et le texte

Essaye donc ceci (testé avc une cellule selectionnée)

Sub Main

laCelluleActive = thisComponent.currentselection FeuilleContenante = laCelluleActive.spreadsheet lesAnnotations = FeuilleContenante.Annotations

leContenu = InputBox("Entrer le contenu de la note") laPosition = laCelluleActive.CellAddress

lesAnnotations.insertNew(laPosition,leContenu)

End Sub

Cordialement