Excel nommer des boutons
kriKri51
Messages postés
19
Statut
Membre
-
kriKri51 Messages postés 19 Statut Membre -
kriKri51 Messages postés 19 Statut Membre -
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
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
-
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 -
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
