Discussion :

[sagitarium]

Bonjour,

J'ai écris une macro ajout d'onglet qui copie un onglet existant que je modifie à souhait. Mon souci est que l'onglet de base ,qui contient le code de copie, est copié avec son code.
J'aimerai supprimer ce code copié ou bien éviter de le copier.

Merci pour votre aide.

[Fanfan2A]

Bonjour.
Le plus simple est de mettre dans ton onglet "de base" uniquement ta procédure évènementielle qui fait appel à ta procédure de copie d'onglet que tu mets dans un module (Public).

Cdlt.

[sagitarium]

Merci pour ta réponse.

Le problème est que j'utilise la fonction activate du worksheet pour formatter ma page d'une certaine façon.
donc kan je copie l'onglet, l'onglet destinataire prend le format de l'onglet de base.

[Fanfan2A]

Une autre méthode encore plus simple consiste à ajouter d'abord un onglet (methode add) puis à copier-coller les cellules (avec format) dans l'onglet nouvellement créé.
Tu peux t'aider de ceci: (à mettre dans un module)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim N°Onglet As Integer
    Worksheets(1).Activate
    ActiveSheet.Name = "F1"
    N°Onglet = Worksheets.Count + 1
    Worksheets.Add.Name = "F" & N°Onglet
    Worksheets("F" & N°Onglet).Move after:=Worksheets(N°Onglet)
    Worksheets("F1").Cells.Copy
    Range("A1").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Et là, si tu lances la copie depuis ton onglet de base via un CommandButton, il ne sera pas copié!

Cdlt

[sagitarium]

J'ai adapté ton code et ça fonctionne parfaitement.
Merci !