ajout feuille par macro et renomme

Dennnisss

XLDnaute Occasionnel
Bonjour a tous

J'ai fait de la recherche sur votre site pour trouver une facon de creer une nouvelle feuille et de la renommé
J'aimerais renommé ces feuille Ronde 1 , et si j'ajoute une deuxieme feuille
alors elle s,appellera Ronde 2 , et ainsi de suite
Le mot Ronde est toujours present seulement le chiffre change

Alors j'aurais besoin de vous pour ce petit probleme
merci a vous de votre aide
J,attend sur le forum

merci dennnisss ;) ;)
 

Pièces jointes

  • Classeur1.xls
    23 KB · Affichages: 64
  • Classeur1.xls
    23 KB · Affichages: 66
  • Classeur1.xls
    23 KB · Affichages: 74

jp14

XLDnaute Barbatruc
Re : ajout feuille par macro et renomme

Bonsoir

Ci dessous le code qui devrait répondre à la demande

Recherche du dernier numéro avec "Ronde "
Création de l'onglet et affectation du nom


Code:
Sub test()


    Dim sh As Worksheet
    Dim i As Integer
    i = 0
    For Each sh In Sheets()
        If Val(Replace(sh.Name, "Ronde ", "")) > i Then i = Val(Replace(sh.Name, "Ronde", ""))
    Next sh


ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Ronde " & i + 1


End Sub

A tester

JP
 

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088