Macro Renommer Plage de cellules active

Version imprimable

09/10/2016, 22h34
Philallright

1 pièce(s) jointe(s)

Macro Renommer Plage de cellules active

Bonsoir,
Je souhaite renommer une plage de cellules à l'aide d'une macro Ooo Basic.
Vous trouverez en pièce jointe le fichier où je fais des essais (Macro RenommePlage2)
Résumé :
1 - Dans la feuille Prestations, j'ai une plage nommée Prestations correspondant à A3:C7
2 - Une première macro me permet de supprimer le nom prestations s'il existe (Macro SupprimeNomPrestations)
3 - Une deuxième macro me permet de sélectionner à partir de la cellule A3, la plage des prestations avec CTRL + * (Macro RenommePlage2)
4 - Je n'arrive pas à indiquer que c'est cette plage active que je veux nommer prestations.
Dans le code j'ai à la fin :

Code:

oNom.addNewByName( "prestations" , "$prestations.$A3:$C7" , oCellAdress , 0 )

Ce que je veux c'est remplacer $prestations.$A3:$C7 par ma plage de cellules active.
Je vous remercie de votre aide, j'ai eu beau chercher, je bute sur cette dernière étape.
Cordialement,
Philippe
10/10/2016, 09h17
zoom61

Bonjour,

Les macros ne sont pas dans le fichier que tu as joins !
Voir ici pour savoir où mettre les macros.

Cdlt.
10/10/2016, 17h50
Philallright

1 pièce(s) jointe(s)

Macros dans la pièce jointe

Zoom 61,
Merci de votre réponse. J'ai ajouté les macros dans le fichier.
Cordialement,
Philippe

Salut,

Ce qui pourrait donner :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub RenommePlage2
    Dim monDocument As Object
    Dim lesFeuilles as Object
    Dim maFeuille As Object
    Dim maCellule As Object
    Dim oNom As Object  
    Dim oCellAdress As New com.sun.star.table.CellAddress
 
    'Définir la dernière cellule active
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("prestations")
    maPosition = maFeuille.createCursor
    maPosition.gotoEndOfUsedArea(False)
 
    'Renommer la plage
    oNom = ThisComponent.NamedRanges 
    oNom.addNewByName( "prestations" , "$prestations.$A3:$C" &  maPosition.RangeAddress.EndRow+1 , oCellAdress , 0 )  
End Sub

11/10/2016, 09h00
Philallright

1 pièce(s) jointe(s)

Message d'erreur

Bonjour Zoom61,
Merci de ta réponse. J'ai le message d'erreur ci-dessous qui s'affiche à l'exécution de la macro :
Pièce jointe 222399
Ai-je raté quelque chose ?
Merci de ton aide,
Philippe
11/10/2016, 09h07
zoom61

Si tu rajoutes cette commande avant le renommage, elle doit quoi comme valeur :

Code:

MsgBox maPosition.gotoEndOfUsedArea(False)
11/10/2016, 14h05
Philallright

2 pièce(s) jointe(s)

Introduction de la nouvelle ligne

Bonjour Zoom61,
Voici le message obtenu lors de l'exécution dans l'éditeur de macros :
Pièce jointe 222425
Et quand je l'exécute dans la feuille :
Pièce jointe 222426
Merci,
Philippe
11/10/2016, 15h01
zoom61

Je viens de voir que j'ai fait une erreur, modifie la ligne :

Code:

Dim maCellule As Object

par

Code:

Dim maPosition As Object
11/10/2016, 18h16
Philallright

1 pièce(s) jointe(s)

Message d'erreur

Bonsoir Zoom61,
J'ai le message d'erreur ci-dessous :
Pièce jointe 222430
Merci,
Philippe

Bonjour,

Un petit morceau de code qui supprime la zone nommée si elle existe, et nome la sélection faite sur la feuille active :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub Main
Dim oDoc As Object, celluleRef As Object 
Dim selection As Object, zonesNommees As Object
oDoc = Thiscomponent
celluleRef = oDoc.CurrentController.ActiveSheet.GetcellRangeByName("A1")
selection = oDoc.CurrentSelection
zonesNommees = oDoc.NamedRanges
If zonesNommees.hasByName("Prestations") then
	zonesNommees.removeByName("Prestations")
end If  
zonesNommees.addNewByName("Prestations",selection.AbsoluteName ,celluleRef.CellAddress,0)
End Sub

A+

12/10/2016, 08h13
zoom61

As-tu refait un MsgBox maPosition.gotoEndOfUsedArea(False) ? Et que donne le résultat ?
18/10/2016, 09h19
Philallright

Macro

à l'attention de Z_662,
Merci, la macro fonctionne parfaitement :D !
Merci à tous les deux (Zoom61) de votre aide.
Cordialement,
Philippe