Donner DES noms à DES boutons avec macro

Bonjour,

J'ai sur la feuille 1 d'un classeur excel 2000 une liste de noms de A1 à A4

Sur les pages 2, 3, 4, 5 j'ai des boutons ; "bouton1", "bouton2", "bouton3" etc... les memes sur chaque feuille.

j'ai sur la feuille 1 la macro ci dessous qui me permets de changer les noms (si je les change) dans les case A1 à a4 (pour l'ex'emple) A1= "toto" A2= tata" A3= "toti" A4= "tutu".

Ma question est : Comment faire si les boutons sont sur les feuille 2,3, 4 et plus , et non plus sur la feuille 1

D'avance MERCI

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

Bonsoir,

Place ton code modifié dans Thisworkbook au lieu dans la feuille

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ActiveSheet.Shapes(1).Select
Selection.Characters.Text = Range("A1")
....
End sub

ou code à essayer et toujours à placer dans Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
With ActiveSheet
    .DrawingObjects(1).Characters.Text = Range("A1")
    .DrawingObjects(2).Characters.Text = Range("A2")
    .DrawingObjects(3).Characters.Text = Range("A3")
    .DrawingObjects(4).Characters.Text = Range("A4")
End With
End Sub

Amicalement

Bonsoir Dan,

.DrawingObjects(2)

Comment sait-on qu'il s'agit du 2

C'est l'ordre de création du bouton ou l'emplacement à l'écran ou autre ?

Amicalement

Claude

Salut Claude,

C'est l'ordre de création du bouton ou l'emplacement à l'écran ou autre ?

Cela correspond au deuxième objet sur la feuille que ce soit un bouton via la boite outils ou u bouton dessiné par la barre d'outils dessin.

Amicalement

re,

Excusez l'intrusion et l'insistance sur ce fil, mais

si je déplace cet objet (2) sous le (4) par exemple, sera t-il toujours reconnu comme (2) ?

je pige pas bien là !

merci Dan

édit: j'ai testé et c'est bien l'ordre de création qui donne le N° de l'objet

quelle que soit sa place à l'écran.

Claude

Bonjour et merci de repondre.

Je suis desole, mais rien ne marche.

J'ai mis tes macros à lendroit indiqué, j'ai créé les boutons sur la feuille 2 mais rien ne marche

je suis la dessus depuis des jours, et je commence à .....

Re,

Désolé pour la réponse tardive...

Pour Claude,

si je déplace cet objet (2) sous le (4) par exemple, sera t-il toujours reconnu comme (2) ?

oui.

Pour Arkonide,

Si cela fonctionne mais tu as surement placé le code dans la mauvaise feuille ou tes boutons ne sont pas sur la feuille où tu effectues les changements dans les cellules destinées à renommer les boutons.

Vois le fichier joint dans lequel j'ai mis le code dans THISWORKBOOK.

• Vas sur la feuille 2 dans lequel les boutons sont nommés 1,2,3 et 4.
• Retourne sur la feuille 1, et tapes des données dans une des cellules A1, A2, A3 et A4 ou dans les 4 cellules.
• clique sur la feuille 2 pour voir les changements

A noter aussi que l'instruction "Characters.Text" peut être remplacée par "Caption"

Amicalement