relier bouton a une feuille

[angoul]

bonjours,
j'ai besoin d'un petit coup de mains,
j'ai creer une USF avec 30boutons qui doivent etre relier a 30feuilles differents.
Pour relier un bouton a une feuille sa je sait faire, mais y a t'il une facon plus rapide de relier les boutons au feuilles

merci de vos conseil

 

[jp14]

Re : relier bouton a une feuille

Bonjour

Pour relier les boutons aux feuilles il faut un lien logique entre les boutons et le nom des feuilles.
Ce lien peut être le nom du bouton, se trouver dans la propriété "Tag".

En utilisant une boucle qui permet de connaitre les feuilles on peut affecter automatiquement ce lien.

exemple

Dim i As Byte
Dim Sh As Worksheet
    i = 1
    For Each Sh In Worksheets
        Me.Controls("CommandButton" & i).Caption = Sh.Name
        i = i + 1
    Next Sh

A tester

JP

 

[angoul]

Re : relier bouton a une feuille

bonjours,

J'ai essayer ta methode mais j'ai une erreur, j'ai mis un fichier pour que l'on m'aide

merci d'avance

 

[jp14]

Re : relier bouton a une feuille

Bonjour

Ci dessous le code à mettre dans l'userform

Private Sub UserForm_Initialize()
Dim i As Byte
Dim Sh As Worksheet
    i = 1
    For Each Sh In Worksheets
        Select Case Sh.Name
        Case "Feuil", "toto" ' mettre le nom des feuilles sans bouton
        Case Else
            Me.Controls("CommandButton" & i).Caption = Sh.Name
            i = i + 1
        End Select
    Next Sh
End Sub

A tester

JP

 

[angoul]

Re : relier bouton a une feuille

merci de ton aide c'est super sa fonctionne dans mon USF
une petite question quand meme
est ce que cela peut fonctionner si je crée des boutons sur une feuille directement au lieu de les mettres dans une USF?

 

[jp14]

Re : relier bouton a une feuille

Bonsoir angoul

En utilisant cette syntaxe à l'ouverture du fichier le bouton est nommé "tutu"

Private Sub Workbook_Open()
[COLOR="Red"][/COLOR]Sheets("Feuil1").CommandButton1.Caption = "tutu"[COLOR="Red"][/COLOR]
End Sub

A tester

JP

 

[angoul]

Re : relier bouton a une feuille

Jp je revient a toi car j'ai besoin de ton aide
j'ai creer un feuille menu2 ou j'ai mis des catégories a la main avec des boutons
mais peut ton reproduire le style de mise en forme comme sur la feuille"menu2" en automatique en creer les boutons a partir des feuilles?
peut tu m'aider car je trouve pas deja comment creer les boutons sur une feuille meme avec tes explications.

je met un fichier ici pour que l'on puisse regarder sa
Cijoint.fr - Service gratuit de dépôt de fichiers

merci de votre aide car cela va me servire samedi pour une competition

 

[angoul]

Re : relier bouton a une feuille

quelqu'un peut t'il m'aider pour mon probleme?
merci