fusionner 2 action vba

[angoul]

Bonjour
j'ai besoin de votre aide.
j'ai un fichier excel qui me permet de creer des feuilles pour une competition.
Le 1er bouton me permet de creer les boutons et les renommés
le 1eme bouton me permet de creer des feuilles par rapports a un modele
Mais helas j'arrive pas a trouver comment faire pour que les boutons soit relier au feuilles automatiquements.
Je pourrait le faire a la mains; mais j'ai plus de 50 boutons donc c'est super long a faire.

Si quelqu'un peut y regarder et m'aider

merci d'avance

 

[pierrejean]

Re : fusionner 2 action vba

Bonjour angoul

A tester:

Sub Macro1()
Dim i%, hauteur&
Dim ctl As Control
' boucle pour créer les boutons
gauche = 10
n = 1
For c = 0 To 5
  hauteur = 0 'hauteur dans la page du premier bouton
  For i = 1 To 22
    With Sheets("gestion competition")
      .Select
      hauteur = hauteur + 22 'espace entre les boutons
      NomFeuille = Sheets("Catégorie bt").Cells(n, 1).Value
      ActiveSheet.Buttons.Add(gauche, hauteur, 110, 20).Select
      Selection.Name = NomFeuille
      Selection.Characters.Text = NomFeuille
      Selection.OnAction = "vavers"
    End With
    n = n + 1
  Next i
  gauche = gauche + 150
Next c
End Sub
Sub vavers()
If InStr(Application.Caller, "vide") <> 0 Then Exit Sub
Sheets(Application.Caller).Select
End Sub

 

[angoul]

Re : fusionner 2 action vba

merci c'est super, je test sa et je revient car j'ai plein plein de question
Mais avant de poser mes questions je vait essayer d'avancer plus.