XL 2010 Nommer un groupe de formes

sined

XLDnaute Nouveau
Bonjour
j'ai cherché en vain une réponse à mon problème, laquelle doit être toute bête mais je jette l'éponge.
J'ai récupéré un document créé sous Excel 2010 et bute sur une modification à y apporter.
Le problème porte sur le renommage en zone de nom d'un groupe de boutons de commande (Ctrl ActiveX)
Dans l'exemple joint (version du document réduite à l'essentiel de ma question) figure en bleu le groupe de boutons dont le nom par défaut a été modifié en "BT_Informations_Générales", et figure en rose un groupe de boutons dont je voudrais modifier le nom par défaut (ici "Groupe 8") en "BT_Informations_Détaillées".
Si je fais cette modification en zone de nom et la valide par Entrée cela affecte le nouveau nom à la cellule active en post action.
Si je procède de la même manière pour le bouton vert (hors goupe) cela modifie bien le nom de la forme (idem modification via propriétés).

Voilà, merci d'avance pour vos lumières !

Sined
 

Pièces jointes

  • testNomGroupeBoutons.xlsm
    33.3 KB · Affichages: 8

eriiic

XLDnaute Barbatruc
Bonjour,

en manuel je n'ai pas trouvé non plus.
Une macro pour te dépanner :
VB:
Sub renommer()
    On Error GoTo fin
    Selection.Name = InputBox("Nouveau nom", "Renommer", Selection.Name)
fin:
End Sub
sélectionner l'objet avant de la lancer.
Elle t'affiche le nom actuel que tu peux changer.
eric
 

sined

XLDnaute Nouveau
Impec ! j'ai câblé mon bouton "Infos 7" avec ceci et ça marche nickel

Sub BoutonInfos7_click()
On Error GoTo fin
With ActiveSheet
.Shapes.Range(Array("BoutonInfos4", "BoutonInfos5", "BoutonInfos6")).Select
Selection.ShapeRange.Group.Select
Selection.Name = InputBox("Nouveau nom", "Renommer", Selection.Name)
End With
fin:
End Sub

(pardon pour l'insert copier/coller de code ; pas vu comment faire propre)

Bon j'aurais quand même bien pris la solution manuelle car on m'assure ne pas avoir utilisé de macro lors de la création du doc récupéré.

Merci Eriiiic !
 

Discussions similaires

Réponses
19
Affichages
2 K

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo