Effacer le code VBA d'une Worksheet par VBA

Salut les amis,

Je copie une feuille de travail de mon classeur en créant un nouveau classeur.
Dans le code affecté à cette feuille, se trouvent des procédures évènementielles (Clic sur bouton de commande, évènement Activate...).

J'avais conservé ce code retourné par l'un de mes premiers interlocuteurs, OusKelnor :plusser:,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Application.EnableEvents = False   Dim i As Byte   Worksheets("Report").Copy   With ActiveWorkbook With .VBProject.VBComponents("Report").CodeModule For i = .CountOfLines To 1 Step -1 .DeleteLines i DoEvents Next End With   With .Worksheets("Report").UsedRange .Value = .Value End With End With

---

Citation:

---

Erreur d'exécution 9 L'indice n'appartient pas à la sélection.

---

Je ne comprends pas.

La syntaxe du code aurait-elle changé sur les versions récentes d'Excel?

Merci par avance pour vos lumières.

Bonjour,

Bien vérifier que ça soit le CodeName qui soit utilisé dans la procédure et nom le nom de la feuille (pour le récupérer):

Code:

---

1 2 3 4 5 6 7

Sub Exemple() Dim MonCodenameEst As String   MonCodenameEst = ActiveSheet.CodeName 'ou => MonCodenameEst = Sheets("Nom de la feuille").CodeName   End Sub

---

Re Salut,

Code:

---

La syntaxe du code aurait-elle changé sur les versions récentes d'Excel?

---

La réponse est positive.
Il faut écrire

Code:

---

.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule

---

Mais pourquoi

Code:

---

ActiveSheet.Codename

---

plutôt que le nom de la feuille.

Veux savoir! Na! :D

Hé salut Ryu!

Nos post se sont télescopés.
Merci pour ta réponse.:plusser:

Comme je l'ai demandé.
Sachant que c'est une feuille qui est copiée, pourquoi ne pas utiliser son nom comme en 2009?
Version 2016 d'Excel?

Re,

A vrai dire je ne sais pas, j’ai vu cela il n’y a pas longtemps qd j’ai répondu à un post.
Quoiqu’il en soit le codename restera maître du pointage pour une feuille son nom étant changé rarement.
Ce qui peut être pratique lors d’un changement de nom d’une feuille dont on ne veut pas changer le code se trouvant par exemple dans un module grâce à l’utilisation du codename en place au lieu du nom de la feuille …

Édit : Mais je trouve cela plus logique car comme cela on accède directement à ce que l’on veut que ça soit une feuille ou un module ;)

D'accord.

Merci Ryu

Bonne soirée et au plaisir de te retrouver.

PS :
J’ai écrit une procédure pour écrire du code dans une feuille ou un module.
J’ai qq petites idées d’amélioration en tête … …
https://www.developpez.net/forums/d1.../#post10781778

Vu. Cela peut-être utile.

Au plaisir.