nouvelle feuille-renommer-incrementer

[jtitin]

Bonjour à tous
voici mon problème:
je cherche à faire une copie d'une feuille "Modele"
la placer à la fin du classeur
la renommer en fonction du nom d'une cellule définie
et l'incrémenter à l'aide des données d'une autre feuille

je trouve dans ce forum tous les éléments individuellement pour réaliser cela, mais je ne parvient pas à les combiner ensemble
je vous joint un fichier explicatif

merci de votre aide

 

[jtitin]

Re : nouvelle feuille-renommer-incrementer

Re bonjour
PierreJean m'avait aidé il y a peut avec cette macro
je l'ai juste modifiée pour placer la nouvelle feuille en dernière position
j'aimerais continué à utiliser cette macro en incorporant la feuille "Modele"
comme nouvelle feuille et donc la renommée, la placée et l'incrémentée

Sub test()
Application.ScreenUpdating = False
numero = 0
For n = 1 To Sheets.Count
If InStr(Sheets(n).Name, Sheets("Tempo").Range("B2")) <> 0 Then
If Sheets(n).Name = Sheets("Tempo").Range("B2") Then
If numero < 1 Then numero = 1
Else
num = CInt(Replace(Sheets(n).Name, Sheets("Tempo").Range("B2"), ""))
If num >= numero Then
numero = num + 1
End If
End If
exist = True
End If
Next n
If exist Then
Sheets.Add.Name = Sheets("Tempo").Range("B2") & numero
Else
Sheets.Add.Name = Sheets("Tempo").Range("B2")
End If
With ActiveSheet
.Move After:=Worksheets(Sheets.Count)
End With
Sheets("Menu").Select
Application.ScreenUpdating = True
End Sub


merci

 

[jtitin]

Re : nouvelle feuille-renommer-incrementer

OUPSSS
j'ai trouvé. j'ai réussi à combiner tous cela
j'ai modifié la partie If exist Then par:

If exist Then
Sheets("Modele").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Sheets("Tempo").Range("B2") & numero

Else
Sheets("Modele").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Sheets("Tempo").Range("B2") & numero
End If