Microsoft 365 Dupliquer un onglet en le renommant automatiquement

[Atlas85200]

Bonjour,

je souhaiterais dupliquer un onglet selon une donnée saisie dans une colonne et que cette onglet dupliqué se renomme en auto.

J'ai trouvé comment faire un avoir un bouton mais je voudrais que la macro s'active à la saisie et non par un bouton,

Je vous mets le fichier

Merci par avance,

 

[sylvanu]

Bonjour Atlas,
Un essai en PJ.
Création feuille en automatique si en D on a "oui" :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D5:D1000]) Is Nothing Then
         Application.ScreenUpdating = False
         If LCase(Target) = "oui" And Cells(Target.Row, "A") <> "" Then
            FeuilleSource = ActiveSheet.Name
            Nom = Cells(Target.Row, "A")
            ActiveSheet.Copy After:=Worksheets(Sheets.Count)
            ActiveSheet.Name = Nom
            Sheets(FeuilleSource).Select
         End If
    End If
Fin:
End Sub

"Aller à " quand on clique sur une ligne où il y a "oui" et que le nom de la feuille existe :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin2
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A5:D1000]) Is Nothing Then
        L = Target.Row: Nom = Cells(L, "A")
        If Nom <> "" And LCase(Cells(L, "D")) = "oui" Then Sheets(Nom).Select
    End If
Fin2:
End Sub

 

[Atlas85200]

Super, merci de ton retour c'est exceptionnel,

J'étudie le code par contre je ne le comprends pas entier,

Si je peux abuser en fait c'est l'onglet nommé "TYPE" que je veux dupliquer, j'ai trituré le code dans tous les sens mais je n'y arrive pas

Pour le ALLER à, est ce qu'on peut le dédier à une seule cellule cliquable, par exemple la E

Merci

 

[Atlas85200]

J'ai trouvé pour le lien en colonne E par contre il me reste le premier point, dupliquer la feuille TYPE et non la Feuil1

 

[sylvanu]

Re,
Voir PJ.

 

[Atlas85200]

Magnifique !!!!!! Merci mille fois