Microsoft 365 Dupliquer un onglet en le renommant automatiquement

Atlas85200

XLDnaute Nouveau
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,
 

Pièces jointes

  • ESSAI FORUM.xlsm
    10.1 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Atlas,
Un essai en PJ.
Création feuille en automatique si en D on a "oui" :
VB:
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 :
Code:
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
 

Pièces jointes

  • ESSAI FORUM.xlsm
    16.8 KB · Affichages: 2

Atlas85200

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
7
Affichages
299

Statistiques des forums

Discussions
313 221
Messages
2 096 316
Membres
106 567
dernier inscrit
FRANCOISE Freddy