Bonsoir,
Je butte (certainement bétement) sur un problème :
Je m'inspire du livre (la bible)
Je suis en train d'écrire une macro qui, lorsque qu'on lui envoie une
donnée, et les coordonnées d'une cellule, va écrire à l'endroit indiqué
en dur une donnée.
Lorsque j'essaie de le faire dans la même feuille cela ne fonctionne
pas, lorsque j'indique une autre feuille (en pointant sur la feuille en
dur dans la macro), cela fonctionne correctement.
Y a t'il une solution ?
Merci de votre aide,
Cordialement
En C7, je place ma formule : =DData("A6115";
CELLULE("col";C8);CELLULE("row";C8))
La fonction est :
Function DData(ref, acol, arow)
dim Doc as object
dim Worksheet as object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress
Dim oCellNew as object
Doc = StarDesktop.CurrentComponent
Worksheet = Doc.currentController.activeSheet
oCellNew=Worksheet.getCellByPosition(acol-1,arow-1) 'Name(acell)
if designation(ref)<>"Pas trouvé" then
oCellNew.string=designation(ref)
DData="OK"
else
DData="Erreur"
endif
end Function
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
