Copier automatiquement nom d'un nouvel onglet

[Mapat]

Bonjour

J'ai un fichier dans lequel je rajoute très souvent un nouvel onglet.
Ces nouvelles feuilles sont nommées d'une suite de numéros 1, 2, 3 , etc ....
Est-il possible de pouvoir copier le nouveau n° du nouvel onglet créé dans une cellule
par ex A2 ?
Merci et bon après-midi

 

[vgendron]

Hello
avec
=NOMFEUILLE()

ou alors ce code

Sub listerfeuille()
For Each ws In Worksheets
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Name
Next ws
End Sub

 

[Lone-wolf]

Bonjour Mapat, vgendron

En VBA et dans ThisWorkbook. Mais Feuil1 est nommée "Base" par exemple et sans besoin d'inscrire le numéro.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim i As Long, x As Long
x = 0
For i = 2 To Sheets.Count
x = x + 1
Sheets(i).Name = x
Next i
End Sub

 

[Mapat]

Bonjour et merci de cette réponse
La formule ne fonctionne pas et la macro sert à lister toutes les feuilles
Ce que je voudrais, c'est comme une sorte de compteur qui inscrirait le n° de la nouvelle feuille
en a2

 

[Lone-wolf]

Re

Euuuuuhh!! Pourquoi je vois 5 fichiers, c'est normal? .

@Mapat: tu as vu la macro que j'ai mis? Pas besoin de compteur.

 

[Lone-wolf]

Re

@Mapat

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    With Feuil1
        .Range("a2") = .Range("a2") + 1
        Sh.Name = .Range("a2")
    End With
End Sub

 

[Mapat]

Oups !!!.....
Pardonne moi je n'avais pas vu cette réponse
Et j'ai dû être bègue pour valider mon fichier joint !
J'ai copié ta macro dans ThisWorkbook mais ça ne marche pas

 

[Lone-wolf]

Re

Bein oui, quand on ne met pas le fichier, difficile à voir sa conception.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    With Sheets("Modèle")
        .Range("a2") = .Range("a2") + 1
        Sh.Name = .Range("a2")
    End With
End Sub

 

[Mapat]

Re

Merci pour ton aide mais .....
J'ai copié le code dans ThisWorkbook mais ça ne fonctionne pas

 

[Lone-wolf]

Re

Je ne sais pas, peut-être avec excel 2007 il faut faire autrement. Avec 2013 aucun problème.

Au lieu de Sh.Name, essaie activesheet.name

 

[Mapat]

Re
Non, pas de résultat
Je te remercie de ton aide

 

[vgendron]

Hello

selon ce que j'ai compris..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim NouveauNum As Integer
Dim ws As Worksheet
Dim wsexist As Boolean

Application.ScreenUpdating = False
If Not Intersect(Target, Range("G9")) Is Nothing Then
    NouveauNum = Range("F9")
    wsexist = False
    If Range("F9").Value <> "" Then
        For Each ws In Worksheets
            If ws.Name Like NouveauNum Then
                wsexist = True
                Exit For
            End If
        Next ws
       
        If Not wsexist Then
            Worksheets("Modèle").Copy After:=Sheets("Modèle")
            ActiveSheet.Name = NouveauNum
            ActiveSheet.Range("a2") = NouveauNum
        End If
    End If
    Cancel = True
End If

Application.ScreenUpdating = True

End Sub

 

[Mapat]

Bonjour

Un grand merci à vous deux
Le code de vgendron fonctionne parfaitement

Bonne journée à tous