EXCEL vba COMMUNIQUER entre pages
kriKri51
Messages postés
19
Statut
Membre
-
Patrice33740 Messages postés 8931 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8931 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
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
A voir également:
- EXCEL vba COMMUNIQUER entre pages
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Nombre de jours entre deux dates excel - Guide
- Imprimer tableau excel sur une page - Guide
- Si ou excel - Guide
2 réponses
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)
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)
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)
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)
mes boutons sur les feuille 2, feuille 3, feuille 4....comment faire ?
Merci
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)