Enregistrer résultats macro

[inot]

Bonjour cher forum,
sur la macro jointe, je voudrais enregistrer le résultat dans le même classeur mais sur une feuille différente, ce qui n’est pas le cas actuellement
pouvez-vous me venir en aide ?
comme vous le voyez, cette macro, qui m’a été proposée par votre intermédiaire et qui fonctionne parfaitement, me sert à incrémenter un numéro avec remise à 1 à chaque nouvelle année

Sub Numéro()
’
’ Numéro Macro
’
If Range(« B2 ») <> «  » Then
If Range(« B2 ») = Format(Date, « yyyy ») * 1 Then
Range(« A2 ») = Range(« A2 ») + 1
Else
Range(« A2 ») = 1
Range(« B2 ») = Format(Date, « yyyy »)
End If
Else
Range(« A2 ») = 1
Range(« B2 ») = Format(Date, « yyyy »)
End If
Range(« C2 ») = Range(« D2 ») & « -DEV- » & Right(Range(« B2 »), 2) & « - » & Range(« A2 »)
’
End Sub

[inot]

bonjour,

je vous joins le fichier qui correspond à ma demande et à cette macro
merci pour vos retours
Classeur1.xlsm (18,6 Ko)

[FFO]

Bonjour
Je suppose que tu fais allusion à la dernière ligne du code à intégrer dans une autre feuille
Ci-joint ton fichier avec ce résultat en « Feuil2 »
Adaptes le nom de la feuille en fonction de celle souhaitée
J’espère que cela te convient
Dis moi

Classeur1.xlsm (19,5 Ko)

[inot]

merci FFO
c’est exactement ça, super
j’ai une autre question, le numéro dans la cellule A2 de la feuille 1, je voudrais qu’une fois recopié dans l’autre feuille à la suite des autres données, soit sous un format avec 4 chiffres (ex: 0001)
le recopie complète serait: AMG-DEV-21-0001
merci pour ton retour

[FFO]

Merci de ton retour
Pour le format à 4 chiffres du numéro de la cellule A2 mets la ligne de code comme ceci :

Sheets (« Feuil2 »).Range(« C2 ») = Range(« D2 ») & « -DEV- » & Right(Range(« B2 »), 2) & « - » & Format (Range(« A2 »),« 0000 »)

Cela devrait le faire

Essaies et dis moi

[inot]

c’est tout bon !!
encore une fois merci FFO
bonne soirée

[FFO]

Merci pour ton retour
À bientôt pour de prochaines aventures