incrémentation numéro dans onglet feuille

Dans le ThisWorkbook de ton classeur, copie ceci :

Dans le nom de la feuille, remplace "Denis" par la
racine du nom désirée.

'-------------------
Private Sub Workbook_NewSheet(ByVal Sh As Object)

With ThisWorkbook
Sh.Move After:=.Worksheets(.Worksheets.Count)
Sh.Name = "Denis" & .Worksheets.Count + 1
End With

End Sub
'-------------------



"Methos" <sasas@asasa.ccc> a écrit dans le message de news: 459d2de0$0$300$426a74cc@news.free.fr...
bonjour,

est-il possible dans excel d'incrémenter des numéros dans l'onglet des
feuilles de calcul ? (ex. Truc p1, puis Truc p2, etc...).

merci pour votre aide

MErci beaucoup, c'est copié où tu l'as dit, mais ensuite que faire ?
merci !

| c'est copié où tu l'as dit, mais ensuite que faire ?

Tu ouvres l'éditeur de code Alt + F11
Tu sélectionnes ton projet (classeur) dans la fenêtre de guache
et tu affiches l'arborescence des objets en cliquant sur ton projet.

Et si tu fais un double-clic sur le ThisWorkbook, tu pourras
copier le code dans la fenêtre blanche de droite.

Le code fonctionne à chaque fois que tu ajoutes une feuille à
partir de la commande à cet effet dans l'interface de la feuille de calcul.

Super merci beaucoup.