raccroché feuille a bouton

[angoul]

Bonjour j'ai besoin de vos conseil

j'ai creer pour une competition une feuille "menu" ou se trouve un bouton qui creer creer rapport a une liste des boutons sur une feuilles

sur ma feuille "menu" j'ai aussi un bouton qui me creer de sortes de feuilles toujour par rapport a une liste.

Mon gros problemes c'est que je n'arrive pas a faire que cele raccroche un bouton a la feuille de meme nom

je pourrait le faire a la mains, mais j'ai helas plus de 100boutons

et que cela varie a chaque competitions.

quelqu'un peut t'il regarder mon fichier et m'aider
voici le lien : Cijoint.fr - Service gratuit de dépôt de fichiers


merci d'avance

 

[James007]

Re : raccroché feuille a bouton

Si tu décides de normaliser, avec une structure définie, tous les noms de tes différents Command Buttons et de tes Feuilles, il te suffit d'une simple macro avec une boucle For Each ... Next ...

A +

 

[angoul]

Re : raccroché feuille a bouton

merci de ton aide, mais pour moi ce que tu dit c'est une peut du charabia

peut tu me faire un modele ou regarder sur mon fichier et m'expliquer la demarche

merci d'avance

 

[James007]

Re : raccroché feuille a bouton

merci de ton aide, mais pour moi ce que tu dit c'est une peut du charabia
peut tu me faire un modele ou regarder sur mon fichier et m'expliquer la demarche
merci d'avance

Malheureusement, ton fichier semble inaccessible ...
Normaliser : signifie par exemple de choisir comme nom bouton1, bouton2, etc .... puis feuille1, feuille2, etc ...
les noms sont identiques et une variable peut se substituer aux chiffres ...

 

[angoul]

Re : raccroché feuille a bouton

Je vient de verifier mon fichier, il est bien accessible

 

[Cousinhub]

Re : raccroché feuille a bouton

Bonjour,

Bonjour, James

Plutôt que de jouer avec des boutons, pourquoi pas des liens hypertextes?

Pour tester ce code, et afin de ne pas tout démolir dans ton fichier, tu rajoutes un onglet, que tu nommes "hub"

et déroule ce code :

Sub Macro1()
Dim I%, J%, Lig%
Dim Flag As Boolean
Dim Ws_Bt As Worksheet
Application.ScreenUpdating = False
Set Ws_Bt = Sheets("Catégorie bt")
Lig = 2
For I = 1 To Ws_Bt.Range("A65000").End(xlUp).Row
    If I Mod 22 = 0 Then
        J = J + 1
        Lig = 2
    End If
    If Not Flag And InStrRev(Ws_Bt.Cells(I, 1), "M") < 2 Then
        Flag = True
        Lig = 2
        J = J + 1
    End If
    With Sheets("hub")
        .Cells(Lig, J + 1).Value = Ws_Bt.Cells(I, 1).Value
        ActiveSheet.Hyperlinks.Add Anchor:=.Cells(Lig, J + 1), Address:="", SubAddress:= _
            "'" & Ws_Bt.Cells(I, 1).Value & "'!A1", TextToDisplay:=Ws_Bt.Cells(I, 1).Value
        Lig = Lig + 1
    End With
Next I
End Sub

Nota, tu peux supprimer tous les "vide..." qu'il y a dans ton onglet "Catégorie bt"

regarde le fichier joint (les liens ne vont pas fonctionner, forcément, vu qu'il n'y a pas les onglets correspondants....)

Bonne journée

 

[angoul]

Re : raccroché feuille a bouton

merci cest pas mal sa