Retour onglet createur

Bonjour à toutes et tous,

Je souhaite créer un document facile à utiliser sur le terrain et pouvant être facilement modifiable (donc avec le moins de macro possible).

Dans mon document, les onglets BAT 1,3,6,8 sont des formulaires a dupliquer . J'ai réussi à enregistrer une macro pour dupliquer et remettre a zéro un formulaire.

Mon problème viens du fait que je tente d'adapter le code de manière générale (éviter de créer une macro pour chaque formulaire) seulement je ne trouve pas la dénomination pour revenir à la feuille d'origine (sans la nommer précisément).

Existe t'il une telle fonction ou peut-on ajouter un tour de passe passe ?

Question subsidiaire : il y a t'il une dénomination pour le dernier onglet ou doit il être obligatoire chiffrer (after sheet X) ???

Merci d'avance

Sub test()
'
' test Macro
'

'
    ActiveSheet.Select
    ActiveSheet.Copy after:=Sheets(5)
    Sheets(PreviousWorksheet).Select
    Range("C2,E2:J2,D5:J100").Select
    Range("D5").Activate
    Selection.ClearContents
    Range("A1:F1").Select
    Sheets(6).Select
    ActiveSheet.Name = Range("C2")
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
    Selection.Delete
End Sub

Bonjour Garulfo, bonjour le forum,

Peut-être comme ça :

Sub test()
Dim OA As Worksheet 'déclare la varaible OA (Onglet Actif)
Dim NO As Worksheet 'déclare la varaible NO (Nouvel Onglet)

Set OA = ActiveSheet 'définit l'onglet OA
OA.Copy after:=Sheets(Sheets.Count) 'copie l'onglet OA en dernière position
Set NO = ActiveSheet 'définit le nouvel onglet NO

'après tu utilise OA ou ON
OA.Range("C2,E2:J2,D5:J100").ClearContents
NO.Name = NO.Range("C2")
NO.Select
NO.Shapes.Range(Array("Rounded Rectangle 1")).Select
Selection.Delete
End Sub

Merci beaucoup, c'est impeccable ça marche comme souhaité

merci de ta disponibilité et bonne journée