EXCEL vba COMMUNIQUER entre pages

kriKri51 Messages postés 19 Statut Membre -  
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Les lignes ci-dessous, me permettent d'incrire sur des boutons, ce que j'inscrit dans les cases A1, A2, A3, A4 de la feuille 1

Comment faire pour inscrire la meme chose sur des boutons situés sur d'AUTRES feuilles?

D'avance MERCI

Private Sub Worksheet_Change(ByVal Target As Range)

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

Range("A1").Select

End Sub

2 réponses

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Il suffit de nommer la feuille où se trouve l'intitulé des boutons, par exemple sur la feuille 2:

    ActiveSheet.Shapes("Button 2").Characters.Text = Worksheets(1).Range("A1").Value

    ;o)
    0
    1. kriKri51 Messages postés 19 Statut Membre
       
      Je suis sans doute tres bete, mais ma liste de mots etant sur la feuille 1
      mes boutons sur les feuille 2, feuille 3, feuille 4....comment faire ?

      Merci
      0
    2. Polux31 Messages postés 7219 Statut Membre 1 204
       
      Oui, j'ai très bien compris. Par contre je ne comprends pas où est la difficulté.

      Tu as pu le faire pour la feuille 1. Il te suffit de faire pareil pour la feuille 2 en nommant comme dans l'exemple que je t'ai donné, la feuille où se trouve l'intitulé des boutons.

      Je changerai tout de même l'évènement Change() par l'évènement Activate du Worksheet pour le nommage des boutons.

      Bon courage

      ;o)
      0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    Au lieu d'utiliser des boutons créés à partir de la barre d'outils "formulaires", utilise un vrai bouton de commande, créé à l'aide de la boite à outils contrôles.

    Tu pourra alors définir directement le texte (propriété Caption) sans être obligé de sélectionner le bouton (et donc définir le texte d'un bouton situé sur une autre feuille sans être obligé d'accéder a cette autre feuille)
    0