Le 29/10/2018 à 21:21, Philippe BLANCHARD a écrit :
Merci Jean-François pour ta réponse
mais comment fait on pour l'affecter à une cellule ?

comme dans ton message d'origine :

Sub Main

Dim oSheet As Object
Dim oCell As Object
Dim MaChaine As String

oSheet = ThisComponent.Sheets.getByName("Feuille1")
oCell = oSheet.GetCellRangeByPosition(0, 0)     'A1

'au lieu de lire par : MaChaine = oCell.String

'on écrit par
oCell.String = MaChaine
End Sub

Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux


--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à 
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Répondre à