relier bouton a une feuille

J

jp14

XLDnaute Barbatruc

• 13 Novembre 2009

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 13 Novembre 2009

• #3

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

 

Pièces jointes

• testbouton.zip

  16.3 KB · Affichages: 40
• testbouton.zip

  16.3 KB · Affichages: 42
• testbouton.zip

  16.3 KB · Affichages: 45

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 13 Novembre 2009

• #4

Re : relier bouton a une feuille

Bonjour

Ci dessous le code à mettre dans l'userform

Code:

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 13 Novembre 2009

• #5

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?

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 13 Novembre 2009

• #6

Re : relier bouton a une feuille

Bonsoir angoul

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

Code:

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

A tester

JP

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 2 Décembre 2009

• #7

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

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 3 Décembre 2009

• #8

Re : relier bouton a une feuille

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

 

Vote positif 0 Vote négatif