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

Le Code: Function TraiteSaisie(ValeurSaisie as string)' as String

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 cellules MaFeuille.getCellByPosition(3,LigneCible).formula = "TexteSaisi = " & ValeurSaisie MaFeuille.getCellByPosition(0,LigneCible).formula = "Texte de remplacement" TraiteSaisie = "Texte de remplacement" ValeurSaisie = "Texte de remplacement"

End Function