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:Fr...@idkal.com (Fr@idkal.com)
Date:Jan 27, 2006 12:20:14 am
List:org.openoffice.fr.prog

Pascal Duterme a écrit :

Bonjour,

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";

Bonjour Pascal,

Est ce que ce code te convient - il ? Je n'ai pas encore eu le temps de voir pour récupérer la celulle active mais je vais regarder cela.

Sub EcrireDSCellule() Dim maFeuille, maCellule as Object Dim monAnnotation as String

maFeuille = ThisComponent.Sheets(0) monAnnotation = InputBox("?") maCellule = maFeuille.GetCellByPosition(0,0) /// les coordonnées de ta cellule : colonne A = 0, Ligne 1 = 0 / maCellule.SetString(monAnnotation) End sub

A bientot

Fred

begin:vcard fn:Fred n:;Fred org:IDKAL url:http://www.idkal.com version:2.1 end:vcard

--------------------------------------------------------------------- To unsubscribe, e-mail: prog@fr.openoffice.org For additional commands, e-mail: prog@fr.openoffice.org