Bonjour
Super �a marche :-)
Merci Alain
Alain Nowak a �crit :
Salut, Il te manquait juste un petit d�tail : que ta fonction retourne false ... Voila le code complet :
Function TraiteSaisie(ValeurSaisie as string, adresseCell as String) as Boolean
MonDocument = ThisComponent
MaFeuille = MonDocument.CurrentController.ActiveSheet
ZoneSelectionnee = MonDocument.CurrentSelection
LignesZoneSelectionnee = ZoneSelectionnee.rows 'relative � la zone
NbLignesZoneSelectionnee = LignesZoneSelectionnee.count 'nombre de lignes s�lectionn�es
UneCellule = ZoneSelectionnee.getCellByPosition(0,0) 'position relative de la 1�re cellule dans la zoneselectionn�e
CoordCelluleSelectionnee = UneCellule.CellAddress'r�cup�re les coordonn�e de la 1�re cellule
ColonneCelluleSelectionnee = CoordCelluleSelectionnee.Column ' r�cup�re le N� de colonne (0=A)
LigneCible = CoordCelluleSelectionnee.Row
'Ecriture dans la cellule
MaFeuille.getCellByPosition(ColonneCelluleSelectionnee,LigneCible).String = "toto"
TraiteSaisie=false
End Function
Jovial a �crit :
J'ai une fonction appel�e par la validit�,.
Je retrouve la cellule s�lectionn�e et je peux �crire 2 colonne plus loin un texte, mais j'ai pas trouv� le moyen de modifer le texte que je viens de saisir.
Comment faire poue le modifier.
Jean-Luc
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
