Discussion :

[scrouet]

Bonjour.

J'aimerais récupérer via macro (en BASIC) la feuille dans laquelle se trouve une zone nommée.
J'ai tenté ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Dim objZones as Object		' Zones nommées
    Dim wksMtxRsqMes As Object   	' Onglet pour la matrice risques-mesures MTX_RSQ_MES (destination)
 
    ' Initialisations
    objZones = ThisComponent.NamedRanges
    Set wksMtxRsqMes = ThisComponent.Sheets(objZones.getByName("MTX_RSQ_MES").CellAddress.Sheet)

Mais lorsque je lance ma macro j'obtiens un message d'erreur indiquant que la propriété ou méthode CellAddress n'est pas connue. Idem avec RangeAddress.
NB : la zone nommée contient plusieurs cellules.

Comment faut-il que je m'y prenne ?

[zoom61]

Je ne comprends pas trop le but... si tu es sur la zone nommée, il te suffit de savoir quelle feuille est active :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
uneFeuille =ThisComponent.CurrentController.ActiveSheet
Msgbox uneFeuille

[scrouet]

Bonjour.

Le fait est que je dois faire des copies d'une zone nommée dans une feuille (listant des mesures de sécurité) vers une autre zone nommée dans une autre feuille (qui est une matrice permettant de croiser les mesures de sécurité en question avec des risques).
De manière générale, que ce soit Libre Office Calc ou Excel, je n'aime pas utiliser les feuilles, ranges et cellules actifs. Je trouve que cette notion n'est pas claire.

[scrouet]

C'est bon, j'ai fini par trouver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
objZones = ThisComponent.NamedRanges
wksMtxRsqMes = ThisComponent.Sheets(objZones.getByName("MTX_RSQ_MES").getReferredCells().rangeAddress.sheet)

Ce qui est un peu galère, c'est qu'il manque une aide intégrée avec l'ensemble des méthodes et propriétés disponibles pour un objet, comme dans VBA pour MS Office.