 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
3 messages in org.openoffice.fr.progRe: [prog] Validité > Changer la vale...| From | Sent On | Attachments |
|---|---|---|
| Jovial | Mar 16, 2005 2:42 am | |
| Alain Nowak | Mar 17, 2005 6:03 am | |
| Jovial | Mar 17, 2005 7:19 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] Validité > Changer la valeur saisie | Actions... |
|---|---|---|
| From: | Alain Nowak (ano...@starxpert.fr) | |
| Date: | Mar 17, 2005 6:03:54 am | |
| List: | org.openoffice.fr.prog | |
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
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