ajout feuille par macro et renomme

Dennnisss · 31 Janvier 2009

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 · 31 Janvier 2009

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

Dennnisss · 31 Janvier 2009

Re : ajout feuille par macro et renomme

Salut JP14

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

merci encore

dennnisss

ajout feuille par macro et renomme

Dennnisss

XLDnaute Occasionnel

Pièces jointes

jp14

XLDnaute Barbatruc

Dennnisss

XLDnaute Occasionnel

Discussions similaires

ajout feuille par macro et renomme

Dennnisss

XLDnaute Occasionnel

Pièces jointes

jp14

XLDnaute Barbatruc

Dennnisss

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency