Manipulation d'un bouton dans une feuille

Bonsoir Loulou,

Si tes boutons proviennent de la boîte à outils Contrôles,
ça pourrait ressembler à :

Private Sub CommandButton1_Click()
Worksheets("Feuil1").CommandButton1.Caption = "Bonjour"
Macro1
End Sub

Private Sub CommandButton2_Click()
Worksheets("Feuil1").CommandButton1.Caption = "Bonsoir"
Macro2
End Sub

Serge


"Loulou Fox" <loulou_at_hotmail.com> a écrit dans le message de news:
u#YsMFKTEHA.2416@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

J'ai un problème surement simple mais je ne trouve pas la réponse...

J'ai une feuille dans laquelle j'ai 2 boutons qui appellent une macro.
Quand

j'appelle la 2ème, je voudrais changer le libellé du 1er bouton mais rien
à

faire, je ne réussi pas à retrouver mes 2 controles dans l'objet sheet...

Merci de votre aide !!

loulou

bonjour Loulou,

pour des boutons de la boite à outils controle,

Private Sub CommandButton2_Click()
Sheets("Feuil1").CommandButton1.Caption = "zaza"
End Sub

sinon,

ActiveSheet.Shapes("Button 3").Select
With Selection
.Characters.Text = "zaza"
End With

isabelle

Bonjour à tous,

J'ai un problème surement simple mais je ne trouve pas la réponse...

J'ai une feuille dans laquelle j'ai 2 boutons qui appellent une macro. Quand
j'appelle la 2ème, je voudrais changer le libellé du 1er bouton mais rien à
faire, je ne réussi pas à retrouver mes 2 controles dans l'objet sheet...

Merci de votre aide !!

loulou

Salut,
plus directement pour les boutons de formulaire et sans le sélectionner:
ActiveSheet.Shapes("Button 3").OLEFormat.Object.Text = "zaza"
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
40C48D47.F3FA47CA@videotron.ca...

bonjour Loulou,

pour des boutons de la boite à outils controle,

Private Sub CommandButton2_Click()
Sheets("Feuil1").CommandButton1.Caption = "zaza"
End Sub

sinon,

ActiveSheet.Shapes("Button 3").Select
With Selection
.Characters.Text = "zaza"
End With

isabelle

Bonjour à tous,

J'ai un problème surement simple mais je ne trouve pas la réponse...

J'ai une feuille dans laquelle j'ai 2 boutons qui appellent une macro.
Quand

j'appelle la 2ème, je voudrais changer le libellé du 1er bouton mais
rien à

faire, je ne réussi pas à retrouver mes 2 controles dans l'objet
sheet...

Merci de votre aide !!

loulou