[Excel] Ajouter une page, la nommer et incrémenter
Résolu
Kutska
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Kutska Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Kutska Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- [Excel] Ajouter une page, la nommer et incrémenter
- Supprimer une page word - Guide
- Word et excel gratuit - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
Bonjour
Essaies comme ceci
Cdlmnt
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
Bonjour,
A essayer :
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
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