Problème MACRO pour dupliquer un onglet

Bonjour à tous,

Je profite du confinement pour parfaire mes connaissances sur Excel, et notamment les macro, sur lesquelles je suis super novice, mais très friand d'en apprendre toujours plus

J'ai néanmoins déjà créé plusieurs macro qui m'aident énormément dans mon travail quotidien. Je suis aujourd’hui face à une impasse

Voici la situation dans laquelle je me trouve :

• J'ai créé un fichier de suivi commercial pour mon équipe
• Sur l'onglet principal doivent apparaître toutes les nombreuses infos commerciales, filtrées avec de nombreux segments bien utiles.
• problème = comme je suis sur un fichier en Co-édition sur office 365, cet onglet principal est rapidement "parasité" par les nombreuses personnes qui utilisent les filtres pour isoler leurs chiffres et leur perf, ce qui obstrue la vue des autres utilisateurs qui avaient préalablement filtrés différemment.

Mon souhait :

• créer des "onglets miroir" par utilisateur pour qu'ils puissent consulter autant qu'ils le souhaitent dans un onglet qui leur est dédié (via des macro of course) puis supprimer cet onglet une fois la consultation terminée.
• -> le bouton "Onglet Miroir Utilisateur 1" devra donc :

2. Modifier légèrement le nouvel onglet :

2.a. Ajouter du texte informant que ce nouvel onglet est pour consultation uniquement

2.b. Retirer le bouton "onglet miroir"

2.c. Créer un bouton "supprimer onglet" et y affecter une macro préalablement créée qui supprimera l'onglet une fois la consultation terminée.

J'ai donc effectué ces taches que j'ai remis sur le fichier test en PJ

Le problème rencontré :

Lorsque je clique sur le bouton "Onglet Miroir", l'onglet miroir est bel et bien créé.

Néanmoins, un nouveau bouton vient tout de même se placer sur le nouvel onglet (en lieu et place du bouton "onglet miroir" qui devait être supprimé) et également sur l'onglet principal où il vient se superposer au bouton initial.. A noter que boutons n'ont aucune macro affectée...

C'es assez problématique, savez vous comment je pourrais résoudre cette situation ?

J'espère avoir été assez clair dans mes explications.

Un grand merci si vous arrivez à m'aider dans ma démarche.

PS : Pour l'instant je créé mes macro uniquement via l'outil "enregistrer une macro" que je trouve très intuitif et super utiles aux profanes comme moi. Je compte bien me former sur VBA très prochainement.

Bonjour,

Le souci, dû à l'enregistrement automatique, provient du fait que le code ajoute deux fois le bouton.

Un essai ...

Sub Onglet_miroir()
'
' Onglet_miroir Macro
'
    Sheets("ONGLET PRINCIPAL").Select
    Sheets("ONGLET PRINCIPAL").Copy After:=Sheets(1)
    Sheets("ONGLET PRINCIPAL (2)").Select
    Sheets("ONGLET PRINCIPAL (2)").Name = "Onglet miroir"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "Ceci est l'onglet miroir bien penser à le supprimer"
    Range("A5").Select
    ActiveSheet.Buttons.Add(300, 55, 230, 64).Select
    Selection.OnAction = "supprimer_onglet"
    Selection.Characters.Text = "Supprimer onglet"
    With Selection.Characters(Start:=1, Length:=16).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("L11").Select
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Delete
    Range("G5").Select
End Sub

ric

C'est parfait cela fonctionne à merveille.