XL 2013 Insérer code VBA à la création d'une feuille

sardaucar

XLDnaute Nouveau
Bonjour à tous,

J'ai une fonction qui me permet de créer en boucle une 30aine de feuille dans un classeur Excel.

Je souhaite pouvoir ajouter une option de navigation entre feuille pour plus d'ergonomie.

Autant je suis capable de mettre en place le code VBA avec les formules suivantes

Worksheets(Selection.Value).Activate

et Worksheets.move

Mais vu que je créé mes feuilles de rien, comment mettre la fonction dans les feuilles nouvellement crées ?

Je ne peux pas le faire à la main car chaque semaine le classeur est renouvelé.

Merci d'avance pour toutes vos idées,

Sardaucar
 

Bougla972

XLDnaute Occasionnel
Bonjour Sardaucar,

Ci dessous un exemple de code:
Code:
Sub CreerOnglet()
Dim Ws As Worksheet

Set Ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
With ThisWorkbook
    With .VBProject.VBComponents(Ws.CodeName).CodeModule 'Copie l'onglet sans les macro de la feuille
        .AddFromString "Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)" & vbLf & _
                       "Cancel = True" & vbLf & "menu" & vbLf & "End Sub"
    End With
End With

End Sub

Tu peux travailler à partir de cela pour l'intégrer dans ta boucle...
 

Pièces jointes

  • Sardaucar.xlsm
    20.4 KB · Affichages: 45

Discussions similaires