les petits boutons

[Philou]

Bonjour à toutes et tous,

Est'il possible que le texte se trouvant sur un bouton soit "capter" à partir d'une cellule se trouvant dans une autre feuille.

Je m'explique, j'ai un classeur qui comporte 40 feuilles, une de ces feuilles est le menu, dans cette feuille menu j'ai donc 39 boutons qui m'orientent chacun vers la feuille demandée ( via une macro ).

Ce que j'aimerais, c'est dans chacun de ces boutons vienne s'incrire se qui se trouve en titre ( cell A2 ) de chacune des feuilles concernée.

ex. bouton 1 m'envoie en feuill 1.
Dans la feuill 1 en A2 c'est un nom, je voudrais que ce nom s'affiche sur le bouton du menu.

J'espere que je suis bien expliquer.

Merci


Philou

 

[Michel_M]

Bonjour Philou


Dans un module essaies ceci:

Worksheets("feuil1").CommandButton1.Caption = Worksheets("feuil2").Range("A2")


Ditto pour feuill3, 4 peut être une p'tite boucle


Bon app
Michel

 

[michel]

Bonjour Philou

j'espere que le fichier ci joint pourra t'aider
bien sur ce n'est qu'un exemple à adapter pour ton classeur

bon apres midi
michel

 

[michel]

bonjour Michel

oouuppss ...excuse moi je n'avais pas vu ton message

bon apres midi
michel

 

[Philou]

Merci à vous,

Voici la macro affectée à mon bouton, j'ai mis la ligne Worksheets....... à l'intérieur, mais ça ne fonctionne pas, comprends pas pourquoi,

Merci pour votre aide.

Philou



Sub Bouton4_QuandClic()

'page 1

Worksheets("feuil1").CommandButton1.Caption = Worksheets("feuil2").Range("A2")

Sheets("01").Activate

End Sub

 

[Michel_M]

Re Philou,bonjour Michel-lapin sympa


La macro de Michel-lapin sympa est super ( je vais aller étudier OLEobject: peut être une prochaine question sur le forum!…)

Philou, Pour ce que tu as écris:

1/ Sheets("01") est faux: (n) est un index donc pas de guillemets et il me semble ,mais pas sûr, que 01 soit lu , je mettrais plutôt 1. ou alors écris Worksheets("01") si 01 est le nom de la feuille

2/ la procédure doit être dans un module et non dans une feuille macro (où tu as trouvé boutonX_clic): Tonton VBA n'aime pas les changements de feuilles dans des feuilles macro.
Ton bouton appellerait alors le nom de ta macro dans le module

Mais je me répète, tu as une super-macro de mon homonyme

A+
Michel

 

[Philou]

A Michel...; ( le dernier ),

Le prob n'est pas avec sheets("01").activate, ça, ça fonctionne bien et j'utilise ce système dans beaucoup de cas.

Ceci dit, 01 est bien le nom de ma feuille.


Ce qui ne va pas, c'est ceci

Worksheets("feuil1").CommandButton1.Caption = Worksheets("feuil2").Range("A2")


ou alors je l'utilise mal.

la macro que j'utilise est dans mon post de 13 h 48.

J'en perds mes derniers cheveux grrrr


Philou

 

[Michel_M]

Re Philou,

Je reprenais ce fil car j'avais marqué que des C.... (au choix) sur Sheets.

Je regarde ton pb un peu + tard (j'ai un truc urgent comme d'hab sur le gaz...) mais je t'avoue que je ne pige pas ca marchait sur mon ordi, la macro "titrer" était dans le module 1 et la macro du bouton quand clic était
dans la feuill1(éditeur VBA) qui appelait "titrer"

Michel

 

[Philou]

Re Michel,


Désolé, mais c'est peut être moi qui m'y prends mal.

J'ai réduit mon classeur au maximum pour pouvoir le mettre sur le forum.

Le voici donc en annexe, tu verras peut être ou se trouve mon prob.


Merci encore


Philou

 

[Michel_M]

Re-Salut Philou,



Je ne t'avais pas oublié

ci joint une proposition

Le pb vient de ce que tu utilises des boutons construits avec la barre d'outils formulaire vestiges d'Excel 5 je crois. Avec ceux-ci changer le texte est loin d'être évident

La mauvaise nouvelle est que tu vas être obligé de te refaire la page "menu"

J'ai fait sauté pas mal de choses pour pouvoir zipper (il est puissant ton zippeur!…)

Bonne soirée
Michel

 

[Philou]

Re Michel,


Ha lala,

Occupé par le souper,
Je viens de prendre connaissance de ta proposition..
Je vais faire une tentative demain.

Bonne saoirée à toutes et tous.

A demain pour la réponse.


Merci encore


Philou

 

[Philou]

Re Michel,

J'ai tester ta proposition, mais l'icone avec la clé et le marteau ne fonctionne pas, il est pas allumé.

Pourquoi ?

Une idée ?

Merci


Philou

 

[Michel_M]

Bonsoir Philou


Je regarderai tiut ça demain

A+
Michel

 

[michel]

bonsoir Michel , bonsoir Philou

qu'entends tu par ,"l'icone avec la clé et le marteau ne fonctionne pas, il est pas allumé"
quelle version d'excel utilises tu ?

en attendant j'espere que le fichier joint pourra t'aider

bonne soirée
michel

 

[LaurentTBT]

Bonsoir Philou et les Michels et tout le forum

Je n'ai pas regardé tout en détail, mais juste pour mettre un texte sur un bouton fait avec la barre d'outils formulaire:

Worksheets("feuil1").Shapes("Button 1").TextFrame.Characters.Text = "Ce que tu veux"

En espérant que les 39 boutons ont été créés dans l'ordre, les noms des objets shapes correspondant seront donnés par défaut "Button 1", "Button 2"...
Ce qui permettrait de faire une boucle:

For i=1 to 39
Worksheets("feuil1").Shapes("Button " & i).TextFrame.Characters.Text =worksheets("Feuil " & cstr(i+1)).range("A2")
next i

(en supposant que le bouton 1 doit prendre le texte en feuille "Feuil 2")

Bonne soirée.
Laurent.