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

Résolu/Fermé

Kutska Messages postés 9 Date d'inscription mercredi 2 mai 2018 Statut Membre Dernière intervention 16 mai 2018 - 2 mai 2018 à 10:27
Kutska Messages postés 9 Date d'inscription mercredi 2 mai 2018 Statut Membre Dernière intervention 16 mai 2018 - 2 mai 2018 à 17:09

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

A voir également:

[Excel] Ajouter une page, la nommer et incrémenter
Supprimer une page word - Guide
Liste déroulante excel - Guide
Si et excel - Guide
Traduire une page web - Guide
Aller à la ligne excel - Guide

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié le 2 mai 2018 à 15:41

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

Réponse 2 / 3

Jauster Messages postés 126 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 31 août 2018 40
Modifié le 2 mai 2018 à 16:00

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

Kutska Messages postés 9 Date d'inscription mercredi 2 mai 2018 Statut Membre Dernière intervention 16 mai 2018 1
2 mai 2018 à 15:27

Encore mieux ;)

Merci !

Jauster Messages postés 126 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 31 août 2018 40
2 mai 2018 à 16:01

J'ai modifié la macro pour ajouter Application.ScreenUpdating = False qui permet d'éviter l'écran qui clignote lorsque tu ajoutes une feuille

Kutska Messages postés 9 Date d'inscription mercredi 2 mai 2018 Statut Membre Dernière intervention 16 mai 2018 1
2 mai 2018 à 17:09

Ca ne change rien. Mais c'est qu'un détail je n'y fais même pas attention, te tracasse pas

Réponse 3 / 3

Kutska Messages postés 9 Date d'inscription mercredi 2 mai 2018 Statut Membre Dernière intervention 16 mai 2018 1
2 mai 2018 à 15:13

C'est parfait, merci beaucoup !

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Ajouter une page dans libre office

Discussions similaires

Newsletters