[calc] macro nommer plage de cellule

Bonsoir,

Habitué à travailler sous excel, je dois convertir un fichier contenant des macros sous calc, et cela me pose quelques problèmes.
Je n'arrive notamment pas à nommer une plage de cellule. J'ai fait des tests avec ce que j'ai pu trouver sur le net, mais ça plante toujours.

Je joins en PJ le fichier de test pour cette fonctionnalité.
Quelqu'un peut-il m'aider ?

Bonjour,

Remplace la dernière ligne, juste avant End Sub par :

Code:

---

oNom.addNewByName("Cable01" , "Feuille1.$B2:$C5" , celluleRef.CellAddress , 0 )

---

Après, NamedRanges correspond au conteneur qui stocke les noms de plages, et/ou formules nommées. Il est déjà affecté à la variable zonesNommees :

Code:

---

zonesNommees = oDoc.NamedRanges

---

ce n'est donc pas nécessaire de l'affecter une seconde fois à une autre variable :

Code:

---

oNom = ThisComponent.NamedRanges

---

du coup, ta dernière ligne peut aussi être :

Code:

---

zonesNommees.addNewByName("Cable01" , "Feuille1.$B2:$C5" , celluleRef.CellAddress , 0 )

---

Pour info, la programmation au pifomètre ça ne fonctionne jamais.

Edit :
idéalement, ton code devrait ressembler à cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Sub Main Dim oDoc As Object, celluleRef As Object, zoneDeNoms As Object Dim maPlage As String, nomPlage As String oDoc = Thiscomponent celluleRef = oDoc.CurrentController.ActiveSheet.GetcellRangeByName("A1") maPlage = "Feuille1.$B2:$C5" 'la zone à nommer nomPlage = "Cable01" 'le nom de la zone à nommer zoneDeNoms = oDoc.NamedRanges If zoneDeNoms.hasByName(nomPlage) then 'si il existe déjà une zone de ce nom zoneDeNoms.removeByName(nomPlage) 'alors on la supprime end If zoneDeNoms.addNewByName(nomPlage, maPlage ,celluleRef.CellAddress,0) End Sub

---

Il est nécessaire de s'assurer que le nom de plage à créer n'existe pas déjà, et le cas échéant le supprimer de la zone de noms, avant d'en créer un nouveau sinon c'est l'erreur assurée.

A+