[Excel] Ajouter une page, la nommer et incrémenter Résolu

Question

Bonjour à tous,

J'ai un petit soucis que je n'arrive pas à résoudre :
J'ai fais un petit bout de code afin de pouvoir créer une feuille et la nommer tout en incrémentant le nom.

( Sub Ajout_Page_Sans_Outils()

'ajouter une nouvelle Feuille à la fin du Classeur et la nommer
    Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Str(Sheets.Count) & "-" & Str(Sheets.Count)
    
    
End Sub)


Ce qu'il donne comme sur la photo ci dessous : 1-1 / 2-2 / 3-3 etc...





Ce que je souhaiterai, c'est que la macro vérifie le nombre total de feuille lorsque j'en insère une et me les renomme toute : 1-3 / 2-3 / 3-3 etc...


Merci d'avance :D

ccm81 · Answer

Bonjour

Essaies comme ceci
Public Sub AjouteFeuille()
Dim nuf As Long, nbf As Long, nomf As String
Application.ScreenUpdating = False
' ajout d'une feuille
Sheets.Add After:=Sheets(Sheets.Count)
' nombre de feuilles
nbf = Sheets.Count
' renommer les feuilles nuf-nbf
For nuf = 1 To nbf
  nomf = nuf & "-" & nbf
  Sheets(nuf).Name = nomf
Next nuf
End Sub
Cdlmnt

Kutska · Answer

C'est parfait, merci beaucoup !

Jauster · Answer

Bonjour,

A essayer :

Sub test()
Dim rs As Worksheet

Application.ScreenUpdating = False

Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "---"

For Each rs In Sheets
        If rs.Index > 1 Then
               rs.Name = Str(rs.Index - 1) & "-" & Str(Sheets.Count - 1)
        End If
    Next rs

Application.ScreenUpdating = True

End Sub


EDIT :
A savoir que >1 permet d'ignorer la feuille Macro et de ne pas la renommer
Les -1 permette egalement de ne pas la prendre en compte

[Excel] Ajouter une page, la nommer et incrémenter

3 réponses

Discussions similaires

Newsletters