ajout feuille par macro et renomme

[Dennnisss]

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 😉 😉

 

[jp14]

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

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

 

[Dennnisss]

Re : ajout feuille par macro et renomme

Salut JP14

Wow c'est super extra , merci de ton aide a la prochaine

merci encore

dennnisss