Re : [fr-users] Macros CALC - nommer une plage de données

Bonjour,

Le problème ne vient pas d’une disparition de CellAddress dans LibreOffice ≥ 7.2 :
l’API n’a pas changé sur ce point. La confusion vient surtout de la signature de
addNewByName().

Rappel de la signature UNO (toujours valable) :

addNewByName( Name As String,
              Content As String,
              BaseAddress As com.sun.star.table.CellAddress,
              Type As Long )


Points importants :

le 2ᵉ argument n’est pas un objet plage, mais une chaîne représentant
une expression de type formule (par ex. une adresse absolue) ;

le 3ᵉ argument est bien un CellAddress, qui peut être obtenu proprement
depuis une cellule existante.

Une manière robuste (et compatible anciennes / nouvelles versions) d’écrire le code est donc :

Dim oDoc As Object, oSheet As Object, oNamed As Object
Dim oRange As Object, oBaseCell As Object
Dim sName As String, sContent As String

oDoc = ThisComponent
oSheet = feuille   ' ou oDoc.Sheets.getByIndex(0)
oNamed = oDoc.NamedRanges

oRange = oSheet.getCellRangeByPosition(numcolonne, 1, numcolonne, nbligne-1)
sName = "plage" & numcolonne
sContent = oRange.AbsoluteName              ' ex : "$Feuille1.$C$2:$C$50"

oBaseCell = oSheet.getCellByPosition(numcolonne, 1)

If oNamed.hasByName(sName) Then
    oNamed.removeByName(sName)
End If

oNamed.addNewByName(sName, sContent, oBaseCell.CellAddress, 0)


En résumé :

pas besoin d’abandonner CellAddress ;

il faut simplement fournir à addNewByName() une chaîne pour le contenu
(et non un objet plage).

En espérant que cela aide à débloquer la migration.

Cordialement,


Bernard Schœnacker
3 rue de la porte de France
57930 Fénétrange

Technicien Méthodes –
Rédacteur Technique industriel





----- Tulum <tulum@free.fr> a écrit :
> Bonjour,
>
> Au travail nous venons de passer de la version 7.1 à la version 25.2. 
> J'utilise une macro dans laquelle, entre autres je nomme des plages de 
> cellule. cela ne marche plus et je n'arrive pas à corriger la macro pour 
> qu'elle refonctionne. Qwant et le chat ne sont mes amis sur ce coup.
>
> Voila le code qui fonctionnait avant :
>
>      
> plage=feuille.getcellrangebyposition(numcolonne,1,numcolonne,nbligne-1)
>              nomplage="plage"&numcolonne
>              CellAddress.sheet=0
>              CellAddress.column=numcolonne
>              CellAddress.Row=1
>              plages.addNewByName(nomplage, plage,CellAddress,0)
>
> Elle ne fonctionne plus, la raison semble être le fait que CellAddress 
> n'est plus valable depuis la version 7.2 de libreoffice. Apparemment, il 
> faut utiliser getCellByPosition à la place.
>
> Et c'est là que coince, je n'arrive pas à trouver la bonne synthaxe pour 
> plages.addNewByName.
>
> Si quelqu'un a une idée et sait comment résoudre mon problème, merci
> -- 
> Envoyez un mail à users+unsubscribe@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


-- 
Envoyez un mail à users+unsubscribe@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