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
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
A voir également:
- Excel nommer des boutons
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
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
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
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
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
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 :
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
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
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
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