copie intégrale d'une feuille + numéro augmente de 1

[vistla]

Bonjour! J'ai encore besoin de votre aide!


Je joints le fichier.

j'aimerais avoir un bouton me permettant de faire une copie de la feuille "Modèle"

la prochaine feuille s'appellerait "240-0010"

Dans la feuille "240-0010", la cellule D3 deviendrait #240-0010

Cette feuille serait placé entre "modèle" et "240-0009"


Merci de votre aide!

Éric

 

[Staple1600]

Re : copie intégrale d'une feuille + numéro augmente de 1

Bonsoir à tous



A tester (version modifiée)

Sub Macro1()
Dim NUM
NUM = CDec(Right(Sheets(3).Range("D3"), 4))
Sheets("Modèle").Copy After:=Sheets("Modèle")
ActiveSheet.Name = "240" & "-" & Format(NUM + 1, "0000")
ActiveSheet.Range("D3") = "# 240" & "-" & Format(NUM + 1, "0000")
End Sub

edit: bonsoir skoobi

 

[vistla]

Re : copie intégrale d'une feuille + numéro augmente de 1

Merci! Tout fonctionne excepté que la nouvelle feuille se place à la fin du classeur, au lieu d'être placé entre la feuille 'Modèle' et '240-0009'

S'il existe un code permettant de corriger.. sinon, c'est déjà beaucoup!

Merci beaucoup!

 

[skoobi]

Re : copie intégrale d'une feuille + numéro augmente de 1

Bonsoir vistla,

Ci-joint une proposition.

PS: je suppose que le nouveau bon de commande ce trouve toujours à droite du modèle.

Edit: désolé, j'ai pas rafraichi, salut JeanMarie

 

[vistla]

Re : copie intégrale d'une feuille + numéro augmente de 1

Merci skoobi et Jean-Marie! J'ai combiné vos 2 solutions! Super! Je n'aurai pas à utiliser Access!

Cordialement!

Éric

 

[Staple1600]

Re : copie intégrale d'une feuille + numéro augmente de 1

Re


Une petite précision:

Le code dans mon précédent message n'incrémentera pas le 240

donc à 240-9999, il ne passera pas à 241-0000



skoobi: c'est marrant on a presque "pondu"* le même code 😉

*cf Paques

 

[skoobi]

Re : copie intégrale d'une feuille + numéro augmente de 1

skoobi: c'est marrant on a presque "pondu"* le même code 😉

Coooote, cote cote cote coooooooote 😛