Valeur inscrite dans un bouton

[Hugues]

Bonjour Le Forum,

Dans un classeur en première page, j'ai positionné des boutons afin de pouvoir naviguer dans le classeur.

Dans ces boutons, il y a un texte qui fait référence à l'année de travail ; exemple si nous sommes en 2009, je vais trouver un bouton sur lequel est inscrit "bilan 2008" un autre "bilan 2007".

Je souhaiterais que la modification des libllés des boutons se fasse automatiquement (ne plus rentrer dans chaque propriété de bouton pour la modification).
De plus, l'année de travail est stipulée dans une cellule de cette première page que j'ai nommée "annee".
Avez vous une idée ?
Merci à vous tous par avance,
Hugues.

 

[Gruick]

Re : Valeur inscrite dans un bouton

Hugh Hugues ! (Pardon)

A supposer que ton bouton aie le nom "Button 3" par exemple

ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "Année " & Range("annee")

ça devrait le faire

il y a aussi la propriété "caption"

Gruick

 

[sousou]

Re : Valeur inscrite dans un bouton

Bonjour
A l'ouverture de ton classeur tu vas modifier le texte de tes boutons.

exemple:
Private Sub Workbook_Open()
Feuil1.CommandButton1.Caption = "bilan "& thisworkbook.names("années")
End Sub

 

[Hugues]

Re : Valeur inscrite dans un bouton

Merci à vous
J'essaie de suite
A la prochaine et encore merci