Caption d'un bouton?

[Claudy]

Bonjour...
Comment nommer un bouton de ma page avec le contenu d'une cellule?
J'ai essayé avec l'enregistreur , mais cela me parait un peu long!


Sub essaiCeJour()

' Macro enregistrée le 14/01/2003 par Claudy


Calculate
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = Range("A2").Value
Range("A2").Select
'Peut etre avec caption???
End Sub

Merci à tous

Claudy

 

[Ti]

voilà une macro qui fonctionne et qui fait ça sur une seule ligne

Sub RenommeBouton1()
Calculate
ActiveSheet.OLEObjects("commandButton1").Object.Caption = Range("A2").Value
End Sub

 

[Claudy]

Merci Ti....pour la rapidité!
mais à l'exécution,
Msg: impossible de lire la propriété OLEObjects("commandButton1)
;-(
A+
Claudy

 

[Ti]

c'et parce que ton bouton ne doit pas s'appeler CommandButton1, comme le mien. Donc modifie ce nom et ça devrait marcher

 

[Claudy]

re merci
;-((
ca ne va po!
meme si je renomme "CommandButton1" en "Button 1"(qui est le vrai nom de mon bouton.
A+
Claudy

 

[Ti]

OK, j'ai compris, tu as, comme beaucoup d'autres, la détestable habitude de "fabriquer" un faux commandButton en utilisant les commandes Dessin.
Donc, ce que je te conseille, c'est de détruire ce truc et d'en ajouter un "vrai" sur ta feuille. C'est simple, dans la barre de commande Visual Basic, tu cliques sur le marteau et la clé (!), puis sur l'équerre. Alors tu as un menu avec les contrôles qui s'affiche, tu repère le commandButton, tu cliques dessus et tu va placer ce bouton sur ta page. Voilà
Ensuite, reclique sur le marteau et la faucille (!!) et sur l'équerre, tu peux utiliser ton commandbutton.
Avantage ? : ce vrai CommandButton a toutes les caractéristiques d'un bouton, accessibles via sa propriété Object...

 

[Claudy]

Désolé d'user de ta patience..
losque je suis en visual basic, mon marteau et clef (boita à outils) sont grisés!
Il faut que j'insere un userform, pour l'avoir, et alors impossible de déplacer un bouton vers ma page excel!
A+
Grand merci

 

[Ti]

non non, tu fais ça directement sur la feuille Excel ! Si la barre visual Basic n'est pas visible, tu dois déjà la rendre visible (tu te places sur une barre de commande, puis tu fais un click droit et tu coches Visual Basic).
Un peu compliqué au début, mais ensuite, c'est incomparablement plus puissant que les shapes qu'on peut dessiner pour émuler les controles

 

[Claudy]

Ti, tu es génial!
encore merci, et bon WE
Claudy