Calc macro écrire à coté de la cellule trouvé

[relaxcalc]

merci de m’aider a écrire ma valeur a coté de ma cellule trouver apres une recherche effectué
je vous joint un bout du code, et veillez me montré comment je vais joindre tout le fichier

zone = sht.getCellRangeByName(“H1:K1048576”)
srch = zone.createSearchDescriptor
with srch
.SearchString = sht.getCellRangeByName(“G5”).string
.SearchWords = true
.SearchType = 1
End with
trouv = zone.FindFirst(srch)
if isNull(trouv) then
msgbox(“Pas trouvé !”)
else
lig = trouv.CellAddress.row
ThisComponent.CurrentController.Select(sht.GetCellByPosition(0,lig)
ContenuCell1 = trouv.String
trouv.String = sString3

[jeanmi2403]

Pas besoin de variable intermédiaire :

sht.getCellByPosition(0,lig).string = sString3

Bonne journée,

[relaxcalc]

merci, mon problème est régler grace à vous