EXCEL 2000 donner un nom a un bouton avec variable

Re : EXCEL 2000 donner un nom a un bouton avec variable

Salut Akronide51,

Le code correcte normalement, serait :
Il faut que "Feuil2" soit active

A+

Re : EXCEL 2000 donner un nom a un bouton avec variable

UN GRAND MERCI

Tu es le premier a me donner une solution qui me convient et qui fonctionne.

Je te met ci-dessous, ce que je suis obligé de taper (en REDUCTION) pour mon programme entier.

Sachant que j'ai 15 feuilles et 120 boutons par feuilles.

Est il possible de raccourcir la macro ?

D'avance merci

Private Sub Worksheet_Change(ByVal Target As Range)
' +-+-+-+-+-+-+-+-+
' + FEUILLE 2 +
' +-+-+-+-+-+-+-+-+

Sheets("Feuil2").Activate
Sheets("Feuil2").Shapes("Bouton 7").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil2").Shapes("Bouton 8").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A2").Value
Sheets("Feuil2").Shapes("Bouton 9").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A3").Value
Sheets("Feuil2").Shapes("Bouton 10").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A4").Value
' +-+-+-+-+-+-+-+-+
' + FEUILLE 3 +
' +-+-+-+-+-+-+-+-+
Sheets("Feuil3").Activate
Sheets("Feuil3").Shapes("Bouton 5").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil3").Shapes("Bouton 6").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A2").Value
Sheets("Feuil3").Shapes("Bouton 7").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A3").Value
Sheets("Feuil3").Shapes("Bouton 8").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A4").Value
' +-+-+-+-+-+-+-+-+
' + FEUILLE 4 +
' +-+-+-+-+-+-+-+-+
Sheets("Feuil4").Activate
Sheets("Feuil4").Shapes("Bouton 1").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil4").Shapes("Bouton 2").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A2").Value
Sheets("Feuil4").Shapes("Bouton 3").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A3").Value
Sheets("Feuil4").Shapes("Bouton 4").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A4").Value

Sheets("feuil1").Activate
' +-+-+-+-+-+-+-+-+
' + FEUILLE 5 +
' +-+-+-+-+-+-+-+-+
Sheets("Feuil5").Activate
Sheets("Feuil5").Shapes("Bouton 1").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil5").Shapes("Bouton 2").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A2").Value
Sheets("Feuil5").Shapes("Bouton 3").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A3").Value
Sheets("Feuil5").Shapes("Bouton 4").Select
Selection.Characters.Text = Sheets("Feuil1").Range("A4").Value

Sheets("feuil1").Activate
End Sub

Re : EXCEL 2000 donner un nom a un bouton avec variable

Bonsoir Arkonide, Bruno et à ceux qui passeront par ici.

As-tu pensé à utiliser un Userform?

Car 120 Boutons sur une feuille me semble prohibitif!!! 🙁
(De plus multipliés par tes quinze feuilles)

J'imagine le temps à construire ton projet! 😀

Joins l'une des feuilles dans un Classeur.
Il sera peut-être possible de te proposer une solution plus expéditive.

Amicalement.

Yann

Re : EXCEL 2000 donner un nom a un bouton avec variable

http://cjoint.com/?gDthoBEoSJ

Voila mon fichier de test
J'ai effectivement 15 pages et exactement 101 boutons sur chaque.

Cela ma demande enormement de temps effectivement, mais mes connaissances ne me permettent pas de faire mieux.

si tu peux le faire, je suis preneur

Amicalement.

Re : EXCEL 2000 donner un nom a un bouton avec variable

Je viens de le télécharger,

je regarde et je te dis.

Yann

Re : EXCEL 2000 donner un nom a un bouton avec variable

Bonjour Yann-56 😉
Arkonide51

Il faudrait que l'on sache à quoi te servent tous ces boutons 😕

A+

Re : EXCEL 2000 donner un nom a un bouton avec variable

BrunoM45 à dit:

Bonjour Yann-56 😉
Arkonide51

Il faudrait que l'on sache à quoi te servent tous ces boutons 😕

A+

Cliquez pour agrandir...

Les boutons de chaque page vont chercher une macro differente

Re : EXCEL 2000 donner un nom a un bouton avec variable

Re,

Ne pourrais-tu pas faire cela par un menu personnalisé 😕
plutôt que tous ces boutons

A+

Re : EXCEL 2000 donner un nom a un bouton avec variable

Bonsoir Arkonide, Bruno, et à ceux qui passeront par ici.

Ceci n'est juste qu'une approche.

Si tu y entrevois une utilisation qui pourrait convenir à ton projet;
on peut aller plus loin dans le détail.

Mais du coté des 120 Macros x par 15 Pages,
j'ai un sérieux doute sur la nécessité!!! 😕 😕 😕

Comme le dit Bruno 🙂 : A quoi sert cette foultitude de boutons???

Amicalement, et au plaisir.

Yann

Re : EXCEL 2000 donner un nom a un bouton avec variable

Bonsoir à tous 🙂 😎 ;
Comment peut on avoir 120 boutons par feuille 😱 😱 🙄
Juste pour passer par là....
Cordialement

Re : EXCEL 2000 donner un nom a un bouton avec variable

Bonjour à TOUTES et TOUS

Vous trouverez ci-joint le dossier avec lequel je travaille.
Enfin moi je suis le cuisinier, c'est mon épouse qui fait le service et la caisse, sur un PETIT ordinateur (manque de place).
Ce prog lui convient tres bien sauf au changement de "carte" tous les plats a changer.....🙁... d'ou ma question initiale.
Et il est tres lent et pour cause...🙄

Si quelqu'un peut trouver plus simple, sachant que mes connaissances s'arretent la...

D'avance MERCI

Voici mon programme :

http://cjoint.com/?gEpRhnjjGX

Re : EXCEL 2000 donner un nom a un bouton avec variable

Bonjour Arkonide, aux participants, et à ceux qui passeront par ici.

Arkonide, n'as-tu pas ouvert mon Classeur joint ci-dessus?

Amicalement.

Yann

Re : EXCEL 2000 donner un nom a un bouton avec variable

Re Arkonide.

Balaise ton outils!!!... Je n'avais pas soupçonné.

J'utilise une autre façon de faire que je pense plus souple
dans une de mes applications.

Elle serait particulièrement adaptée à la prise de commandes,
et à la rédaction de l'Addition.

Pour info elle est utilisée depuis quatre ans dans une société avec
12 utilisateurs en réseau pour passer les commandes.
(Une cinquantaine de fournisseurs dont une dizaine a plus de 20 000 articles
avec une actualisation fréquente)

Je vais tenter d'en extirper l'essentiel pour te construire un exemple.

Rien que pour mon plaisir de bidouiller… Et qui sait peut-être t'intéresser.

Amicalement.

Yann

Re : EXCEL 2000 donner un nom a un bouton avec variable

Merci YANN
j'ai bien sur etudié ton classeur et je regarde ce que ma modeste personne peux en faire.

Bien plus interessant que mon paquet de pages mais..... je suis cuistot 🙂 Excel en autodidacte

tu vois que tous mes boutons sont occupes
que les 15 pages existent et me sont necessires

Si tu peux me "raccourcir" tout cela, tu sera mon INVITE

J'attends avec impatience en travaillant de mon cote

si tu veux un cahier des charges, ne te gene pas 😛

d'avance merci