Incrémentation feuille excel + copie modèle

[gilou31]

bonjour à tous.

J'aimerai créer un bouton sur excel qui me permet de copier une feuille excel en incrémentant un numéro dans l'onglet de la nouvelle feuille, en copiant la mise en forme, et en incrémentant un numéro dans une cellule de la feuille. Ce numéro sera le meme que celui de l'onglet.

J'ai trouvé ce post qui répond plus au moins à ce que je voudrais faire :
https://www.excel-downloads.com/threads/transferer-synthetiser-nouvelle-feuille-incrementee.78623/

J'ai regardé les macro qui sont en VB. Je suis sur qu'il ne faut modifier que quelques petites choses dans la programation mais étant nul en VB je ne sais pas quoi.
J'ai 3 feuilles dans mon classeur, et le bouton pour reproduire les feuilles se trouve sur la feuille que je souhaite reproduire. Les deux autres feuilles ne doivent jamais être reproduits...
OUf fin de l'explication :d

j'espere être clair...

 

[gilou31]

Re : Incrémentation feuille excel + copie modèle

j'ai bien regardé et j'ai besoin que de la macro test2.

Après l'avoir plus ou moins modifier, je peux l'utiliser une fois
Une nouvelle feuille est créer. Lorsque je retente le coup, un message d'erreur apparait sous VBA "erreur d'éxecution 1004 => impossible de renommer une feuille comme une autre"...

 

[gilou31]

Re : Incrémentation feuille excel + copie modèle

voici mon code


Sub Test()
Application.ScreenUpdating = True
Retour = ActiveSheet.Name
Maval = 0
For Each X In ActiveWorkbook.Sheets
If Left(X.Name, 6) = "Livre de mission_" Then
If Val(Right(X.Name, Len(X.Name) - 6)) > Maval Then Maval = Val(Right(X.Name, Len(X.Name) - 6))
End If
Next
Sheets("Livre de mission").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = "Livre de mission_" & Maval + 1
.Visible = True 'Affiche la feuille Livre de mission basée sur un modele masqué
End With
Sheets(Retour).Activate
Application.ScreenUpdating = True
End Sub

 

[papapaul]

Re : Incrémentation feuille excel + copie modèle

Salut guido , peut-être à cause de çà.
Je crois que c'est normal.
Il te manque un _ dans ce code.
Sheets("Livre de mission_").Copy After:=Sheets(Sheets.Count)
Moi j'ai pris ton code en mettant Feuil1 partout, c'est OK.
A voir

 

[papapaul]

Re : Incrémentation feuille excel + copie modèle

Excuses Gilou31, (pourquoi j'ai mis guido )
J' ai appliqué ton code à partir de Feuil1,
Ca me donne successivement, Feuil11, Feuil12, etc
mais ensuite au lieu de Feuil20, Feuil110, Feuil111 etc..
Y a surement quelquechose à revoir.
Je sais pas quoi encore

 

[gilou31]

Re : Incrémentation feuille excel + copie modèle

Salut guido , peut-être à cause de çà.
Je crois que c'est normal.
Il te manque un _ dans ce code.
Sheets("Livre de mission_").Copy After:=Sheets(Sheets.Count)
Moi j'ai pris ton code en mettant Feuil1 partout, c'est OK.
A voir

Salut,

je ne pense pas qu'il faille rajouter un "_", car c'est la feuille qu'il copie.
Ma feuille principale est livre de mission, qui se transforme après en livre de mission_1

J'ai essayer en mettant "_", toujours le meme probleme.
pourquoi les modèles marche-t-il pour le premier essai mais bug poru les autres grrr