Excel nommer des boutons

Fermé
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010 - Modifié par kriKri51 le 29/06/2010 à 14:56
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010 - 29 juin 2010 à 17:34
Bonjour,

Voila mon problème.

J'ai sur la feuille1 d'excel (2000) une liste de noms

je voudrais sur X pages suivantes avoir des boutons bt1, bt2, bt3 etc... dont le nom changerais.

Il faudrait que le nom bt1 feuille 2 et le bt1 feuille 3 etc pour les feuille soit par exemple celui tape dans la case A1 de la feuille 1


le but etant : si je change un nom dans la liste de la feuille 1 que les boutons concidéres change automatiquement.

Contant sur vos compétences.
MERCI

2 réponses

kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010
29 juin 2010 à 15:01
SVP une petite reponse

je suis la dessus depuis des jours j'y arrive en mettant tout sur la feuille 1 mais pas avec les boutons sur d'autres feuilles.

Voila ma macro :


Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = [A1]
ActiveSheet.Shapes("Button 2").Select
Selection.Characters.Text = [A2]
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = [A3]
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text = [A4]


Range("A1").Select

End Sub
MERCI
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 196
Modifié par Polux31 le 29/06/2010 à 15:41
Bonjour,

La réponse a déjà été donnée et a disparu étrangement....

Sur les autres feuilles mettre ça :

Private Sub Worksheet_Activate() 

ActiveSheet.Shapes("Button 1").Select 
Selection.Characters.Text = Sheets(1).Range("A1").Value 
ActiveSheet.Shapes("Button 2").Select 
Selection.Characters.Text = Sheets(1).Range("A2").Value 
ActiveSheet.Shapes("Button 3").Select 
Selection.Characters.Text = Sheets(1).Range("A3").Value 
ActiveSheet.Shapes("Button 4").Select 
Selection.Characters.Text = Sheets(1).Range("A4").Value 

End Sub



«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010
29 juin 2010 à 17:34
Je n'y suis pour rien dans la disparition en tout MERCI de ta reponse je l'essaie de suite
0