Renommer dynamiquement un controle

Bonjour Jacky,

Selon que ton bouton provienne de la barre d'outils "Formulaire" ou "Contrôle" et Selon l'endroit où tu écris le code
soit dans le module feuille ou dans un module standard, l'une de ces procédures devrait fonctionner. Prend soin
d'adapter le nom de la feuille et le nom du bouton dans les procédures suggérées.


'---------------------------------
Sub BoutonBarreOutilsContrôle()

'Si écris dans le module feuille
With Worksheets("Feuil1").CommandButton1
.Caption = "Toto2"
End With


'Si écris dans un module standard
With Worksheets("Feuil1").Shapes("CommandButton1").OLEFormat.Object.Object
.Caption = "Toto1"
End With

End Sub
'---------------------------------

'---------------------------------
Sub BoutonDeLaBarreOutilsFormulaire()

'Si écris dans le module-feuille
With Shapes("Bouton 1").OLEFormat.Object
.Caption = "Bonjour"
End With


'Si écris dans un module
With Worksheets("Feuil1").Shapes("Bouton 1").OLEFormat.Object
.Caption = "Toto1"
End With
End Sub
'---------------------------------



Salutations!





"jacky" <seydoux.jacky@free.fr> a écrit dans le message de news:4038e75f$0$21661$636a15ce@news.free.fr...
Bonjour,

Je souhaiterais savoir s'il est possible de renommer de facon dynamique
(viaVBA) la propriété "Caption" d'un bouton de commande (ButtonCommand)
inseré dans une feuille de calcul
J'essaye dans tous les sens mais j'ai des erreurs en permanence (Propriétés
non gérée par l'objet)
Voiçi ma commande :
Activesheet.Shapes("CommandButton" & Cpt").Caption = NomBtn.
Visiblement cette propriéte n'est pas gérée par cette Objet.