Copier une feuille par macro + incrémentation

[Arnaud61]

Bonjour,

Alors voilà, j'aimerais pouvoir créer une macro qui me permet de copier une feuille excel "type" et me la renommer.

Explications:

J'ai une "feuille type" qu'un utilisateur doit renseigner que l'on va appeller "Travaux N°0"

Cette feuille est préformatée et vierge de toutes données utilisateur.

En appuyant sur un bouton, l'utilisateur va créer la feuille: "Travaux N°1" et la remplira.

Ma macro doit dans un premier temps intéroger le nombre de feuille "Travaux N°" qui se trouve dans mon fichier. Et ensuite copier la feuille "Travaux N°0" et me la renommer en "Travaux N°..." (2 dans mon exemple)

Merci de votre aide! 🙂

 

[Staple1600]

Re : Copier une feuille par macro + incrémentation

Bonjour

Sub Macro1()
Dim x As Long
Sheets("Travaux N° 0").Copy After:=Sheets(1)
x = Sheets.Count
ActiveSheet.Name = "Travaux N°" & x - 1
End Sub

Reste à trier les feuilles par ordre
Ce qui peut etre fait sommairement fait comme ceci

Sub Macro2()
Dim x As Long
Dim y As Long
y = Sheets.Count
Sheets("Travaux N° 0").Copy After:=Sheets(y)
x = Sheets.Count
ActiveSheet.Name = "Travaux N°" & x - 1
End Sub

A+

J-M

 

[Arnaud61]

[Résolu] Copier une feuille par macro + incrémentation

C'est exactement ce que je voulais!

Merci beaucoup J-M