les petits boutons

Bon, j'aurais mieux fait de regarder le fichier initial avant!

Les boutons de Philou se nomment Bouton i, mais avec i=5 pour le 3ième, 6 pour le 4ième... Et avec des exceptions pour les boutons 1, 2 et 11, ce qui complique tout

Je les ai donc renommés (les 1, 2 et 11, car je suis paresseux!)

Ensuite, j'espère que les feuilles sont dans l'ordre, car j'ai utilisé les indices: la feuille Menu est la première, la feuille 01, qui correspond au premier bouton qui lui s'appelle maintenant Bouton 3, est en fait la feuille d'indice 2, etc...

Vous me suivez? si non, c'est normal: pourquoi faire simple quand on peut faire compliqué?

Tout simplement pour que la macro ne prenne qu'une seule ligne en boucle:

Sub TitreBoutons()
For i = 1 To 37
Worksheets("MENU").Shapes("Bouton " & CStr(i + 2)).TextFrame.Characters.Text = Worksheets(i + 1).Range("C1")
Next i
End Sub


Voilà, Philou, je te le mets en pièce jointe. Il te suffit de lancer la macro "TitreBoutons" quand tu veux remettre à jour tes titres de boutons.

Bonne soirée.
Laurent.

Bonjour Philou, Michel, Laurent et les autres,


J'arrivais avec mon petit panneau expliquant comment créer un commandbutton et toc! Michel l'avait déjà fait (et très bien fait). lol

C'est pas bien grave, tout ça, au contraire, cela montre la vitalité du forum
Donc, Philou, apparemment, tu as tout pour bosser

A+
Michel

Bonjour Michel,

Désolé de ne avoir répondu plus vite, mais... toujours occupé à plein d'endroits .

Bon, pour commencer , j'ai excel 2000.

Ensuite, j'ai fouillé, et les barres d'outils je n'ai trouvé nulle part le moyen d'afficher ce que tu m'as montré dans ton fichier exemple.

Bizarre Bizarre.

y a surement un truc qui m'échappe, mais j'ai vraiment chercher partout.


Pour les autres propositions vba, je faire des tests.

Merci à tous pour le coup de main.

Mais cette histoir de bouton de commande me " chipotte ".


Philou

Bonjour,

C'est Michel_M( l'autre)

Si tu es vraiment tropembête avec tes boutons, tu peux faire un truc pas mal avec des liens hypertexte

J'essaierai ct' aprem au boulot, sinon je t'envoie ca ce soir..

Amitiés
Michel

Re

Comme promis ci-joint proposition de navigation dans ton classeur par lien hypertexte

A toi de voir

Bon courage
Michel